Помогите пожалуйста с задачами
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. |
Цитата:
var k:byte; напишите var i,j,k:byte; То, что они повторяют имена внешних переменных - ничего страшного. Хотя лично я стараюсь, просто из соображений наглядности, этого избегать. Но допускается, ошибки нет. |
Цитата:
Код:
Var |
Часовой пояс GMT +4, время: 15:45. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.