Разное - помогиде понять когд программы на паскале

Разное - помогиде понять когд программы на паскале

Новый участник

Сообщения: 8
Благодарности: 0

условие программа для приближенного вычисления интеграла изображенного ниже на картинке методом трапеций

код программы
Program P2;
var a,b,s,h,x:rasl;
i,n:integer;
function F(x:real):real;
begin
F:=5*x/(x*x+4);
end;
begin
clrscr;
writeln('введите приделы интегрирования');
write('A=');readln(a);
write('B=');readln(b);
write ('введите число разбиений');
readln(n);
h:=(b-a)/n;
s:=(F(a)+F(b))/2;
x:=a;
for i:=1 to n-1 do
begin
x:=x+h;
s:s+F(x);
end;
s:h*s;
write('значение интеграла',s:10:4);
end.
Мин

Отправлено: 17:10, 12-05-2013

lxa85

Необычный

Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

grethin999, начнем с того, что программа работает не правильно.
В ней совершенно отсутствуют комментарии, поэтому приходится смотреть работу метода в справочниках.
(Метод трапеций)

Цитата grethin999:

s:s+F(x); s:h*s; »

синтаксические ошибки.

Цитата grethin999:

Код:

h:=(b-a)/n;
s:=(F(a)+F(b))/2;
x:=a;
for i:=1 to n-1 do begin
    x:=x+h;
    s:s+F(x);
end;

логическая ошибка. Переменные высоты "h" и площади "s" должны вычисляться для каждого промежутка.

P.S. Обрамляйте пожалуйста код тегом code (символ на панели редактирования -- #) Пример использования: [code] код программы [/code]. Так же ставьте точки в конце предложений, а новые начинайте с заглавной буквы. Так проще читать и соотв. помогать.

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Delirium, Iska

Отправлено: 18:21, 12-05-2013 | #2