Приклад розв’язання задачі обробки одномірного масиву
Для сукупності 15 чисел Х=(0.01; -27.3; 0; 1.25; -371; 0.5; -0.1; 1.2; -5; -172.3; 19.1; -2.7; 43.51; 0; -0.02) знайти найменший елемент та його номер.
Скласти таблицю ідентифікаторів, блок-схему алгоритму та програму для обробки одномірного масиву.
Лістинг програми:
program Мasuv;
uses crt;
type
MAS=array[1..15] of real;
var
x:MAS; i,n:integer;
min:real;
begin
clrscr;
writeln(‘Введення елементів масиву’);
for i:=1 to 15 do
begin
write('x[',i,']=');
readln(x[i]);
end;
min:=x[1];
n:=1;
for i:=1 to 15 do
begin
if x[i]<min then
begin min:=x[i]; n:=i; end;
end;
writeln('Виведення мінімального елементу', min:5:2,' ', ' Його номер:',n);
end.
Блок-схема програми:
Результат роботи програми
Введення елементів масиву |
|
x[1]=0.01 |
|
x[2]=-27.3 |
|
x[3]=0 |
|
x[4]=1.25 |
|
x[5]=-371 |
|
x[6]=0.5 |
|
x[7]=-0.1 |
|
x[8]=1.2 |
|
x[9]=-5 |
|
x[10]=-172.3 |
|
x[11]=19.1 |
|
x[12]=-2.7 |
|
x[13]=43. |
|
x[14]=0 |
|
x[15]=-0.02 |
|
Виведення мінімального елементу-371.00 |
Його номер: 5 |
Контрольні питання
Як використовується одновимірний масив в якості параметру підпрограми у мові Pascal?
Що таке відкритий масив як параметр підпрограми?
Чому масив називають регулярною структурою?
Чи можна змінити розмір масиву при виконанні програми?
Які типи даних можна використовувати в якості базового типу масиву?
Викладач ____________ М. О. Пашко