Определение сумм по строкам и столбцам матрицы

@1213141516 · Регистрация: 18.11.2013

Студворк — интернет-сервис помощи студентам

Дан произвольный двумерный числовой массив фиксированной размерности. Разработать проект, позволяющий:
1)заполнение массива данных
2)сохранение их в файле
3)определение сумм по строкам и столбцам, их вывод

@Puporev · 01.02.2014, 18:47

Pascal

uses crt;
const m=5;{фиксированный размер матрицы}
      n=7;
var a:array[1..m,1..n] of real;
    i,j:byte;
    s:real;
    f:text;
begin
clrscr;
randomize;
assign(f,'matrix.txt');
rewrite(f);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
    write(f,a[i,j]:6:2);
   end;
  writeln;
  writeln(f);
 end;
close(f);
writeln('Суммы в строках');
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  writeln(i,' = ',s:0:2);
 end;
writeln('Суммы в столбцах');
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to m do
  s:=s+a[i,j];
  writeln(j,' = ',s:0:2);
 end;
readln
end.

@1213141516 · 01.02.2014, 19:05 **[ТС]**

спасибо

@1213141516 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 31
		1
	Определение сумм по строкам и столбцам матрицы 01.02.2014, 14:29. Показов 1369. Ответов 2 Метки нет (Все метки) Дан произвольный двумерный числовой массив фиксированной размерности. Разработать проект, позволяющий: 1)заполнение массива данных 2)сохранение их в файле 3)определение сумм по строкам и столбцам, их вывод 0

@1213141516 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 31
	01.02.2014, 19:05 [ТС]	3
	спасибо 0

Опции темы

Определение сумм по строкам и столбцам матрицы

Решение