текс.файл содержит размеры 2-ой матрицы и значения ее элементов записанные построчно.Прочитать матрицу,транспонировать ее от-но неглавной диагоналии в

@petvcal · Регистрация: 08.04.2011

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

текс.файл содержит размеры 2-ой матрицы и значения ее элементов записанные построчно.Прочитать матрицу,транспонировать ее от-но неглавной диагоналии вывести в другой файл в виде таблицы,заменив элементы ниже главной диагонали словом ноль.

program lab5;
var i,j,m,n:integer;
a,b:array [1..40,1..40] of real;
q,w:text;
begin
assign(q,'in.txt');
assign(w,'out.txt');
reset(q);
rewrite(w);
read(q,m);
read(q,n);
writeln(w,'lab5');
writeln(w,'transponirovanie');
writeln(w);
writeln(w,'Table:');
writeln(w);
for i:=1 to m do
for j:=1 to n do
read(q,a[i,j]);
for i:=1 to m do
for j:=1 to n do
b[i,j]:=a[m-j+1,n-i+1];
for i:=1 to m do
begin
for j:=1 to n do
if i>j then write(w,'null ') else write(w,b[i,j]:4:0,' ');
writeln(w);
end;
close(q);
close(w);
end.все нормально,но считает тока квадратную матрицу,нужно чтоб прямоугольную.Помогите пожалуйста.

@petvcal 0 / 0 / 0 Регистрация: 08.04.2011 Сообщений: 18
		1
	текс.файл содержит размеры 2-ой матрицы и значения ее элементов записанные построчно.Прочитать матрицу,транспонировать ее от-но неглавной диагоналии в 05.05.2011, 18:54. Показов 691. Ответов 0 Метки нет (Все метки) текс.файл содержит размеры 2-ой матрицы и значения ее элементов записанные построчно.Прочитать матрицу,транспонировать ее от-но неглавной диагоналии вывести в другой файл в виде таблицы,заменив элементы ниже главной диагонали словом ноль. program lab5; var i,j,m,n:integer; a,b:array [1..40,1..40] of real; q,w:text; begin assign(q,'in.txt'); assign(w,'out.txt'); reset(q); rewrite(w); read(q,m); read(q,n); writeln(w,'lab5'); writeln(w,'transponirovanie'); writeln(w); writeln(w,'Table:'); writeln(w); for i:=1 to m do for j:=1 to n do read(q,a[i,j]); for i:=1 to m do for j:=1 to n do b[i,j]:=a[m-j+1,n-i+1]; for i:=1 to m do begin for j:=1 to n do if i>j then write(w,'null ') else write(w,b[i,j]:4:0,' '); writeln(w); end; close(q); close(w); end.все нормально,но считает тока квадратную матрицу,нужно чтоб прямоугольную.Помогите пожалуйста. 0

	05.05.2011, 18:54

Опции темы