Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:сугоняк э-112 лр2вар3
.pas Program program2_1;
const
a=-2.7; b=-0.27;
var x: real;
z: real;
begin
writeln ('введите x');
read(x);
if (x>=0) and (x<=7) then
if x<2.3 then z:=(a+b)/(exp(x)+cos(x))
else if x<5 then z:=(a+b)/(x+1)
else if x<=7 then
begin z:=exp(x)+sin(x);
writeln ('z=',z:10:3)
end
else writeln('не могу посчитать');
end.
const
a=-2.7; b=-0.27;
var x: real;
z: real;
begin
writeln ('введите x');
read(x);
if (x>=0) and (x<=7) then
if x<2.3 then z:=(a+b)/(exp(x)+cos(x))
else if x<5 then z:=(a+b)/(x+1)
else if x<=7 then
begin z:=exp(x)+sin(x);
writeln ('z=',z:10:3)
end
else writeln('не могу посчитать');
end.
Соседние файлы в предмете Информатика