НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ! Нахождение суммы чисел в матрице, ввод чисел осуществить из...

Question

НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ! Нахождение суммы чисел в матрице, ввод чисел осуществить из файла matrix.txt вывод на экран.

Comments

1. Формат данных в файле? Например, указано ли где-то и как именно, усли указано, количесво строк и столбцов? 2. Зачем вообще матрица какая-то, если можно просто читать из файла по одному числу и складывать их?

---

ну да, в файлу значение и чтоб выводило на экран

Answer 1

//Раз на первый вопрос господина Alviko Вы не ответили, буду считать что количество столбцов и строк уже задано.
//Pascal ABC.NET v3.1 сборка 1172

Const
n=3; //количество строк
m=4; //количество столбцов

Var
 f:text;
 ma:array[1..n,1..m] of integer;
 i,j,s:integer;
begin
 assign(f,'matrix.txt');
 reset(f);
 for i:=1 to n do
 begin
  for j:=1 to m do
   begin
   read(f,ma[i,j]);
   s:=s+ma[i,j];
   end;
 end;
 close(f);
 for i:=1 to n do
 begin
  writeln;
  for j:=1 to m do
   write(ma[i,j]:4);
 end;
 writeln;
 write(s);
end.

matrix.txt:
1 2 3 4
4 5 6 4
7 8 9 4
Вывод программы:

   1   2   3   4
   4   5   6   4
   7   8   9   4
57

Comments

Тогда ответьте на второй вопрос: если размер 3х4=12, что мешает просто прочитать из файла 12 чисел и сложить их?

---

Сказано же вывести и матрицу. А если рассматривать как просто последовательность чисел, то я бы, конечно, просто читал в одну переменную и складывал.

---

И даже если бы в файле первой записью были значения m,n - достаточно было бы прочитать их, пееремножить, а затем все равно найти сумму полученного количества значений.

---

Постановка задачи тупая. Уж тогда бы просили построчно суммы что ли....

---

Построчно я не умею. Пока не умею. В четверг будет свободное время - разберу.

---

Да просто сумму обнулять после каждого прохода во внутреннем цикле по строке