помогите найти ошибочкуу! Pascal
Добавлено: 16 дек 2012, 11:26
разработать в среде Turbo Pascal программу решения взаимосвязанных задач:
a. расчет элементов квадратной матрицы A = (aij), i,j – 1,2,…,n по заданной формуле: а[i,j]=(i в степениj - j в степени i)/ji
b. упорядочить элементы четных строк матрицы А по убыванию значений;
program zadacha1; задача(а)
cоnst n=10;
var A:array[1..n,1..n] of real;
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=(exp(j*ln(i))-exp(i*ln(j)))/(j*i);
writeln( A[ i , j ]); end;
writeln; end;
readln;
end.
верно ли? выводит 3 ошибки, не могу найти где именно)
a. расчет элементов квадратной матрицы A = (aij), i,j – 1,2,…,n по заданной формуле: а[i,j]=(i в степениj - j в степени i)/ji
b. упорядочить элементы четных строк матрицы А по убыванию значений;
program zadacha1; задача(а)
cоnst n=10;
var A:array[1..n,1..n] of real;
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=(exp(j*ln(i))-exp(i*ln(j)))/(j*i);
writeln( A[ i , j ]); end;
writeln; end;
readln;
end.
верно ли? выводит 3 ошибки, не могу найти где именно)