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

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

N, переданий з основної програми;

A - масив елементів матриці, що вводяться.

¨ Описано локальні змінні:

i: integer - параметр циклу for;

Ra: Real - робоча змінна (елемент масиву, що вводиться,);

s1: String - рядок, формований для аварійного висновку.

¨ У циклі for вводяться значення елемента матриці через робочу змінну Ra і перевіряються на допустимі значення (у даному випадку взяті межі зміни для змінних типу longint).

¨ Якщо значення, що вводиться, задовольняє заданій умові, то елементам матриці присвоюється значення A[]]:=trunc(ra).

¨ Інакше

1) стрічковій змінний присвоюється значення s1:=inv5+inv4;

¨ (‘ значення, щов водяться, виходять за діапазон [- 147483648...2147483647]!!!!!!’).

 

2) це повідомлення виводиться на екран;

3) також на екран виводиться повідомлення «Повторите введення»;

4) керування передається на мітку L і знову вводимо значення елементів матриці з перевіркою на припустимі значення.

¨ Керування передається в головну програму, коли закінчиться цикл for.

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

¨ У заголовку процедури описані параметри: N, переданий з головної програми; A - масив виведених елементів матриці.

¨ Описано локальна перемінна i: integer - параметр циклу for.

¨ У процедурі в циклі for виводяться значення елементів масиву А. В операторі висновку Write(A[i]:11,’ ’) заданий формат для виведеного елемента масиву: A[i]:11, що показує, що для висновку значення елемента масиву А приділяється 11 позицій.

¨ Потім керування передається головній програмі.

Опис функції Summa

¨ У заголовку функції описані параметри: k - число від’ємних елементів масиву, що зчитуються, до<=N; N - розмірність масиву, А - масив елементів. Функція Summa описана, як Extended.

¨ У тілі функції задається лічильник від’ємних елементів масиву Кк, йому привласнюється початкове значення 1 (Kk:=1). Початкове значення суми дорівнює 0 (s:=0).

 

¨

У циклі for від одиниці до N вважається сума перших K від’ємних елементів масиву:

1) перевіряється A[i]<0 (від’ємне число) і одночасно перевіряється значення лічильника Кк <= K (не перевищує числа негативних елементів масиву, що зчитуються, K);

2) S:=S+A[i];

3) лічильник від’ємних чисел збільшується на одиницю Кк:=Кк+1.

¨ Після закінчення циклу функції Summa присвоюється значення отриманої суми всіх від’ємних чисел - Summa:=S.

¨ Керування передається в головну програму.