Помогите отладить программу - Free Pascal

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

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

Помогите отладить пожалуйста
program kyrsov;
uses crt;
var
function f(x:real):real;
i:integer;
a,b,s:real;
begin
writeln ('vvod a,b:');
readln (a,b);
f:=sin(0.4*x)-3*ln(x);
t:array[1..5]of real=(0.832498,0.374541,0,-0.374541,-0.832498);
x:array[1..5]of real;
y:array[1..5]of real;
end;
s:=0
for i:=1 to 5 do
begin
x[i]:=(b+a)/2+(b-a)/2*t[i];
y[i]:=f[i];
s:=s+y[i];
end;
s:=s*(b-a)/2;
writeln('s=',s:10:7);
end.

Решение задачи: «Помогите отладить программу»

textual
Листинг программы
program kyrsov;
uses crt;
function f(x:integer):real;
begin
f:=sin(0.4*x)-3*ln(x);
end;
var i:integer;
    a,b,s:real;
    t:array[1..5]of real=(0.832498,0.374541,0,-0.374541,-0.832498);
    x:array[1..5]of real;
    y:array[1..5]of real;
begin
clrscr;       ;
writeln ('vvod a,b:');
readln (a,b);
s:=0;
for i:=1 to 5 do
 begin
  x[i]:=(b+a)/2+(b-a)/2*t[i];
  y[i]:=f(i);
  s:=s+y[i];
 end;
s:=s*(b-a)/2;
writeln('s=',s:10:7);
readln
end.

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

  1. Объявлены переменные: i, a, b, s, t, x, y.
  2. Пользователю предлагается ввести значения a и b.
  3. Инициализирован массив t.
  4. Задана формула для вычисления x и y.
  5. Выполняется цикл по i от 1 до 5.
  6. Каждый элемент массива x и y вычисляется по формуле.
  7. Каждый элемент y добавляется к переменной s.
  8. Переменная s умножается на (b-a)/2.
  9. Выводится значение s.
  10. Программа ожидает ввода пользователя для завершения работы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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