@lyubov17

Помогите, пожалуйста!
Сама программа уже есть, помогите с кода Pascal перевести на язык Си!

Сама задача: определить, является ли данная целочисленная квадратная матрица ортонормированной, то есть такой, в которой скалярное произведение каждой пары различных строк равно нулю, а скалярное произведение каждой строки на себя равно единице.


Код Pascal
const n=3;
var m:array[1..n,1..n] of integer;
i,j,k:byte;
f:boolean;
s:integer;
begin
writeln('Enter ',n*n,' elements:');
for i:=1 to n do
for j:=1 to n do
read(m[i,j]);
readln;
writeln('Current Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:3);
writeln;
end;
writeln;
i:=1;
f:=true;
repeat
j:=1;
repeat
s:=0;
for k:=1 to n do
s:=s+m[i,k]*m[j,k];
if ((i=j) and (s<>1)) or ((i<>j) and (s<>0)) then f:=false;
j:=j+1
until not(f) or (j=n+1);
i:=i+1
until not (f) or (i=n+1);
if f=true then writeln ('Ortonorm')
else writeln ('Not ortonorm');
readln
end.

Заранее огромное спасибо!!!

Вернуться к обсуждению:
Определить, является ли данная целочисленная квадратная матрица ортонормированной C++

0