Операция '*' не применима к типам integer и set of $pascal_array1

@funnyfoxy · Регистрация: 21.11.2019

Author24 — интернет-сервис помощи студентам

Pascal

program Project11;
{$APPTYPE CONSOLE}
Var a,b,S:real;
Xi,x,f,t:array [1..5] of real;
N:integer;
Begin N:=5;
t[1]:=-0.832498;
t[2]:=-0.374541;
t[3]:=0;
t[4]:= 0.374541;
t[5]:= 0.832498;
writeln('Chebyshev method N=5');
write('a=') ;
Readln(a);
write('b=') ;
Readln(b);
 
For var i:=1 to N do
x[i]:=(b+a)/2+(b-a)/2*t[i];
for var i:=1 to N do
f[i]:=ln(2*x[i]+1);
S:=0;
For var i:=1 to N do S:=S+f[i];
S:=(b-a)/(N*S);
Write ('I=',S:10:8);
N:=6;
t[1]:=-0.866247;
t[2]:=-0.422519;
t[3]:=-0.266635;
t[4]:=0.266635;
t[5]:=0.422519;
t[6]:=0.866247;
 
writeln('Chebyshev method N=6');
write('a=') ;
Readln(a);
write('b=') ;
Readln(b);
 
For var i:=1 to N do
x[i]:=(b+a)/2+(b-a)/2*t[i];
for var i:=1 to N do
f[i]:=ln(2*[xi]+1);
S:=0;
For var i:=1 to N do S:=S+f[i];
S:=(b-a)/(N*S);
Write ('I=',S:10:8);
Readln;
end.

@Puporev · 12.12.2020, 19:59

Может так?

Pascal

1	f[i]:=ln(2*x[i]+1);

@funnyfoxy · 12.12.2020, 20:20 **[ТС]**

А всё,я понял,замотался не заметил,спасибо )

@funnyfoxy 0 / 0 / 0 Регистрация: 21.11.2019 Сообщений: 2
	12.12.2020, 20:20 [ТС]	3
	А всё,я понял,замотался не заметил,спасибо ) 0

Операция '*' не применима к типам integer и set of $pascal_array1

Решение