Информатика

Interface интерфейсная часть

Type

mas=array[1..6] of real; тип массива

Function MS(var m:mas):real; заголовок функций

Procedure MolDol(var Md,Mv:mas);заголовок процедур

 Var

Md,Mv,M:mas; i:integer;

• Implementation описание действий функции
• Function MS(var m:mas):real;
• var i:integer; S:real; Begin MS:=0;
• For i:=1 to 6 do
• M[i]:=12*i+2*(i+2);
• For i:=1 to 6 do
• S:=S+M[i];
• MS:=S/6;
• end;

• Procedure MolDol(var Md,Mv:mas);
• var
• i:integer; S:real;
• begin
• S:=0;
• For i:=1 to 6 do
• S:=S+Mv[i]/(12*i+2*(i+2));
• For i:=1 to 6 do
• Md[i]:=(Mv[i]/(12*i+2*(i+2)))/S;
• end;end.

• Program MM; Инициализация
• uses Mol; используем модуль
• Var i:integer;
• Begin
• For i:=1 to 6 do
• readln(Mv[i]);
• moldol(Md,Mv); обращение к процедуре
• For i:=1 to 6 do
• writeln(Md[i]);
• writeln(ms(m)); обращение к функции
• end.