Помогите составить Табуляцию

gaben134 · 07.04.2016, 21:35

Вычислить и вывести на экран значение функции, заданной графически, на интервале от Хнач до Хкон с шагом h. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.
Разработку алгоритма построения таблицы выполнить с помощью цикла с заранее неизвестным числом повторений
Разработку алгоритма вычисления функции выполнить методом половинного деления цепочки ситуаций.
Ещё нужно использовать не function а while(по словам препода)

Vladimir_S · 08.04.2016, 10:53

Извините, чем могу.
Видите ли, на мой взгляд смысл подобных сентенций

Цитата:

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

Разработку алгоритма вычисления функции выполнить методом половинного деления цепочки ситуаций.

боюсь, навсегда останется тайной препода, их изрекающего. Так что уж не взыщите:

Код:

Const
 Xbeg=-10.0;
 Xfin=8.0;

Var
 x,y,h:Real;

Begin   
 Write(' h = ');
 Readln(h);
 Writeln('     x              y');
 x:=Xbeg;
 while x<=-6.0 do
  begin
   y:=Sqrt(4-Sqr(x+8))-2.0;
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 while x<=2.0 do
  begin
   y:=x/2+1;
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 while x<=6.0 do
  begin
   y:=0;
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 while x<=8.0 do
  begin
   y:=Sqr(x-6);
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 Readln
End.

07.04.2016, 21:35	#1 (permalink)
gaben134 Member Регистрация: 07.04.2016 Сообщений: 26 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить Табуляцию Вычислить и вывести на экран значение функции, заданной графически, на интервале от Хнач до Хкон с шагом h. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. Разработку алгоритма построения таблицы выполнить с помощью цикла с заранее неизвестным числом повторений Разработку алгоритма вычисления функции выполнить методом половинного деления цепочки ситуаций. Ещё нужно использовать не function а while(по словам препода) Миниатюры

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