Помогите решить задачку и сделать блок-схему

Питон_80 · 21.04.2016, 12:00

Сумма столбцов.
Задана двумерная матрица размерностью 10x10 элементов, заполненная случайными числами из диапазона [0, 50]. Найти, вывести результаты на экран и записать в файл «output.txt» сумму этих элементов по столбцам таблицы.

Евгений · 21.04.2016, 19:46

Код:

const n=10;
type  Matr=array[1..n,1..n] of Word;
var   f:text;
      a:Matr;
      i,j,sum:Word;
begin
      Assign(f,'output.txt');
       Rewrite(f);
        Writeln(f,'Matrix:');
         Writeln('Matrix:');
          Writeln(f); Writeln;
           Randomize;
       for i:=1 to n do
        begin
          for j:=1 to n do
            begin
              a[i,j]:=Random(51);
              Write(f,a[i,j]:4);
              Write(a[i,j]:4);
            end;
          Writeln(f);
          Writeln;
        end;
       Writeln(f); Writeln;
        Writeln(f,'Summi elementov po stolbcam:');
         Writeln('Summi elementov po stolbcam:');
          Writeln(f); Writeln;
           for i:=1 to n do
            begin
              Write(f,i:6);
              Write(i:6);
            end;
            Writeln(f); Writeln;
             Writeln(f); Writeln;
       i:=1;
        repeat
           sum:=0;
           for j:=1 to n do
            sum:=sum+a[i,j];
           Write(f,sum:6);
           Write(sum:6);
           Inc(i);
        until i>n;
       Writeln(f); Writeln;
       Close(f);
       Readln;
end.

Евгений · 21.04.2016, 22:04

Пардон. Посчитал суммы в строках. Надо поменять:

Код:

 j:=1;
        repeat
           sum:=0;
           for i:=1 to n do
            sum:=sum+a[i,j];
           Write(f,sum:6);
           Write(sum:6);
           Inc(j);
        until j>n;

Питон_80 · 25.04.2016, 13:08

Огромное спасибо.

Питон_80 · 25.04.2016, 13:14

Сумма столбцов.
Задана двумерная матрица размерностью 10x10 элементов, заполненная случайными числами из диапазона [0, 50]. Найти, вывести результаты на экран и записать в файл «output.txt» сумму этих элементов по столбцам таблицы.

21.04.2016, 12:00	#1 (permalink)
Питон_80 Новичок Регистрация: 21.04.2016 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачку и сделать блок-схему Сумма столбцов. Задана двумерная матрица размерностью 10x10 элементов, заполненная случайными числами из диапазона [0, 50]. Найти, вывести результаты на экран и записать в файл «output.txt» сумму этих элементов по столбцам таблицы.

21.04.2016, 22:04	#3 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	Пардон. Посчитал суммы в строках. Надо поменять: Код: j:=1; repeat sum:=0; for i:=1 to n do sum:=sum+a[i,j]; Write(f,sum:6); Write(sum:6); Inc(j); until j>n;

25.04.2016, 13:14	#5 (permalink)
Питон_80 Новичок Регистрация: 21.04.2016 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Блок-схема Сумма столбцов. Задана двумерная матрица размерностью 10x10 элементов, заполненная случайными числами из диапазона [0, 50]. Найти, вывести результаты на экран и записать в файл «output.txt» сумму этих элементов по столбцам таблицы.

21.04.2016, 12:00
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные вашей темы участники форума создавали ранее, прочитайте их Помогите сделать блок-схему к программе Помогите сделать блок-схему Помогите сделать блок-схему

25.04.2016, 13:08	#4 (permalink)
Питон_80 Новичок Регистрация: 21.04.2016 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромное спасибо.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070