Вычислить значения функции, заданной графически

:Hater: · 26.10.2012, 16:31

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

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

:Hater: · 26.10.2012, 17:19

простите не ту вставил картинку. вот график который мне нужен

Vladimir_S · 26.10.2012, 22:43

Цитата:

Сообщение от :Hater:

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

Да ну... это даже не смешно.

Код:

Var
 x:real;
Begin
 Write('x= ');
 Readln(x);
 If x<0 then
  Writeln('Invalid x!')
 else
  Writeln('y = ',(1-Sqrt(1-Sqr(x-2.0*(Trunc(x) div 2)-1))):5:3);
 Readln;
End.

26.10.2012, 16:31	#1 (permalink)
:Hater: Новичок Регистрация: 26.10.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вычислить значения функции, заданной графически Здравствуйте помогите написать программу к решения геометрической задачи в паскальСоставить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли: Миниатюры

26.10.2012, 17:19	#2 (permalink)
:Hater: Новичок Регистрация: 26.10.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	простите не ту вставил картинку. вот график который мне нужен Миниатюры

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