Приклад 1. Створити модуль, що містить процедуру вводу даних в масив дійсних чисел довільного розміру (але не більше 50 елементів), функцію визначення суми елементів масиву, функцію визначення найбільшого елементу масиву, процедуру виведення елементів масиву довільного розміру.
UNIT ObrMas;
INTERFACE
Type
TM=array [1..50] of real;
Procedure VVOD (var M:TM;var n:word);
Procedure VIVOD (var M:TM;n:word);
Function Summa (var M:TM;n:word):real;
Function max (var M:TM;n:word):real;
IMPLEMENTATION
Procedure VVOD;
var
i:word;
begin
repeat
writeln (‘Введіть розмір масиву (не більше 50)’);
readln (n);
until n<=50;
for i:1 to n do
begin
write (‘Введіть наступний елeмент’);
readln (M[i]);
end;
end;
procedure VIVOD;
var
i:word;
begin
writeln (‘Вміст масиву’);
for i:=1 to n do
write (M[i]:7:2);
writeln;
end;
Function Summa (var M:TM;n:word):real;
Var
i:word;
S:real;
Begin
S:=0;
For i:=1 to n do
S:=S+M[i];
Summa:=S;
End;
Function max (var M:TM;n:word):real;
Var
i:word;
mx:real;
Begin
mx:=M[1];
For i:=1 to n do
If M[i]> mx then
Mx:=M[i];
max:=mx;
End;
End.
Приклад 2. Розробити програму що формує масив 30 дійсних елементів, знаходить суму його елементів, мах елементі вивести вміст масиву.
Program PR;
Uses ObrMas;
Var
A:TM;
K:word;
Begin
VVOD (A,k);
Writeln (‘Сума елементів масиву =’,Summa(A,k):7:2 );
Writeln (‘Максимальний елемент масиву =’,max(A,k):7:2);
VIVOD (A,k);
End.
Завдання для самоперевірки.
1. Який сенс в використанні модулів.
2. Яким чином підключається модуль до програми.
3. Призначення розділу об¢яв.
4. Призначення розділу реалізацій.
5. Призначення розділу ініціалізації.
