| Cv | Дата: Среда, 09.11.2011, 17:23 | Сообщение # 1 |
Сообщений: 1
Репутация: 0
Статус: Offline
| Программы с помощью процедур в массиве A(N,N) вычисляет сумму элементов расположенных ниже главной диагонали
НАДО СДЕЛАТЬ ПРОЦЕДУРУ И ФУНКЦИЮ
Сообщение отредактировал Cv - Четверг, 10.11.2011, 19:28 |
Страна: Российская Федерация  |
| |
| Freeman | Дата: Четверг, 10.11.2011, 02:16 | Сообщение # 2 |
Сообщений: 43
Репутация: 104
Статус: Offline
|
Program TwoSums;
Uses Crt;
Var A : Array [1..10, 1..10] of Real;
S1, S2 : Real; {S1, - суммы элементов, расположенных ниже
главной диагонали}
N, i, j : Integer;
{--------------------------------------------}
Procedure InputOutput;{описание процедуры ввода-вывода исходных данных}
Begin ClrScr;
Write('Количество строк и столбцов - '); ReadLn(N);
For i := 1 to N do {Ввод матрицы}
For j := 1 to N do
begin Write('A[' , i , ', ' , j , '] = ? ');
ReadLn(A[i, j])
end; WriteLn;
ClrScr; WriteLn(' Матрица А');
For i := 1 to N do {Вывод матрицы}
begin
For j := 1 to N do Write(A[i, j] : 5 : 1);
WriteLn
end; WriteLn
End; { of InputOutput }
{--------------------------------------------}
Procedure Under;
Begin {описание процедуры суммирования элементов, }
S1 := 0; {расположенных ниже главной диагонали }
For i := 2 to N do
For j := 1 to i-1 do
S1 := S1 + A[i, j];
WriteLn('О т в е т :');
WriteLn('Сумма элементов, лежащих ниже главной диагонали =', S1:5:1);
End;
BEGIN
InputOutput; {Вызов процедуры ввода-вывода матрицы }
Under; {Вычисление суммы элементов, лежащих ниже главной диагонали}
Over ; {Вычисление суммы элементов, лежащих выше главной диагонали }
END.
|
Страна: Беларусь  |
| |
