Презентация, доклад по информатике для 9 класса школ РБ Преобразование элементов массива

НачалоМассив содержит значения диагонали 8 мониторов в дюймах: 12, 14, 15, 17, 19, 20, 22, 24. Составить программу перевода этих значений в сантиметры с округлением до целых (1 дюйм = 2,54 см).uses crt; var D: array[1..8]

Слайд 1Преобразование элементов массива
9 класс, уроки 8, 9

Преобразование элементов массива9 класс, уроки 8, 9

Слайд 2Начало
Массив содержит значения диагонали 8 мониторов в дюймах: 12, 14, 15, 17,

19, 20, 22, 24. Составить программу перевода этих значений в сантиметры с округлением до целых (1 дюйм = 2,54 см).


uses crt;
var D: array[1..8] of integer; i:integer;
begin

D[1]:=12; D[2]:=14; D[3]:=15; D[4]:=17; D[5]:=19; D[6]:=20; D[7]:=22; D[8]:=24;
writeln('диагональ монитора в дюймах');
for i:=1 to 8 do write(D[i]:4);
writeln;

writeln('диагональ монитора в сантиметрах');
for i:=1 to 8 do
D[i]:=round(D[i]*2.54);

for i:=1 to 8 do write(D[i]:4);

readkey;
end.


D[i] := round(D[i]*2.54);

Преобразование единиц измерения

НачалоМассив содержит значения диагонали 8 мониторов в дюймах: 12, 14, 15, 17, 19, 20, 22, 24. Составить

Слайд 3Преобразование единиц измерения
Составьте программу, которая 6 значений скорости, измеренных в км/ч,

преобразует в м/с (1 м/c = 3.6 км/ч).
Исходные данные вводятся в массив с клавиатуры, результат выводится на экран.

uses crt;
var S:array[1..6] of integer;
i:integer;
begin
writeln('Введите значения скоростей в км/ч');
for i:=1 to 6 do
read(S[i]);
writeln('Значения скоростей в м/с: ');
for i:=1 to 6 do
begin
S[i]:=round(S[i]/3.6);
write(S[i],', ')
end;
readkey;
end.

Начало

i=1…6

Ввод S[i]

i=1…6

S[i]=s[i]/3.6

Вывод S[i]

Конец

Да

Нет

Да

Нет

Преобразование единиц измеренияСоставьте программу, которая 6 значений скорости, измеренных в км/ч, преобразует в м/с (1 м/c =

Слайд 4Начало
Составить программу, которая формирует массив из 12 случайных
целых чисел, принадлежащих

промежутку [-20, 20], заменяет отрицательные
числа на -1 и выводит значения элементов массива до и после замены.


uses crt;
var A:array[1..12]of integer; i:integer;
begin

for i:=1 to 12 do
begin
A[i]:=random(41) - 20;
write (A[i]:4);
end;
writeln;

for i:=1 to 12 do
begin
if A[i]<0 then A[i]:= -1;
write (A[i]:4);
end;

readkey;
end.

Преобразование элементов массива, удовлетворяющих определённым условиям

НачалоСоставить программу, которая формирует массив из 12 случайных целых чисел, принадлежащих промежутку [-20, 20], заменяет отрицательные числа

Слайд 57
4
B:=A[2]
Перестановка двух элементов массива
8
4
6
5
7
3
B
A[2]:=A[5]
A[5]:=B
A[i]
i
1
2
3


4

5

6

B:=A[2]

A[2]:=A[5]

A[5]:=B

A[2]

B

A[5]

4

4

7

7

4

7

7

4

4

74B:=A[2] Перестановка двух элементов массива846573BA[2]:=A[5] A[5]:=B A[i] i 1 2 3 4 5 6 B:=A[2] A[2]:=A[5] A[5]:=B

Слайд 6Перестановка двух элементов массива
Составьте программу, которая формирует массив из 15 случайных

целых чисел от -20 до 20 и меняет местами значения первого и последнего элементов массива.
На экран выводятся исходный и преобразованный массивы.

uses crt;
var A:array[1..15] of integer; {Описание массива}
i,B:integer;
begin
writeln('Исходный массив:');
for i:=1 to 15 do {Цикл ввода элементов массива}
begin
A[i]:=random(41)-20;
write(A[i]:4);
end;
writeln;
B:=A[1]; {Перестановка 1 и 15 элементов массива}
A[1]:=A[15];
A[15]:=B;
writeln('Изменённый массив:');
for i:=1 to 15 do write(A[i]:4) {Вывод изменённых эл-тов массива}
readkey;
end.

Перестановка двух элементов массиваСоставьте программу, которая формирует массив из 15 случайных целых чисел от -20 до 20

Слайд 7Преобразование элементов массива, удовлетворяющих определённым условиям
Составьте программу, которая формирует массив из

15 случайных целых чисел от -20 до 20, и производит следующее преобразование:
четные числа делит на два, а нечетные – умножает на три.
На экран выводятся исходные и преобразованные значения.

uses crt;
var E:array[1..15] of integer; {Описание массива}
i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 15 do
begin
E[i]:=random(41)-20; {Ввод элементов массива}
write(E[i]:4); {Вывод исходных элементов массива}
end;
writeln; writeln('Изменённый массив:');
for i:=1 to 15 do {Цикл преобразов. и вывода элементов массива}
begin
if E[i] mod 2=0 then E[i]:=E[i]/2
else E[i]:=E[i]*3;
write(E[i]:4);
end;
readkey;
end.

Преобразование элементов массива, удовлетворяющих определённым условиямСоставьте программу, которая формирует массив из 15 случайных целых чисел от -20

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть