Var Раздел описания переменных
M,a,b,g,l,x:real; Переменные M,a,b,g,l,x – вещественного типа
Begin Начало раздела операторов
writeln('Введи a,b,g,l'); Вывод сообщения
read(a,b,g,l); Ввод переменных
x:=l-sqrt(b*(l+a)/3); Переменной х присваивается значение l-(b*(l+a)/3)1/2
if a=b then M:=g*l*l/12; Если a=b то M=g*l*l/12
if a<b then M:=(g*(l-x)/6*(l+a))-(g/(6*b))*power((l-x),3); Если a<b то M=(g*(l-x)/6*(l+a))-(g/(6*b))* (l-x)3
writeln(M); Вывод М
End. Конец раздела операторов
Program Lab2g; Программа по имени Lab2g
Var Раздел описания переменных
j,d,h,Z0,m,a,Q,w,b,g:real; Переменные j,d,h,Z0,m,a,Q,w,b,g – вещественного типа
Begin Начало раздела операторов
writeln('Введи j,d,h,Z0,m,a,b,g'); Вывод сообщения
read(j,d,h,Z0,m,a,b,g); Ввод переменных
if j=1 then w:=b*h; Если j=1 то w=b*h
if j=2 then w:=3.14*d*d/4; Если j=2 то w=3.14*d*d/4
if (j=3) or (j=4) then w:=(a+b)*h/2; Если j=3 или j=4 то w=(a+b)*h/2
Q:=m*w*sqrt(2*g*Z0); Переменной Q присваивается значение
m*w* (2*g*Z0)1/2
writeln(Q); Вывод Q
End. Конец раздела операторов
Program Lab2h; Программа по имени Lab2h
Var Раздел описания переменных
B,n,m,y,x:real; Переменные M,a,b,g,l,x – вещественного типа
Begin Начало раздела операторов
writeln('Введи y,x,n,m'); Вывод сообщения
read(y,x,n,m); Ввод переменных
if x>y then B:=cos(power(n,m))/n; Если x>y то B=cos(nm)/n
if x=y then B:=m+(sin(n)/cos(n)); Если x=y то B=m+tg(n)
if x<y then B:=1/(power(sin(m),n)*x); Если x<y то B=1/( sinn(m)*x)
writeln(B); Вывод В
End. Конец раздела операторов
Program Lab2i; Программа по имени Lab2i
Var Раздел описания переменных
u,x:real; Переменные u,x – вещественного типа
Begin Начало раздела операторов
writeln('Введи x'); Вывод сообщения
read(x); Ввод переменной
if (x>=0) and (x<=5) then u:=1; Если x>=0 и x<=5 то u=1
if (x<(-1)) and (x>10) then u:=0; Если x<(-1) и x>10 то u=0
writeln(u); Вывод и
End. Конец раздела операторов
Program Lab2j; Программа по имени Lab2j