Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 184672
04.12.2011, 09:55
65.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Помогите решить задачу.

Транспонировать матрицу A(I,J), I [$8804$] 10, J [$8804$] 15.

Составить программу на языке Borland Pascal. При разработке воспользоваться только одной матрицей, дополнительные не использовать. Не использовать при разработке программы - процедуры и функции.

Обсуждение

Неизвестный
04.12.2011, 19:20
общий
это ответ
Здравствуйте, Посетитель - 386678!
Решение задачи в Turbo Pascal 7.0 может выглядеть так:
Код:
uses
	crt;
const
  MaxD = 15;
  MaxI = 10;
  MaxJ = 15;
var
	A: array[1..MaxD, 1..MaxD] of byte;
	el, maxij: byte;
	I, J, ii, jj: byte;

begin
	clrscr;
	write ('I (I<=10): ');
	readln(I);
	write ('J (J<=15): ');
	readln(J);

	writeln('Source matrix:');
	for jj:=1 to MaxD do
		for ii:=1 to MaxD do
			A[ii, jj] := 0;

	for jj:=1 to J do begin
		for ii:=1 to I do begin
			A[ii, jj] := random(100) + 100;
			write(A[ii, jj]:5);
		end;
		writeln;
	end;
	
	writeln ('T-matrix:');
	
	if (I>J) then
		maxij := I
	else
		maxij := J;

	for jj:=1 to maxij do
		for ii:=jj+1 to maxij do begin
			el := A[ii, jj];
			A[ii, jj] := A[jj, ii];
			A[jj, ii] := el;
		end;

	el := I;
	I := J;
	J := el;
	
	for jj:=1 to J do begin
		for ii:=1 to I do begin
			write(A[ii, jj]:5);
		end;
		writeln;
	end;
	
	writeln('Done. Press any key...');
	readkey;
end.
5
Форма ответа