Помогите пожалуйста составить прогу транспонирования квадратной матрицы!!!!Очень нужно! Кучу ссылок пересмотрела-ничерта не понимаю, чайник полный а сдавать как то надо! Помогите!!!

То есть, ЗДЕСЬ ты поймешь то что напишут?

Мне нужно сдать программу преподу, а ссылки мне кидают и говорят: это поже на твою, посмотри.
Вот по этому и прошу

То есть вот это:
Транспонирование без вспомогательной матрицы
НЕ твоя задача?
Что-то другое?
Или это слишком сложный код?

З.Ы. Извини за нескромный вопрос, как твоя специальность называется?...

Задача звучит так: Составить программу иранспонирования квадратной матрицы.
Моя специальность Прикладная информатика в экономике

ТЕКСТ ПРОГИ которая транспонирует матрицу 10 на 10
Program transponir;
uses crt;
var i,j:integer;
mas:Array [1..10,1..10] of integer;
begin
clrscr;
writeln ('NE TRANSPONIROVANNAIA');
For i:=1 to 10 do
begin
For j:=1 to 10 do
begin
mas[i,j]:=random(10);
write (' ',mas[i,j]);
end;
writeln;
end;
writeln ('TRANSPONIROVANNAIA');
For j:=1 to 10 do
begin
For i:=1 to 10 do
begin
write (' ',mas[i,j]);
end;
writeln;
end;
readkey;
end.
если что не так пиши исправлю

Спасибо огромное!!!!!

программку в теги заключи...

и у тебя транспонирования не происходит. сама матрица не меняется.

да кстати, тоже посмотрела-ничего не изменяется!!! а короче программу нельзя записать?

Добавлено через 3 мин.
Еще такая задача есть:
Составить программу табулирования функции y=sinx-cosx на интервале 3,14<x<3,14 с шагом 0,1
Не понимаю интервал. Если как написано то интерва =0!! объясните если кто понял и с программой помогите!!

Ошибка. От -3.14 до 3.14 должно быть

Спасибо! а с программой не помогают...

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