Вычислить функцию в блок схеме ,в программе и в ручном счете - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста, нужно вычислить функцию в блок схеме ,в программе и в ручном счете


textual

Код к задаче: «Вычислить функцию в блок схеме ,в программе и в ручном счете - Turbo Pascal»

uses crt;
var a,x,u:real;
begin
clrscr;
write('a=');
readln(a);
write('x=');
readln(x);
if x>=0 then
 begin
  if a<0 then writeln('функция не определена')
  else
   begin
    u:=x*sqrt(a)+a*sqrt(x);
    writeln('u=',u:0:3)
   end
 end
else if(x>-1)and(x<0)then
 begin
  u:=abs(x-a)+sin(a);
  writeln('u=',u:0:3)
 end
else if x<-1 then
 begin
  u:=x*x+3*x-1.5;
  writeln('u=',u:0:3)
 end
else writeln('функция не определена');
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.000 из 5

Источник