Протабулировать функцию y = sin (x) на промежутке [0; pi] с шагом 0.1 - Pascal

Узнай цену своей работы

Формулировка задачи:

Задача в паскале немогу решыть 1. Протабулировать функцию y = sin (x) на промежутке [0; pi] с шагом 0.1. Результаты вычислений вывести на экран в виде таблицы. Найти минимальное и максимальное значение функции на этом промежутке. (Команда repead until). 2. Определить среднее арифметическое квадратов нечетных чисел от а до с (значение нечетных чисел а и с задает пользователь, a <c).

Решение задачи: «Протабулировать функцию y = sin (x) на промежутке [0; pi] с шагом 0.1»

textual
Листинг программы
const
    a = 0;
    b = Pi;
    line = '----------------------';
    h = 0.1;
var
    x: Double;
begin
    WriteLn(line);
    WriteLn('|  x  | y(x) |');
    WriteLn(line);
    x := a;
    repeat
        WriteLn('| ', x:3:1, ' | ', Sin(x):4:2, ' |');
        x := x + h;
    until (x >= b);
    WriteLn(line);
end.

Объяснение кода листинга программы

  1. const - объявляются константы, которые используются в коде
  2. a = 0; - объявляется константа a и присваивается ей значение 0
  3. b = Pi; - объявляется константа b и присваивается ей значение Пи
  4. line = '----------------------'; - объявляется переменная line и присваивается ей строковое значение ----------------------
  5. h = 0.1; - объявляется константа h и присваивается ей значение 0.1
  6. var - объявляются переменные, которые будут использоваться в коде
  7. x: Double; - объявляется переменная x и присваивается ей тип Double
  8. begin - начинается выполнение программы
  9. WriteLn(line); - выводится строка ----------------------
  10. WriteLn('|  x  | y(x) |'); - выводится строка | x | y(x) |
  11. WriteLn(line); - выводится строка ----------------------
  12. x := a; - присваивается переменной x значение a
  13. repeat - начинается цикл повторений
  14. WriteLn('| ', x:3:1, ' | ', Sin(x):4:2, ' |'); - выводится строка | x | sin(x) |
  15. x := x + h; - значение переменной x увеличивается на h
  16. until (x >= b); - выполняется до тех пор, пока x не станет больше или равно b
  17. WriteLn(line); - выводится строка ----------------------
  18. end. - заканчивается выполнение программы

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы