Задача:
1) Используя подпрограммы создать массив y, элементы которого заданы формулой: ym=random(m), fy(m)
и массив g: gn=Fg(m)=n^2/2
m=1,2,...7
n= 1,2...9
Используя процедурный тип, определить в каждом массиве количество элементов >четырёх.
Как решал:
Код:
Программа(тут пока просто проверил работают модули или нет):
Program Nakol;
uses
mas1,mas2;
Begin
for m:=1 to 7 do
write(mas1[m],' ');
writeln;
writeln;
for n:=1 to 9 do
write(mas2[n],' ');
writeln;
writeln;
end.
Далее модули:
Код:
МОДУЛЬ 1
unit mas1;
interface
Var mas1:array[1..7] of byte;
m:byte;
implementation
begin
for m:=1 to 7 do
mas1[m]:=random(m);
end.
Код:
МОДУЛЬ 2
unit mas2;
interface
Var mas2:array[1..9] of real;
n:byte;
implementation
begin
for n:=1 to 9 do
mas2[n]:=(n*n)/2;
end.
Собственно, подпрограммами (они же модули?) задать массивы удалось, но я не могу понять как реализовать через процедурный тип подсчет, а именно какова структура будет.
На ум приходит одно:
Надо будет сделать еще один моуль, в котором будет функция для подсчета количества, а потом используя процедурный тип в заголовке еще одной функции выводить через нее результат полученный в модуле-подсчете.
Вобщем, подскажите пожалуйста, не напутал ли я что?