Расчет функции заданной графически, Расчёт функции для каждой функции отдельно Опции

[latysh]

Доброе время суток уважаемые форумчане!
Имеется блок-схема(см.ниже), к этой блок схема имеется программа :
program func;
var x,y:real;
begin
writeln('Введите значения X ');
readln (x) ;
if(x<=0) then begin
y:=exp(x)
end ;
if (x>0) and (x>3*pi/2)then begin
y:=cos(x)
end;
if (x>3*pi/2)then begin
y:=sqrt(x-(3*pi/2));
end;
writeln ('Результат=',y);
end.



Нужно сделать так,что бы значения х считались для каждой функции отдельно

http://www.imageup.ru/s352010

Сообщение отредактировано: latysh - 24.05.2010 23:43