Технический форум - Программирование алгоритмов разветвляющейся структуры

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Программирование алгоритмов разветвляющейся структуры (http://www.tehnari.ru/f41/t87555/)

Днище

17.04.2013 17:34

Программирование алгоритмов разветвляющейся структуры

Вложений: 1

Паскаль. пожалуйста помогите решить задание)

interacia

17.04.2013 18:40

Код:

Program IF1;

var

Z:real;

x:real;

t:real;

begin

Write('Введите число x = ');

readln(X);

t:=2.2;

if X<0.5 then begin Z:=(LN(x)+sqr(x))/sqrt(x*x*x+t);

                 Writeln('Z:=',Z);

              end

else if (X>=0.5)and(x<=0.9)then

              begin

               Z:=sqrt(x+t)+1/(x*x*x);

               Writeln('Z:=',Z);

              end

else Writeln('X выходит за определяемые значения');

end.

Днище

17.04.2013 19:54

спасибо большое!

Часовой пояс GMT +4, время: 23:49.