Для закрепления пройденного материала предлагаю выполнить задания, разобранные в классе:
Кроме этого публикую полные тексты программ, блок-схемы которых мы обсуждали на уроках.
Программа1. Задан массив. Вводят некоторое число. Программа определяет сколько раз встретилось данное число в массиве.
Program mas;
const N = 20; {задаем кол-во элементов в массиве }
var a: array [1..N] of integer; i,k,x: integer;
begin
for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}
writeln('Элементы массива: ');
for i:=1 to N do write('a[' , i, ']=', a[ i ],' '); {выводим элементы массива на экран}
end;
k:=0; {переменная для подсчета количества}
For i:=1 to N do if m[i]=х then k:=k+1;
if k=0 then write(‘В массиве нет числа x’)
else write(‘число x присутствует’, k , ‘раз’)
End.
Программа2. Задан массив. Вводят некоторое число. Программа выводит на экран элемент, равный этому числу, и его номер.
Program mas;
const N = 20; {задаем кол-во элементов в массиве }
var a: array [1..N] of integer; i,k,x: integer;
begin
for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}
writeln('Элементы массива: ');
for i:=1 to N do write('a[' , i, ']=', a[ i ],' '); {выводим элементы массива на экран}
end;
k:=0;
For i:=1 to N do
if m[i]=х then
begin k:=k+1; writeln(’m[’ , i, ’]=’,m[i]); end;
if k=0 then write(‘В массиве нет числа x’)
End.
Программа3. Программа находит в массиве максимальный элемент и его номер.
Program mas;
const N = 20; {задаем кол-во элементов в массиве }
var a: array [1..N] of integer; i, max, nmax: integer;
begin
for i:=1 to N do a[i] := Random(100); {Присваиваем в качестве значения каждого элемента некоторое целое случайное число в промежутке от 1 до 100}
writeln('Элементы массива: ');
for i:=1 to N do write('a[' , i, ']=', a[ i ],' '); {выводим элементы массива на экран}
end;
max:=A[1]; nmax:=1;
For i:=2 to N do
if A[i] > max then begin max:=A[i]; nmax:=i; end;
Writeln('максимальный элемент = ', max, 'его номер =', nmax);
end.
Программа4. Фрагмент программы, которая выполняет сортировку элементов массива по убыванию.
{ Алгоритм сортировки пузырьком }
for k := 1 to n-1 do
for i := 1 to n-1-k do
if B[i] < B[i+1] then
begin
{ Обмен элементов }
x := B[i];
B[i] := B[i+1];
B[i+1] := x ;
end;
writeln('Отсортированный массив:');
for i := 1 to M do
write(B[i]:4);
writeln;
end.
