Pascal

[Anya Lis]

Проверьте программу, можно ли так вводить массивы в операторе репит антил? в 10 строке после а, пишет встречено ',' ожидалось ';'

program kyrsov;
uses crt;
begin
writeln ('vvod a,b,e:');
readln (a,b,e);

var
n,i:integer;
a,b,s,e,I2,I1:real;
x:array[1..7]of real;
y:array[1..7]of real;
function f(x:real):real;
begin
f:=sin(0.4*x)-3*ln(x);
end;
s:=0;
n:=1;
repeat 
n:=n+1;
if n=2 then 
var t:array[1..2]of real:=(0.577350,-0.577350);
if n=3 then 
var t:array[1..3]of real:=(0.707107,0,-0.707107);
if n=4 then 
var t:array[1..4]of real:=(0.794654,0.187592,-0.187592,-0.794654);
if n=5 then 
var t:array[1..5]of real:=(0.832498,0.374541,0,-0.374541,-0.832498);
if n=6 then 
var t:array[1..6]of real:=(0.866247,0.422519,0.266635,-0.266635,-0.422519,-0.866247);
if n=7 then 
var t:array[1..7]of real:=(0.883862,0.529657,0.321912,0,-0.321912,-0.529657,-0.883862);
I2:=I1;
for i:=1 to n do
begin
x[i]:=(b+a)/2+((b-a)/2)*t[i];
y[i]:=f(i);
s:=s+y[i];
end;
I2:=s*(b-a)/2;
until abs(I2-I1)<e
writeln ( 'I=', I)
end.

[min@y™]

это чо, паскакаль абц штоль?

[Poma][a]

Это Абц.Net

[Anya Lis]

да, верно это абс паскаль

вот другой вариант программы

var
n,i:integer;
a,b,s,e,I2,I1:real;
x:array[1..7]of real;
y:array[1..7]of real;
t:array[1..7]of real;
function f(x:real):real;
begin
writeln ('vvod a,b,e:');
readln (a,b,e);
begin
f:=sin(0.4*x)-3*ln(x);
end;
s:=0;
n:=1;
repeat 
n:=n+1;
if n=2 then 
begin
t[1]:=0.577350;
t[2]:=-0.577350;
end;
if n=3 then 
begin
t[1]:=0.707107;
t[2]:=0;
t[3]:=-0.707107;
end;
if n=4 then 
begin
t[1]:=0.794654;
t[2]:=0.187592;
t[3]:=-0.187592;
t[4]:=-0.794654;
end;
if n=5 then 
begin
t[1]:=0.832498;
t[2]:=0.374541;
t[3]:=0;
t[4]:=-0.374541;
t[5]:=-0.832498;
end;
if n=6 then 
begin
t[1]:=0.866247;
t[2]:=0.422519;
t[3]:=0.266635;
t[4]:=-0.266635;
t[5]:=-0.422519;
t[6]:=-0.866247;
end;
if n=7 then 
begin
t[1]:=0.883862;
t[2]:=0.529657;
t[3]:=0.321912;
t[4]:=0;
t[5]:=-0.321912;
t[6]:=-0.529657;
t[7]:=-0.883862;
end;
I2:=I1;
for i:=1 to n do
begin
x[i]:=(b+a)/2+((b-a)/2)*t[i];
y[i]:=f(i);
s:=s+y[i];
end;
I2:=s*(b-a)/2;
until abs(I2-I1)<e;
writeln ( 'I=', I)
end.

[min@y™]

ну и где тут 10-я строка с ошибкой?

[newerow1989]

Кстати, 2 вариант оказался получше, чем 1-й. Только

 function f(x:real):real;
 begin
 writeln ('vvod a,b,e:');
 readln (a,b,e);
 begin
 f:=sin(0.4*x)-3*ln(x);
 end;

заменить на

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

 begin
 writeln ('vvod a,b,e:');
 readln (a,b,e);