Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   помогиде понять когд программы на паскале (http://forum.oszone.net/showthread.php?t=260413)

grethin999 12-05-2013 17:10 2148674

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

код программы
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.
Мин

lxa85 12-05-2013 18:21 2148714

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]. Так же ставьте точки в конце предложений, а новые начинайте с заглавной буквы. Так проще читать и соотв. помогать.


Время: 13:44.

Время: 13:44.
© OSzone.net 2001-