Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Program_declar
.pas Program program2_23;
const
a=-2.7; b=-0.27;
label m1;
var x: real;
z: real;
begin
writeln ('введите x');
read(x);
if x<0 then begin
writeln ('Ошибка');
goto m1;
end;
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
z:=exp(x)+sin(x);
writeln ('z=',z:10:3);
m1:end.
const
a=-2.7; b=-0.27;
label m1;
var x: real;
z: real;
begin
writeln ('введите x');
read(x);
if x<0 then begin
writeln ('Ошибка');
goto m1;
end;
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
z:=exp(x)+sin(x);
writeln ('z=',z:10:3);
m1:end.
Соседние файлы в предмете Информатика