2. Основні алгоритми опрацювання масивів.
При опрацюванні масивів важливими є операції вводу значень масиву та виводу їх на екран. . Розглянемо виконання цих операцій. При цьому вважатимемо, що діє такий опис:
const n=...;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
2.1. Введення елементів масиву з клавіатури на екрані.
for i:=1 to n do
begin
write(‘Введіть¢,i,’-й елемент масиву:’);
read(a[i]);
end;
2.2. Заповнення елементів масиву випадковими цілими числами. Числа беруться з діапазону [0, 99].
randomize;
for i:=1 to n do a[i]:=random(100);
2.3. Форматний друк елементів масиву .
for i:=1 to n do write(a[i]:4);
writeln
Далі розглянемо типові алгоритми опрацювання масивів.
2.4. Пошук найменшого елемента масиву
Program pr1;
Uses crt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
min:integer;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(100);
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
writeln(‘Результат’);
writeln(‘Найменший елемент min=’, min:4);
end.
2.5. Обчислення суми елементів масиву
Program pr2;
Uses сrt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
s:integer;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(100);
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln(‘Результат’);
writeln(‘Сума s=’, s:4);
end.
2.6. Обчислення добутку елементів масиву з парними номерами.
Program pr3;
Uses crt;
const n=20;
type massiv=array[1..n] of integer;
var
a:massiv;
i:integer;
p:longint;
begin
clrscr;
randomize;
for i:=1 to n do a[i]:=random(10)+1;
writeln(‘Вихідні дані’);
for i:=1 to n do write(a[i]:4);
writeln;
p:=1;
i:=2;
repeat
p:=p*a[i];
i:=i+2;
until i>n
writeln(‘Результат’);
writeln(‘Добуток елементів з парними номерами p=’, p:4)
end.
25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
75 76 77 78 79 Наверх ↑