Цитата:
Сообщение от Anastasia12
написать код программы, вычисляющей значения функции 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.