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

• 1 слайд

  Преобразование элементов массива
  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);
  
  Преобразование единиц измерения
  Вывод результатов
  Формирование изменённого массива
  Формирование и
  вывод исходного массива
  

• 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]
  Конец
  Да
  Нет
  Да
  Нет
  

• 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.
  Преобразование элементов массива, удовлетворяющих определённым условиям
  Формирование и вывод изменённого массива
  Формирование и вывод исходного массива
  

• 5 слайд

  7
  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
  

• 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.
  

• 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.