Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ЛАБ.РОБОТИ-1 семестр.doc
Скачиваний:
1
Добавлен:
10.11.2019
Размер:
713.22 Кб
Скачать

Лабораторна робота №8

Тема: Алгоритми і програми для обробки одновимірних масивів.

Мета: Формування умінь створення програм, які містять одновимірні масиви на алгоритмічній мові високого рівня Pascal.

1. Теоретичні відомості

Масив – це впорядкований скінченний набір даних одного типу, які зберігаються в послідовно розташованих комірках оперативної пам’яті і мають спільну назву. Назву масиву задає користувач.

Масив складається з елементів. Кожний елемент має індекси, за якими його можна знайти в масиві. Кількість індексів елементів визначає розмірність масиву.

Елементи масиву позначають іменем масиву, а у квадратних дужках пишуть значення індексу елемента масиву.

Щоб опрацювати елементи масиву використовують команду циклу for (чи while або repeatuntil).

2. Хід роботи

2.1. Постановка задачі

Дано одновимірний масив С, який складається з 15 елементів. Замінити одиницями елементи масиву, які знаходяться після найменшого елементу.

2.2. Графічний алгоритм показаний на рисунку 1.

2.3. Таблиця ідентифікації змінних

Змінна

C

Міні- мальний елемент

Номер міні-мального елемента

Ідентифікатор

C

min

n

ні

так

Рис.1. Графічний алгоритм

2.5. Програма мовою Pascal та результати обчислень

Program одновимірні_масиви;

Var

min:real;

i,n:integer;

c:array[1..15] of real;

Begin

writeln('Введіть елементи масиву');

for i:=1 to 15 do

begin

writeln('c[',i,']=');

read(c[i])

end;

writeln('Вихідні дані :');

for i:=1 to 15 do

write(' ',c[i]:6:3);

min:=c[i];

for i:=2 to 15 do

if c[i]<min then

begin

min:=c[i];

n:=i

end;

for i:=n+1 to 15 do

c[i]:=1;

writeln('Результати розрахунку :');

for i:=1 to 15 do

writeln('c[',i,']=',c[i]:6:3);

end.

Вихідні дані :

с[1]=5.200

с[2]=0.150

с[3]=4.000

с[4]=61.000

с[5]=-3.500

с[6]=5.000

с[7]=9.000

с[8]=12.000

с[9]=-4.200

с[10]=18.000

с[11]=100.000

с[12]=41.000

с[13]=8.000

с[14]=-1.320

с[15]=15.000

Результати розрахунку :

с[1]=5.200

с[2]=0.150

с[3]=4.000

с[4]=61.000

с[5]=-3.500

с[6]=5.000

с[7]=9.000

с[8]=12.000

с[9]=-4.200

с[10]=1.000

с[11]=1.000

с[12]=1.000

с[13]=1.000

с[14]=1.000

с[15]=1 .000