Табулирование функции — Pascal

  • В этой теме 0 ответов, 1 участник, последнее обновление 1 месяц, 3 недели назад сделано Васильев Владимир Сергеевич.
Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #6798
      @admin
      StudLance.ru

      Составить программу табулирования функции 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.

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

      StudLance.ru

Просмотр 0 веток ответов
  • Для ответа в этой теме необходимо авторизоваться.
×