Лабораторная работа № 2: ” Программирование разветвлений ”
Program Lab2a; Программа по имени Lab2a
Var Раздел описания переменных
a,b,c:real; Переменные a,b,c – вещественного типа
Begin Начало раздела операторов
writeln('Введи a,b'); Вывод текста
read(a,b); Ввод переменных
if a>b then c:=(a-b)/(a*b); Если а>b тогда переменной с присваивается значение выражения (a-b)/(a*b)
if a<=b then c:=exp(b*ln(a)); Если а<=b тогда переменной с присваивается значение выражения exp(b*ln(a))
writeln('c=',c:10:3); Вывод текста и значения переменной с
End. Конец раздела операторов
Program Lab2b; Программа по имени Lab2b
Var Раздел описания переменных
a,c:integer; Переменные a,c – вещественного типа
begin Начало раздела операторов
read(a); Ввод переменных
case a of 0: c:=2; В случае если a = 0, то c принимает значение 2
1..10: c:=3; В случае если a равно от 1 до 10, то с принимает значение 3
-1,11: c:=4 В случае если а = 1 или -11, то с принимает значение 4
else c:=5 Иначе с принимает значение 5
end; Kонец раздела операторов
writeln(c); Вывод переменной
end. Конец программы
Program Lab2c; Программа по имени Lab2с
Var Раздел описания переменных
a,b,y,x:real; Переменные a,b,c – вещественного типа
Begin Начало раздела операторов
writeln('Введи a,b,x'); Вывод сообщения
read(a,b,x); Ввод переменных
if b<=2 then y:=sqr(sin(x))+abs(exp(a)); Если b<=2 тогда у присваивается значение выражения sin2(x)+| ea|
if b>2 then y:=(sin(0.57)/cos(0.57))*(ln(b-2)/ln(10)); Если b>2 тогда y=tg(0,57)*Lg(b-2);
writeln('y=',y:10:3); Вывод у
End. Конец раздела операторов
Program Lab2d; Программа по имени Lab2d
Var Раздел описания переменных
C,C0,b,y,n,R:real; Переменные C,C0,b,y,n,R – вещественного типа
Begin Начало раздела операторов
writeln('Введи R,C,n'); Вывод сообщения
read(R,C,n); Ввод переменных
if R<=1 then y:=1.5*sqrt(C); Если R<=1 то y=1.5* C 1/2
if R>1 then y:=1.3*sqrt(C); Если R>1 то y=1.3* C 1/2
C0:=power(R,y)/n; Переменной С0 присваивается значение (Rу)/n
writeln(C0); Вывод С0
End. Конец раздела операторов
Program Lab2e; Программа по имени Lab2e
Const Раздел описания констант
pi=3.14; Константа П равная 3,14
Var Раздел описания переменных
Za,A1,Z,a:real; Переменные C,C0,b,y,n,R – вещественного типа
Begin Начало раздела операторов
writeln('Введи a,Z'); Вывод сообщения
read(a,Z); Ввод переменных
if (a>=0) and (a<=90) then A1:=sin(a*pi/180); Если a>=0 и a<=90 то A1=sin(a*pi/180);
if (a>90) and (a<180) then A1:=0.7+0.35*a/90; Если a>90 и a<180 то A1=0.7+0.35*a/90
Za:=A1+Z; Переменной Za присваивается значение A1+Z
writeln(Za); Вывод переменной Za
End. Конец раздела операторов
Program Lab2f; Программа по имени Lab2f