Санкт-Петербургский Государственный Университет
Низкотемпературных и Пищевых Технологий
Лабораторная работа № 2
«Ознакомление с алгоритмическим языком Паскаль»
Выполнил: Дорогин В.А.
Проверил: Круглов А. А.
2004 г.
Program x;
var v:real;
D:real;
S:real;
n:integer;
z,a,b:integer;
procedure Rasch_n(a1:integer; b1:integer; var n1:integer);
begin
n1:=a1*b1;
writeln ('n1= ',n1);
end;
begin
write ('введите D= ,S= ,z= ,a= ,b= ');
readln (d,s,z,a,b);
rasch_n (a,b,n);
v:=pi*d*d*s*n*z/4;
writeln ('теоретический объем v=',v:3:4);
end.