Показать сообщение отдельно
Старый 16.11.2016, 17:57   #1 (permalink)
АсяЯ
Member
 
Регистрация: 05.11.2016
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите пожалуйста с задачами

1.Даны квадратные матрицы А(5,5) и В(5,5). С использованием процедуры вычисления произведения двух матриц найти матрицы С = АхВ и D = ВхА. Вычислить суммы элементов главных диагоналей матриц С и D, напечатать
Переменная цикла for должна описываться в том же блоке, что и цикл for-пишет ошибку

type matr=array[1..5,1..5] of integer;
var A,B,C,D:matr;
i,j,sumC,sumD:integer;
procedure Umn(p:integer;T,R:matr;var H:matr);
var k:byte;
begin
for k:=1 to p do
for j:=1 to p do
begin
H[k,j]:=0;
for i:=1 to p do
begin
H[k,j]:=H[k,j]+T[k,i]*R[i,j];
end;
end;
end;
begin
writeln('Матрица A:');
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
A[i,j]:=random(10)+1;
write(A[i,j]:3);
end;
writeln;
end;
readln;
writeln('Матрица B:');
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
B[i,j]:=random(10)+1;
write(B[i,j]:3);
end;
writeln;
end;
readln;
writeln('Матрица C:');
Umn(5,A,B,C);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(C[i,j]:6);
writeln;
end;
readln;
writeln('Матрица D:');
Umn(5,B,A,D);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(D[i,j]:6);
writeln;
end;
readln;
sumC:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if i=j then sumC:=sumC+C[i,j];
writeln('Сумма элементов главной диагонали C=',sumC);
sumD:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if i=j then sumD:=sumD+D[i,j];
writeln('Сумма элементов главной диагонали D=',sumD);
readln;
end.
2.Дано натуральное число N. Напечатать строку символов, являющуюся представлением этого числа в 5 системе счисления с использованием процедуры "перевода".
Как в строку сделать?

var
i,c:integer;
value1,value:string;
begin
writeln('Введите число');
Readln(c);
i:=1;
repeat
Str((c mod 5),value1);
insert(value1,value,1);
c:=c div 5;
i:=i*10;
until c div 5=0;
Str(c,value1);
insert(value1,value,1);
Writeln(value);
end.
АсяЯ вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070