Протабулировать функцию 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.
Объяснение кода листинга программы
- const - объявляются константы, которые используются в коде
- a = 0; - объявляется константа a и присваивается ей значение 0
- b = Pi; - объявляется константа b и присваивается ей значение Пи
- line = '----------------------'; - объявляется переменная line и присваивается ей строковое значение
----------------------
- h = 0.1; - объявляется константа h и присваивается ей значение 0.1
- var - объявляются переменные, которые будут использоваться в коде
- x: Double; - объявляется переменная x и присваивается ей тип Double
- begin - начинается выполнение программы
- WriteLn(line); - выводится строка
----------------------
- WriteLn('| x | y(x) |'); - выводится строка
| x | y(x) |
- WriteLn(line); - выводится строка
----------------------
- x := a; - присваивается переменной x значение a
- repeat - начинается цикл повторений
- WriteLn('| ', x:3:1, ' | ', Sin(x):4:2, ' |'); - выводится строка
| x | sin(x) |
- x := x + h; - значение переменной x увеличивается на h
- until (x >= b); - выполняется до тех пор, пока x не станет больше или равно b
- WriteLn(line); - выводится строка
----------------------
- end. - заканчивается выполнение программы