Как в паскале составить программу табулирования функции

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х₀, Х_n – начало и конец промежутка табулирования, при этом (Х0< Х_n); n – число шагов разбиения промежутка [Х₀, X_n]; F(X) – описание табулируемой функции.

При составлении алгоритма предполагается, что X – текущее значение аргумента; h – шаг изменения аргумента (иногда его называют шагом табуляции функции); i – текущий номер точки, в которой вычисляются функция (i = 0 .. n).
Количество интервалов n, шаг табуляции h и величины Х₀, Х_n связаны между собой фор-мулой:

Интерпретация переменных (т. е. их обозначение в математической постановке задачи, смысл и тип, обозначения в блок-схеме и программе) приведена в таблице имен.

Пример 17. Табулировать функцию F(X) в N равноотстоящих точках, заданную на промежутке [Х₀, X_n], где

PROGRAM PR17;
VAR
I, N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN(‘ВВЕДИТЕ X0, XN, N’);
READLN(X0, XN, N);
H := (XN — X0)/N;
FOR I:=0 TO N
DO BEGIN
       Y:= SIN(X+1)*EXP(2-X*X);
       X := X0 + I * H;
       WRITELN (X:4:1,»,Y:9:6)
       END
END.

Теперь запишем решение этой же задачи, но с использованием цикла While…DO.

PROGRAM PR17_while;
VAR
N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN(‘ВВЕДИТЕ X0, XN, N’);
READLN(X0, XN, N);
H := (XN — X0)/N;
X:=X0;
WHILE X<=XN
DO BEGIN
       Y:= SIN(X+1)*EXP(2-X*X);
       X := X + H;
       WRITELN (X:4:1,»,Y:9:6)
       END
END.

Предыдущая статья: Примеры использования различных операторов цикла.
Оглавление: Лекции по Pascal.
Следующая статья: Арифметический цикл с рекуррентной зависимостью.

Составить программу табулирования функции y=x*sin(x) на отрезке [a, b] с шагом h=(b-a)/m, где m – заданное число. Где a = 0, b = 3*PI, m = 10;

Рассмотрим решение задачи с помощью различных видов циклов.

Решение с помощью цикла Пока

Блок-схема:

Исходный код:

program lr4_1a;

var
  a, m, i: integer;
var
  b, h, x, y: real;
begin
  a := 0;
  b := 3 * Pi;
  m := 10;
  h := (b - a) / m;
  x := 0;
  i := 0;
  while x < b do
  begin
    x := (h * i);
    y := x * Sin(x);
    writeln(x / Pi, 'Pi - значение ' + Round(y, 2));
    i := i + 1;
  end;
end.

Протокол работы:

Решение с помощью цикла До

Исходный код:

program lr4_1b;

var
  a, m, i: integer;
var
  b, h, x, y: real;
begin
  a := 0;
  b := 3 * Pi;
  m := 10;
  h := (b - a) / m;
  x := 0;
  i := 0;
  repeat
    begin
      x := (h * i);
      y := x * Sin(x);
      writeln(x / Pi, 'Pi - значение ' + Round(y, 2));
      i := i + 1;
    end
  until x >= b;
end.

Резльтаты работы программы эквивалентны приведенымм выше.

Итак, основное
назначение циклов — обработка большого
объема данных. Математически эта
обработка зачастую сводится к поиску,
выбору и статистической обработке
нужных величин. Практически в любой
реальной задаче мы ищем максимальные
и минимальные значения в наборе данных,
суммируем или перемножаем требуемые
данные, определяем арифметическое
среднее или количество элементов,
отвечающих условию. Для решения всех
этих распространенных задач существуют
типовые
алгоритмы,
задающие правила выполнения соответствующих
расчетов. Изучением этих алгоритмов мы
займемся в гл. 11 и 12.

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

11.1. Алгоритм табулирования

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

В общем виде
алгоритм можно описать так:

1.    
до цикла
задается начальное значение управляющей
переменной, условием выхода из цикла
служит достижение управляющей переменной
конечного значения;

2.    
в теле цикла
на каждом шаге вычисляется очередное
значение функции, зависящее от управляющей
переменной, затем формируется строка
таблицы;

3.    
в конце шага
цикла значение управляющей переменной
(обозначим ее x)
изменяется оператором вида x:=x+d;,
где d
— заданный шаг по управляющей переменной.

В качестве примера
составим таблицу синусов в пределах от
0
до π с шагом по аргументу 0.25.
Обозначим аргумент как x,
значение синуса от x
обозначим как y.
В простейшем случае программа табулирования
может выглядеть так:

var
x,y:real;

begin

 writeln(‘x’:10,’sin(x)’:10);

  {печать
заголовка таблицы до цикла}

 x:=0;
{начальное значение аргумента}

 while
x<=pi+1e-6
do begin

   y:=sin(x);
{вычисление функции}

   writeln
(x:10:2, y:10:2);

    {печать
строки таблицы}

   x:=x+0.25;
{шаг по x}

 end;

end.

«Расширим»
задачу за счет использования произвольных
границ изменения аргумента и произвольного
шага, а также выполнения всех необходимых
проверок корректности. Пусть, например,
требуется составить таблицу значений
следующей функции:

,

 значения
a,
b
вводятся пользователем.

Напишем текст
программы, сопроводив его соответствующими
комментариями.

var
x,f,a,b,dx:real;

 n:integer;
{счетчик выведенных строк}

begin

 repeat
{Цикл ввода с контролем

  правильности
значений: a,dx,b должны быть

  числами,
dx>0, a+dx должно быть меньше b}

  writeln
(‘Введите
a,dx,b:’);

  {$I-}read
(a,dx,b);{$I+}

  if
IoResult <> 0 then begin

   writeln
(‘Вы
не
ввели
3 числовых
‘,

    ‘значения,
попробуем еще раз’);

   continue;

  end;

  if
(dx<=0) or (a+dx>=b) then begin

   writeln
(‘Вы не ввели допустимые ‘,

    ‘данные,
попробуем еще раз’);

   continue;

  end

  else
break;

 until
false;

 {Печать
заголовка
таблицы}

 writeln;

 writeln
(‘x’:10,’f(x)’:10);

 x:=a;

 n:=2;
{2 строки уже использованы}

 while
x<=b+1e-6 do begin

   {в
условии цикла учитываем возможную

    погрешность
работы с real!}

  if
x<=0 then f:=sqr(x)*x

  else
f:=exp(1/3*ln(abs(x)));

   {корень
3 степени взяли через exp и ln}

  writeln
(x:10:2,f:10:2);

  n:=n+1;

  if
n=24 then begin

  {На
экране консоли по умолчанию 25
строк}

   write
(‘Нажмите
Enter…’);

   reset
(input); readln;

   n:=1;

  end;

  x:=x+dx;

 end;

 writeln
(‘Таблица
выведена’);

 reset
(input); readln;

end.

Как видно из
примера, основной порядок действий —
такой же, как в предыдущей задаче. Так
как экран консоли по умолчанию содержит
всего 25 строк, с помощью переменной n
мы дополнительно контролируем число
уже выведенных строк и делаем по
заполнении экрана паузу до нажатия
пользователем клавиши Enter.

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

Известна стоимость
единицы товара. Составить таблицу
стоимости 1, 2, …, K
единиц товара, значение K
вводится.

Так как число
единиц товара — заведомо целое, при
программировании задачи будет удобен
цикл for:

 var
t:real;

    i,k:integer;

begin

 writeln;

 writeln
(‘Стоимость единицы товара:’);

 read
(t);

 writeln
(‘Количество единиц товара:’);

 read
(k);

 writeln
(‘Единиц’:10,’Стоимость’:10);

 for
i:=1 to k do

  writeln
(i:10,(i*t):10:2);

end.

Здесь для простоты
мы исключили сделанные в предыдущем
примере проверки. Стоимость единицы
товара обозначена t,
переменная i
необходима для перебора возможных
значений единиц товара в цикле for.
Поскольку счетчик цикла for
автоматически меняется с шагом 1, а
оператором writeln
можно выводить не только значения
переменных, но и выражения, основной
цикл программы состоит из одного
оператора и не нуждается в операторных
скобках.

Соседние файлы в папке учебники по паскалю

• #
• #
• #
• #
• #