- Подробности
- Автор: Super User
- Категория: Паскаль
- Просмотров: 6044
Написать программу на языке Pascal для реализации разветвляющегося алгоритма

x – известные величины.
Решение
var x,y:real;
begin
writeln('');
write('Vvedite x=');
readln(x);
y:=0;
if x<=0.5 then
y:=exp((x-0.3)*ln(10))
else
if (0.5<x) and (X<=2.5) then
y:=sqr(x+0.5)
else
if x>3.5 then
y:=sqrt(x)
else
writeln('Znacheniae x ne sootvet ni odnomy iz yslovij');
writeln('y=',y:4:2);
readln;
end.

x – известные величины.
Решение
var x,y:real;
begin
writeln('');
write('Vvedite x=');
readln(x);
y:=0;
if x<=0.5 then
y:=exp((x-0.3)*ln(10))
else
if (0.5<x) and (X<=2.5) then
y:=sqr(x+0.5)
else
if x>3.5 then
y:=sqrt(x)
else
writeln('Znacheniae x ne sootvet ni odnomy iz yslovij');
writeln('y=',y:4:2);
readln;
end.