Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.01.2011, 20:12   #1 (permalink)
bone
Новичок
 
Регистрация: 11.01.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию У меня вопрос по программе

Помогите пожалуйста по паскалю
у меня вопрос по программе .
Вот смотрите вводим матрицу
1122
1122
4433
4433
после перемещений она должна стать
3344
3344
2211
2211

ну у меня максимум получался один квадрат правельный)
изначально была другая праграмма просто препод попрасил переделать)
Помогите пожалуйста)

program laba;
var i,j,k,l:integer;
a: array[1..100, 1..100] of integer;
b: array[1..100, 1..100] of integer;
c: array[1..100, 1..100] of integer;
n,y,x:integer;
begin
write('BBedi N=');
readln(n);
For i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');
readln(a[i,j]);
end;
writeln('ishodnay');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln();
end;
b:=a;
for i:=1 to n do begin
b[i,i]:=a[n-i+1,n-i+1];
b[n-i+1,n-i+1]:=a[i,i];
end;
for i:=1 to n do begin
b[i,n-i+1]:=a[n-i+1,i];
b[n-i+1,i]:=a[i,n-i+1];
end;
for i:=1 to n do begin
for j:=1 to n do begin
Write(b[i,j] :4);
end;
writeln;
end;

end.
bone вне форума   Ответить с цитированием

Старый 11.01.2011, 20:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Информация которая содержится в этих обсуждениях должна вам помочь

Как работать в программе Speed Video Splitter4.3.31?
Ошибки в программе
Помощь в программе
Вопрос о программе
Помощь в программе
Параметр AUX в программе Speedfan

Старый 11.01.2011, 20:31   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Опишите закон (правило), по которому происходит преобразование матрицы. А то, знаете ли, восстанавливать его из вашей (к тому же неверно работающей) программы и примера и сложно и нет ни малейшего желания.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 10:54.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.