Технический форум - Помогите, пожалуйста, написать программу решения геометрической задачи в Паскаль

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

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Помогите, пожалуйста, написать программу решения геометрической задачи в Паскаль

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

Цитата:

Сообщение от Anastasia12 (Сообщение 2433434)

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

Да пожалуйста:

Код:

Var

 x,y:Real;

 xC:Integer;



Begin

 Repeat

  repeat

   Write('Enter x (0 to quit): ');

   Readln(x);

   if x<0 then writeln('Error! X must be >=0');

  until x>=0;

  xC:=Trunc(x);

  if (xC mod 2)=0 then Inc(xC);

  y:=Sqrt(1-Sqr(1.0*xC-x));

  Writeln('Y = ',y:0:3);

 Until x=0;

End.

спасибо большое:preved: