Приклади виконання завдання лабораторної роботи

Приклад 12. Підрахувати кількість позитивних елементів у масиві x(10).

Порядок роботи:

Крок 1. Уводимо масив x(10).

Крок 2. Задаємо початкове значення кількості k = 0.

Крок 3. Організовуємо цикл, що перебирає елементи масиву (тобто індекс i), починаючи з 1-го і кінчаючи 10-м.

Крок 4. Якщо x_i > 0, тоді привласнюємо k = k + 1.

Крок 5. Якщо цикл за i не закінчився, йдемо на початок циклу, тобто на крок 3.

Крок 6. Друкуємо k.

Крок 7. Останов.

Приклад 13. Знайти мінімальний елемент з інтервалу [5,12] у масиві x(15).

Порядок роботи:

Крок 1. Уводимо масив x(15).

Крок 2. Задаємо початкове значення мінімального елемента x_min=10 ²⁰.

Крок 3. Організовуємо цикл, що перебирає елементи масиву (тобто індекс i), починаючи з 1-го і кінчаючи 15-м.

Крок 4. Якщо x_i не належить інтервалу [5,12], тоді йдемо на крок 6.

Крок 5. Якщо x_i < x_min, тоді привласнюємо x_min = x_i.

Крок 6. Якщо цикл по i не закінчився, йдемо на початок циклу, тобто на крок 3.

Крок 7. Друкуємо x_min.

Крок 8. Останов.

П риклад 14. Знайти максимальний елемент і його номер у масиві x(30) .

Блок-схема

Порядок роботи:

Крок 1. Уводимо масив x(30).

Крок 2. Задаємо початкові значення максимального елемента і його номера: x_max = x₁, n_max = 1.

Крок 3. Організовуємо цикл, що перебирає елементи масиву (тобто індекс i), починаючи з 2-го і кінчаючи 30-м.

Крок 4. Якщо x_i>x_max, тоді привласнюємо: x_max=x_i, n_max=i.

Крок 5. Якщо цикл за i не закінчився, йдемо на початок циклу, тобто на крок 3.

Крок 6. Друкуємо x_max, n_max.

Крок 7. Останов.

Приклад 15. Знайти середнє арифметичне елементів масиву Х(20), кратних 3, які належать інтервалу [15,30].

Програма розв’язання даного прикладу має вид:

program pr15;

uses crt;

const N = 20; XN = 15; XK = 30;

type Mas = array[1..N] of integer;

var x:Mas; s,k,i:integer;

SR:REAL; A:BOOLEAN; P:CHAR;

BEGIN CLRSCR;

WRITELN(' УВЕДІТЬ ',N,' ЧИСЕЛ');

FOR I:=1 TO N DO READ(X[I]);

WRITELN('ВИХІДНИЙ МАСИВ ');

for i:=1 to N do write(x[i]:4);

writeln; s:=0; k:=0;

for i:=1 to N do

begin

a:=(x[i]<=xk) and (x[i]>=xn);

if (x[i] mod 3 = 0) and a then

begin

s:=s+x[i];

k:=k+1;

end;

end;

IF K>0 THEN SR:=S/K

ELSE SR:=0;

WRITELN('S=',S:5,'K=',K:2,'СеРеднє АРИФМ.=’,sr:6:2);

p:=readkey

end.

Приклад 16. Знайти суму мінімального та максимального від'ємних парних елементів масиву Х(15).

Програма розв’язання даного прикладу має вид:

program pr16;

uses crt;

const N = 15;

type Ind = 1..N;

Mas = array[Ind] of integer;

var x:Mas; max,min,s,i:integer;

a:boolean; p:char;

BEGIN CLRSCR;

WRITELN(‘ УВЕДІТЬ ‘,N,’ ЧИСЕЛ’);

FOR I:=1 TO N DO READ(X[I]);

WRITE(‘ ‘:20, ‘ВИХІДНИЙ МАСИВ’);

for i:=1 to N do

write(x[i]:4); writeln;

max := -maxint;

min := maxint;

for i:=1 to N do begin

a := (x[i]<=0) and (x[i] mod 2 = 0);

if (x[i]>max) and a then max := x[i];

if (x[i]<min) and a then min := x[i];

end;

s := max + min;

writeln(‘ ‘:10,’MAX=’,Max:4,’Min = ‘,min:4);

writeln(‘ ‘:20, ‘СУМА = ‘,s:4);

p:=readkey

end.