Составить программу вычисления значений функции - Pascal ABC (13289)
Формулировка задачи:
Пожалуйста, помогите составить программу
Составить программу вычисления значений функции F(X) на отрезке [A,B] в точках X1=А+Н, где Н=(В-А)/М, М – заданное число.
Вариант функции x-sin(x)
И такие методические указания:
1. Для задания значений Х и соответствующих значений функции следует использовать простые переменные.
2. Значение шага Н должно вычисляться один раз.
3. При изменении значения аргумента Х использовать оператор присваивания Х:=Х+Н, а не оператор с использованием операции умножения Х: = А + IН, что существенно сокращает время выполнения программы.
Заранее спасибо.
Забыл дополнить
Вариант функции x-sin(x) A=0 B=p/2 M=10
Решение задачи: «Составить программу вычисления значений функции»
textual
Листинг программы
program pr;
const
a = 0;
b = pi / 2;
var
m: integer;
h, y: real;
x1: real;
begin
writeln('Введите М');
readln(m);
h := (b - a) / m;
x1 := a;
repeat
y := x1 - sin(x1);
x1 := x1 + h;
until x1 > b;
writeln('F(x)= ', y);
end.
Объяснение кода листинга программы
- В программе объявлены три переменные: a, b и m.
- Значение переменной b вычисляется как pi / 2, где pi - это константа, равная 3.14159265358979323846.
- Переменная m инициализируется значением, введенным пользователем.
- Затем переменная h вычисляется как (b - a) / m.
- Переменная x1 инициализируется значением a.
- Затем в цикле повторяется следующее до тех пор, пока x1 не станет больше b:
- Вычисляется значение переменной y как x1 - sin(x1).
- Значение x1 увеличивается на h.
- В конце программы выводится значение y.