Помогите пожалуйста составить прогу транспонирования квадратной матрицы!!!!Очень нужно! Кучу ссылок пересмотрела-ничерта не понимаю, чайник полный а сдавать как то надо! Помогите!!!
То есть, ЗДЕСЬ ты поймешь то что напишут?
То есть вот это:
http://forum.pascal.net.ru/index.php?showtopic=16824&hl=%F2%F0%E0%ED%F1%EF%EE%ED%E8%F0%EE%E2%E0%ED%E8%E5+%EC%E0%F2%F0%E8%F6%FB
НЕ твоя задача?
Что-то другое?
Или это слишком сложный код?
З.Ы. Извини за нескромный вопрос, как твоя специальность называется?...
ТЕКСТ ПРОГИ которая транспонирует матрицу 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 должно быть
Спасибо! а с программой не помогают...
Это самый простой способ, без изменения матрицы, изменяются только индексы при выводе. Если менять саму матрицу нужно использовать переприсвоение во втором цикле.