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

Приклад 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. Останов.

Блок-схема

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

Крок 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.