Pascal. Массивы. Вывод матрицы на экран
Дана квадратная вещественная матрица:
0.0 ! 8.5 ! -1.3
0.0 ! 5.41 ! 0.0
9.0 ! -6.1 ! 0.0
Надо вывести матрицу на экран, что бы в последствии можно было связать с данной программой:
Код:
program Zadanie3_Massiv;
var A: array[1..3, 1..3] of real;
S1, S2: Real;
i, j: Integer;
procedure InputOutput;
begin
Write('Исходная матрица');
WriteLn;
Write;
for i := 1 to 3 do
begin
for j := 1 to 3 do Write(A[i, j]: 5: 1);
WriteLn
end; WriteLn
end;
procedure Over;
begin
S2 := 0;
for i := 1 to 3 - 1 do
for j := i + 1 to 3 do
S2 := S2 + A[i, j];
WriteLn('Ответ:');
WriteLn('Сумма элементов, лежащих выше главной диагонали =', S2: 5: 1);
end;
procedure Under;
begin
S1 := 0;
for i := 2 to 3 do
for j := 1 to i - 1 do
S1 := S1 + A[i, j];
WriteLn('Сумма элементов, лежащих ниже главной диагонали =', S1: 5: 1);
ReadLn
end;
begin
InputOutput;
Over;
Under;
end.
|
так примерно
Код:
for i:=1 to 3 do begin
for j:=1 to 3 do
write(A[i,j],' ');
writeln;
end;
|
MAKS-I, прошу, форматируй код. Во втором часу ночи его читать не возможно, все сливается во едино.
|
Время: 12:33.
© OSzone.net 2001-
