Составить программу по блок-схеме - Free Pascal
Формулировка задачи:
Друзья, помогите пожалуйста. Надо написать программу по этой блок-схеме. F(x)=2^x-2*cos(x) И надо будет вставить эту формулу туда, выручайте, последняя надежда на вас.
XiUD7AymW_4.jpg
Решение задачи: «Составить программу по блок-схеме»
textual
Листинг программы
function f(x:real):real;
begin
f:=exp(ln(2)*x)-2*cos(x);
end;
var a,b,h,s,x,i:real;
n:integer;
begin
writeln('Введите начало, конец интервала и количество точек');
readln(a,b,n);
h:=(b-a)/n;
s:=0;
x:=a+h;
repeat
s:=s+f(x);
x:=x+h;
until x>b;
i:=h*s;
write('Количество точек n=',n,' Интеграл=',i:0:3);{нафига выводить n, если его сами и ввели?}
readln
end.
Объяснение кода листинга программы
- Объявление функции f(x) с типом real
- Выражение для функции f(x)
- Объявление переменных a, b, h, s, x, i с типом real
- Объявление переменной n с типом integer
- Вывод сообщения с просьбой ввести начало, конец интервала и количество точек
- Считывание значений переменных a, b, n с помощью функции readln
- Вычисление шага h
- Инициализация переменной s значением 0
- Вычисление переменной x как суммы a и h
- Повторение цикла для вычисления суммы f(x) от a до b с шагом h
- Вычисление значения i как произведения h на сумму f(x)
- Вывод сообщения с количеством точек n и значением интеграла i
- Чтение символа для завершения работы программы