Составить алгоритм и написать код программы

[kasper182]

Составить алгоритм и написать код программы

Составить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли:

 

[Vladimir_S]

Составить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли

Фу! И не стыдно с такой ерундой по форумам бегать? Впрочем, полное нежелание осваивать самые азы программирования аукнется очень скоро. И очень больно.

Var
 x,y:real;
Begin
 Repeat
  Write('x= ');
  Readln(x);
  If (x<0) or (x>6) then
   Writeln('Invalid x!');
 Until (x>=0) and (x<=6);
 if x<=2 then
  y:=Sqrt(1-Sqr(1-x))
 else
 if (x>2) and (x<=4) then
  y:=-Sqrt(1-Sqr(3-x))
 else
  y:=Sqrt(1-Sqr(5-x));
 Writeln('y = ',y:5:3);
 Readln;
End.