Организация ввода-вывода с помощью текстовых файлов.

[Tатьяна]

Организация ввода-вывода с помощью текстовых файлов.

Здравствуйте! Помогите пожалуйста с решением:
Разработать алгоритм с методом пошаговой детализации и программу решения задачи, в которой найти сумму всех элементов, расположенных на главной диагонали и ниже ее матрицы размером 4x4, состоящей из элементов целого типа. Основные функции программы оформить в виде процедуры и функции.

 

[Vladimir_S]

Здравствуйте! Помогите пожалуйста с решением:
Разработать алгоритм с методом пошаговой детализации и программу решения задачи, в которой найти сумму всех элементов, расположенных на главной диагонали и ниже ее матрицы размером 4x4, состоящей из элементов целого типа. Основные функции программы оформить в виде процедуры и функции.

Так, я смотрю - уже стало традицией среди наших клиентов хранить информацию о языке программирования, как величайшую тайну. Ну что же - не буду допытываться. Понимаю - бесполезно. Но давайте на минуту предположим, что это Паскаль. Тогда так:
Насчет "пошаговой детализации" - ничего не знаю, равно как и на кой пёс тут процедуры и функции. Ну ладно, функции так функции. Вот программа (имя и адрес файла с матрицей можете, конечно, подставить свои):

TYPE
 MTR=Array[1..4,1..4] of Integer;

Var
 A:MTR;

Procedure Read_Matr;
var
 i,j:Integer;
 f:Text;
begin
 Assign(f,'D:\matr.txt');
 ReSet(f);
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    Read(f,A[i,j]);
   ReadLn(f);
  end;
 Close(f);
end;

Procedure Out_Matr(A_om:MTR);
var
 i,j:Integer;
begin
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    Write(A_om[i,j]:8);
   WriteLn;
  end;
end;

Function Sum(A_s:MTR):Integer;
var
 i,j,S:Integer;
begin
 S:=0;
 for i:=1 to 4 do
  for j:=1 to i do
   S:=S+A_s[i,j];
 Sum:=S;
end;

BEGIN
 Read_Matr;
 Out_Matr(A);
 WriteLn;
 WriteLn('S= ',Sum(A));
 ReadLn;
END.

Ну а уж если нужна программа на Delphi, то это, увы, не ко мне. Надеюсь, в этом случае другие помогут.