Технический форум - Pascal. Ветвления

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

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

- - Pascal. Ветвления (http://www.tehnari.ru/f43/t256486/)

Dizre

07.11.2017 19:56

Pascal. Ветвления

Вложений: 1

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

Vladimir_S

08.11.2017 10:10

Да легко:

Код:

Var

 x,y:Real;

 Cp:Integer;



Begin

 Repeat

  repeat

   Write('X (0 to quit) = ');

   Readln(x);

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

  until x>=0;

  Cp:=Trunc(x)+1;

  if (Cp mod 2)=1 then

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

  else

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

  Writeln('Y = ',y:7:5);

 Until x=0;

End.

Часовой пояс GMT +4, время: 19:08.