Составить алгоритм и написать код программы

kasper182 · 16.11.2012, 09:05

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

Vladimir_S · 16.11.2012, 10:15

Цитата:

Сообщение от kasper182

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

Фу! И не стыдно с такой ерундой по форумам бегать? Впрочем, полное нежелание осваивать самые азы программирования аукнется очень скоро. И очень больно.

Код:

Var
 x,y:real;
Begin
 Repeat
  Write('x= ');
  Readln(x);
  If (x<0) or (x>6) then
   Writeln('Invalid x!');
 Until (x>=0) and (x<=6);
 if x<=2 then
  y:=Sqrt(1-Sqr(1-x))
 else
 if (x>2) and (x<=4) then
  y:=-Sqrt(1-Sqr(3-x))
 else
  y:=Sqrt(1-Sqr(5-x));
 Writeln('y = ',y:5:3);
 Readln;
End.

16.11.2012, 09:05	#1 (permalink)
kasper182 Member Регистрация: 16.11.2012 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Составить алгоритм и написать код программы Составить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли: Миниатюры

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