Работа с одномерными массивами Урок информатики 9 кл. - презентация

1 Работа с одномерными массивами Урок информатики 9 кл

2 Повторение пройденного материала Что является одномерным массивом ? Как обозначается в паскале датчик случайных чисел ? Для чего используется процедура Randomize?

3 1.Randomize; {запуск генератора случайных чисел} For i:=1 to 20 do A[i]:=Random(100); 2. Randomize; { запуск генератора случайных чисел } For i:=1 to 20 do A[i]:=Random(201)-100; Что выполняет фрагмент программы ?

4 Вывод элементов массива WriteLn (A[1]); WriteLn (A[2]); Writeln (A[n]); For i:=1 to 20 do WriteLn (A[i]); For i:=1 to 20 do begin Write (A[i]); Write (' '); end; For i:=1 to 20 do begin Write (A[i],' '); end; For i:=1 to 20 do WriteLn (A[i]:4:2);

5 Ввод / вывод значений элементов массива 1. Заполнение элементов массива с клавиатуры Program zadacha1; Var a: array [1.. 10] of real; i: integer; Begin for i:=1 to 10 do begin readln (a[i]); write (a[i], ); end; End.

6 2. Заполнение элементов массива по формуле Program zadacha2; Var a: array [1.. 10] of real; i: integer; Begin for i:=1 to 10 do begin a[i]:=(i*i+1)/i; write (a[i], ); end; End.

7 3. Заполнение элементов массива случайными числами Program zadacha3; Var a: array [1.. 10] of real; i: integer; Begin randomize; for i:=1 to 10 do begin a[i]:=random(30); write (a[i], ); end; End.

8 Вывести на экран элементы, равные нулю For i:=1 to 20 do If A[i]:=0 then WriteLn (A[i]); Подсчёт количества элементов For i:=1 to 20 do If A[i]:=0 then begin WriteLn (A[i]); z:=z+1; end;

9 Создание нового массива из элементов исходного массива 1. Вначале n:=1. 2.Берём i:=1 элемент массива A. 3. Сравниваем его с нулём. 4. Если он равен нулю, то присваиваем его B[n]. 5. Увеличиваем n на единицу. 6. Цикл повторяется. For i:=1 to 20 do If A[i]:=0 then begin WriteLn (A[i]); z:=z+1; B[n]:=A[i]; n:=n+1; end;

10 Дан массив целых чисел A, состоящий из 20 элементов. Определить число нулевых элементов и записать их в массив B. Program Null; var i,n:integer; A,B:array [1..20] of integer; begin For i:=1 to 20 do begin Write ('A[',i,']='); ReadLn (A[i]); end; n:=1; For i:=1 to 20 do If A[i]:=0 then begin WriteLn (A[i]); n:=n+1; B[n]:=A[i]; end; WriteLn ('В массиве найдено ',n,'нулей.'); end.

11 1. Вычисление суммы положительных элементов массива из 50 случайных чисел в диапазона от до 100. Задачи для практической работы. 2. Сформировать одномерный массив из N элементов, где элементы массива - целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке