IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> матрица на 180, до конца не довел
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


1.Повернуть матрицу на 180 градусов. Вложенную(дополнительную) матрицу не использовать. Распечатовать на 90 не обязательно.
Вот мой текст-программа работает, но когда преподователь write поместил в конец программы, то он напечатал не то, что надо и еще он сказал, что я ее не повернул, а распечатал sad.gif

Program Povorot180;
Uses crt;
const n=3;
Type z=array [1..n,1..n] of integer;
Var A,B,C:z;
i,j:integer;
Begin
ClrScr;
RANDOMIZE;
For i:=1 to n do
For j:=1 to n do
begin
{a[i,j] := random (10)-1;}
write('A(',i,',',j,')=');
Readln(A[i,j]);
end;
Writeln;
WRITELN;

For i:=1 to n do
Begin
for j:=1 to n do
Write(a[i,j]:4,' ');
Writeln;
End;

For i:=1 to n do
for j:=1 to n do
b[j,n-i+1]:=a[i,j];
Writeln('pechataem matrciy na 90 gradusov');
for i:=1 to n do
Begin
for j:=1 to n do
Write(b[i,j]:4,' ');
Writeln;
End;

For i:=1 to n do
for j:=1 to n do
c[j,n-i+1]:=b[i,j];
Writeln('pechataem matricy na 180 gradusov');
for i:=1 to n do
Begin
for j:=1 to n do
Write(c[i,j]:4,' ');
Writeln;
End;
Readln;
End.




Сообщение отредактировано: sahek -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


1. можешь привести пример - что на входе, что на выходе... не совсем поняла...
вот так?
было
1 2 3
4 5 6
7 8 9
стало
9 8 7
6 5 4
3 2 1

дополнительных матриц ты используешь аж 2, кстати.

2. не проверяла, набирала прямо здесь. так что можешь расценивать это не как программу, а как идею smile.gif
readln(A);
readln(N);
sum:=0;
el:=1;
for i:=0 to N do
begin
sum:=sum+el;
el:=el*(-A);
end;



Добавлено через 41 сек.
кстати...
правила почитай (в рамочке вверху).
и исправь свое сообщение, соответственно.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата
Повернуть матрицу на 180 градусов
Сколько можно решать эту задачу? Ну зайди в поиск уже - все настолько разжевано, что дальше некуда, есть реализации и с использованием дополнительных матриц, и без них...

Вот тут, скажем: Модификация двумерных массивов
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


так дело в том, что я поиск юзал и там нашел кокрас это и по аналогу 90 сделал на 180, но как повторюсь если использовать врайт в конце то программа не работает и мне еще сказали, что это распечатывает матрицу, а не переворачивает ее на 180 smile.gif
мисс графити, да поворот матрицы на 180 как ты написала smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Уж и не знаю, как ты поиск юзал. Но по ссылке тов. Вольво матрица именно поворачивается, а не выводится.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 5
Пол: Мужской

Репутация: -  0  +


что то я не догоняю как изменить программу поворота матрицы на 90, на которую дал ссылку volvo sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






А что, добавить еще один, внешний, цикл
for j := 1 to 2 do
...

нельзя никак догадаться? 2 раза повернуть на 90 градусов это не эквивалентно повороту на 180 по-твоему?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.09.2020 12:06
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name