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

Anastasia12 · 12.11.2016, 10:49

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

Vladimir_S · 12.11.2016, 11:14

Цитата:

Сообщение от 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.

Anastasia12 · 12.11.2016, 11:32

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

reved:" class="inlineimg" />

12.11.2016, 10:49	#1 (permalink)
Anastasia12 Member Регистрация: 12.11.2016 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, написать программу решения геометрической задачи в Паскаль написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли

12.11.2016, 11:32	#3 (permalink)
Anastasia12 Member Регистрация: 12.11.2016 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо большоеreved:" class="inlineimg" />

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070