Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Табулирование функции

Автор: supergiperlamer 26.11.2006, 23:12

Выполнить табулирование функции:

y=b/x*x , где x изменяется от 1 до 15 с постоянным шагом h=0,1 , при этом для каждого x параметр b изменяется от 20 до 30 с шагом 1.

(требуется написать программу в паскале)

Автор: volvo877 27.11.2006, 01:43

Код

const
  step = 0.1;
var
  b: integer;
  x: real;

begin
  x := 1;
  write('X \ B');
  for b := 20 to 30 do write(b:6);
  writeln;

  repeat
    write(x:5:2);
    for b := 20 to 30 do
      write((b / sqr(X)):6:2);
    writeln;
    X := X + step;
  until X > (15 + step / 2);
end.

Автор: supergiperlamer 27.11.2006, 13:00

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

Автор: Alexeis 27.11.2006, 14:19

M
alexeis1

Модератор: если ответ найден, то необходимо помечать задачу как решенную