Опис головної програми

1. У тілі головної програми в циклі Repeat... Until очищається екран (ClrScr).

2. Виробляється рішення задачі для одного комплекту вхідних даних N, K, A:

¨ Через виклик процедури Input(inv,NN,N) здійснюється введення довжини масиву N<=NN (змінні inv, NN є вхідними, змінна N - результат роботи процедури).

¨ Через цю же процедуру Input(inv,N,K) здійснює введення числа від’ємних елементів масиву, що зчитуються, ДО<=N (змінного іnvк, N передаються з головної програми в процедуру, значення змінної K повертається з процедури в головну програму).

¨ Процедура InputVector(N,A) здійснює введення елементів масиву А ( значення змінної N передається з головної програми, значення елементів масиву А передається з процедури).

¨ Процедура OutputVector(N,A) здійснює висновок елементів масиву А ( значення змінної N і значення елементів масиву А передаються з головної програми).

¨ Виводиться значення суми через функцію Summa(k,N,A) (значення параметрів ДО, N, A передається з головної програми);

¨ На екрані з'являється повідомлення «Знову? (Y/N)».

Змінній ch присвоюється значення натиснутої клавіші ch:=ReadKey і в залежності від відповіді керування передається на початок циклу (ch:=’ Y’) чи програма закінчує виконання (ch:= ‘N’).

ДОДАТОК 4

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

У лабораторній роботі № 4 задана квадратна матриця А розміром N * N (N<=10), що складається з дійсних елементів. Необхідно знайти середнє арифметичне значення елементів кожного зі стовпців цієї матриці.

Ім'я програми - WORK4.

· У поле опису бібліотек і констант заданий стандартний модуль CRT, визначена константа N=10.

· Описано власний тип даних Array для опису масиву розміром N * N, елементи якого мають тип Real, - Type Array=Array[1..N,1..N] of Real.

· Описано змінні: ціла k: Integer, масив A:Array; символьна змінна ch: char.

· Далі йдуть описи процедур Input, InputMatrix, OutputMatrix, і Evaluate.

· Записано головну програму, що викликає потрібні процедури і функції, відповідно до алгоритму рішення задачі.

Опис процедури Input

¨ У заголовку процедури описаний один формальний параметр:

вихідне k (значення визначається в процедурі і передається в головну програму).

¨ У циклі Repeat...Until (K<=N) and (K>1) вводиться значення змінної K - Readln(K) з перевіркою (тобто що вводиться K повинне бути більше одиниці і менше або дорівнює N - заданому за умовою максимальному значенню розміру масиву А). Потім керування передається в головну програму.

Опис процедури InputMatrix.

¨ У заголовку процедури описані параметри: K - вхідний параметр, переданий з головної програми, і A -вихідний параметр (масив елементів, що вводяться в процедурі, матриці А).

¨ Описано локальні цілі змінні i (лічильник числа рядків), j (лічильник числа стовпців) - integer.