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


Ответ
 
Опции темы Опции просмотра
Старый 22.12.2010, 20:15   #1 (permalink)
Артурка
Новичок
 
Регистрация: 22.11.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Программка на Pascal'e ABC. Помогите пожалуйста, завтра сдавать.

1111111111111111111111111111111111111111111.jpg Здравствуйте, на картинке собственно само условие, что нужно сделать. Нужно получить новую матрицу B из матрицы A путем перестановки элементов как показано на схемах.. Мучаюсь сижу весь день, завтра сдавать. Помогите пожалуйста. Вот что я написал для пункта а. Взял матрицу 2х2, чтобы было легче проверить правильность программы..

Program matrix;
Const m=2;
Var i,j,k,y:integer;
A,B:array[1..m,1..m]of integer;
Begin
for i:=1 to m do begin
for j:=1 to m do begin
A[i,j]:=10-random(20);
write('A[',i,',',j,']=',A[i,j],' ');
end;
writeln;
end;
write('-------------------------------------------------------------------------------------------------');
writeln;
for i:=1 to m do begin
for j:=1 to m do begin
if (i<j) or (j=1) and(i>1) then begin
y:=A[i,j];
A[i,j]:=A[i+1,j-1];
A[i+1,j-1]:=y;
end;
if (i=j) or (i>j) and (i>1) then begin
y:=A[i,j];
A[i,j]:=A[i+1,j+1];
A[i+1,j+1]:=y;
end;

B[i,j]:=A[i,j];
write('B[',i,',',j,']=',B[i,j],' ');
end;
writeln;
end;
end.

//Вроде как бы меняет элементы, но проблема заключается в том что используя A[i+1,j+1]; я выхожу за границу матрицы..
Артурка вне форума   Ответить с цитированием

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

На нашем форуме уже встречались похожие топики, посмотрите их

Помогите с Паскалем
SharpDevelop помогите дописать задачу. Завтра экзамен.
Программка для Arduino Diecimila
Программка про календарь (множества, pascal)
Завтра сама буду переустанавливать Windows. Помогите!

Ads

Яндекс

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

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

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

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




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

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