Паскаль, вычисление методом чебышева интегралла

[Anya Lis]

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

program integral16;

function f(x:real):real;
begin
  f:=sin(0.4*x)-3*ln(x);
end;
var i:integer;

    t:array[1..3]of real=(0.832498,0.374541,0);
    x:array[1..5] of real;
    begin
    s:=0;
    a:=1;
    b:=2.5;
   for i:=1 to 5  do

begin
x[1]:=(b+a)/2+(b-a)/2*t[1];
x[2]:=(b+a)/2+(b-a)/2*t[2];
x[3]:=(b+a)/2+(b-a)/2*t[3];
x[4]:=1-x[2];
x[5]:=1-x[1];
y[i]:=f(x[i];
s=s+y[i];
end;
s:=s*(b-a)/2;
writeln ('s=',s);
end;

[ViktorR]

С точки зрения алгоритма можно посмотреть тут: http://www.km.ru/referats/DF2B60BD1C...B2D7F7E6D68031
С точки зрения ошибок:
- эту часть кода можно перенести и вставить перед циклом

x[1]:=(b+a)/2+(b-a)/2*t[1];
x[2]:=(b+a)/2+(b-a)/2*t[2];
x[3]:=(b+a)/2+(b-a)/2*t[3];
x[4]:=1-x[2];
x[5]:=1-x[1];

а тут нет закрывающейся скобки:

y[i]:=f(x[i];

Как-то так, ...
PS: Форматируйте код: Выделить текст кода и нажать "#", см. кнопки на форме окна редактирования.

[Anya Lis]

у меня очень много ошибок с: а, b, s
пишет Inentifier not found

[ViktorR]

Естественно.
У Вас описан только тип для переменной i.
В разделе var добавьте описание для переменных, на которые идет "ругань".


Как-то так, ...

[Atherakhia]

Сообщение от Anya Lis

пишет Inentifier not found

Так они не объявлены как переменные

[Serge_Bliznykov]

Сообщение от Anya Lis

у меня очень много ошибок с: а, b, s
пишет Inentifier not found

как тебе правильно сказали, в Паскале любую переменную, прежде чем использовать, нужно ОБЪЯВИТЬ.

берём раздел var и добавляем туда все переменные, на которые "ругается" компилятор.

var i:integer;
    t:array[1..3]of real=(0.832498,0.374541,0);
    x:array[1..5] of real;
    a,b,s : real; {переменные вещественного типа}
begin
    s:=0;
    a:=1;
    b:=2.5;
    for i:=1 to 5  do
....

[Anya Lis]

теперь ему не нравиться Function

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.

[Kilix]

x*(x*x+5)=z

[newerow1989]

Подправил:

program kyrsov;
uses crt;
var
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;
s,b,a:real;
i:integer;
function f(x:real):real;
var i:integer;
a,b,s:real;
begin
f:=sin(0.4*x)-3*ln(x);
end;
begin
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.

Сойдет?

[Serge_Bliznykov]

newerow1989, а в этой строке:

x[i]:=(b+a)/2+(b-a)/2*t[i];

разве не будет ошибки деления на ноль?! Ведь t[3] равно нулю, если я не ошибаюсь!