Предмет: Информатика, автор: Anko2013

Помогите составить блок-схему и программу!!!!!!!!!

Приложения:

Ответы

Автор ответа: petyaGavrikov
0
Программу, конечно, написать можно, но в условии явная ошибка (при x>=3 нужно вычислять корень из отрицательного числа)
var x,a:real;
begin
write('x='); readln(x);
if x<=-5
  then a:=15*x*x-13
  else if x<3 then a:=abs(x-3) else a:=sqrt(3*x-x*x);
writeln('a=',a);
end.
Приложения:
Автор ответа: vladmor
0
Согласен, получается корень из отрицательного ...
Автор ответа: vladmor
0
// Pascal
var a,x:real;
begin
  readln(x);
  if x<=-5 then a:=15*sqr(x)-13
  else
     if (x>-5) and(x<3) then a:=abs(x-3)
     else
         a:=sqrt(3*x-sqr(x));
writeln(a);
end.

Приложения:
Похожие вопросы