Главное меню

Вход на сайт

Кто на сайте?

Сейчас 170 гостей и ни одного зарегистрированного пользователя на сайте

Написать программу на языке Pascal для реализации разветвляющегося алгоритма

Image

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.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте