Информатика. Часть 1. Мойзес О.Е - 101 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

101
Модуль
UNIT MOL; {заголовок модуля}
INTERFACE {раздел интерфейса}
Type mas=array[1..4] of real;
Var MD,MM:mas;
i:integer;
{объявление функции и процедуры}
Function K(ko,e,r,t:real):real;
Procedure MASS(ММ,МD:mas;var MS:real);
IMPLEMENTATION {раздел реализации}
Function K(k0,e,r,t:real):real;
var k1:real;
i:integer;
begin
k1:=k0*exp(-e/(r*t));
k:=k1
end;
Procedure MASS(ММ,МD:mas;var MS:real);
var i:integer;
begin
MS:=0;
for i:=1 to 4 do
MS:=MS+MM
[i]∗MД[i];
end
end.
Текст модуля записывается в файл с именем MOL.pas и
транслируется.
Основная программа
Program MolMas;
Uses Mol; {подключение модуля}
Var MM,MД:mas;
C1,C2,W,k0,e,r,t,ms:real;
begin
write(’Введите k0 e r t C1 C2’);

Страницы