Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Срочно!! Пожалуйста, решите задачу!!!
Срочно!! Пожалуйста, решите задачу!!!
Дана матрица размера M × N и целые числа K1 и K2 (1 ≤ K1 < K2 ≤ M). Поменять местами строки матрицы с номерами K1 и K2.
1 | Автор: Liveska | 2011-05-13, 14:41   |  Репутация: [ + 0 ]
var
a:array[1..10,1..10]of byte;
b,c:array[1..10]of byte;
i,n,m,j,k,k1:byte;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
read(k,k1);
for i:=1 to m do
for j:=1 to n do begin
b[j]:=a[k,j];
c[j]:=a[k1,j];end;
for i:=1 to m do
for j:=1 to n do begin
a[k,j]:=c[j];
a[k1,j]:=b[j];end;
for i:=1 to m do
for j:=1 to n do
write(a[i,j],' ');
end.

"Cпасибо" принимается повышением репутации ( Зелёный плюсик:) ) Спасибо:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-05-13, 14:56 | Изменено: Berestovskiy - Пт, 2011-05-13, 15:45   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-05-13, 14:56 | Изменено: Berestovskiy - Пт, 2011-05-13, 15:45   |  Репутация: [ + 211 ]
ух как быстро)) спасибо большое!!!! )))

Добавлено (13.05.11, 15:14)
---------------------------------------------

Добавлено (13.05.11, 15:18)
---------------------------------------------
пожалуйста, перепроверьте еще раз.. и если не сложно - в программе прям.. он мне выдает ошибки какие то, а я в этом вообще не шарю! ((

3 | Автор: Liveska | 2011-05-13, 15:18 | Изменено: Liveska - Пт, 2011-05-13, 15:17   |  Репутация: [ + 0 ]
Всё, теперь всё нормально, я изменил..

просто по неосторожности 2 переменные "с" было:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-05-13, 15:46   |  Репутация: [ + 211 ]
снова выдает "Error 3" и выкидывает на 8 строчку(((
пожалуйста, помогите.. это мой зачет - судьба решается! (
5 | Автор: Liveska | 2011-05-13, 16:05   |  Репутация: [ + 0 ]
Проверяй ещё раз, у меня всё нормально..

var
a:array[1..10,1..10]of byte;
b,c:array[1..10]of byte;
i,n,m,j,k,k1:byte;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
read(k,k1);
for i:=1 to m do
for j:=1 to n do begin
b[j]:=a[k,j];
c[j]:=a[k1,j];end;
for i:=1 to m do
for j:=1 to n do begin
a[k,j]:=c[j];
a[k1,j]:=b[j];end;
for i:=1 to m do
for j:=1 to n do
write(a[i,j],' ');
end.

Пример ввода:
3 3
1 2 3
4 5 6
7 8 9
1 3
Пример вывода:
7 8 9 4 5 6 1 2 3

У меня так..


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2011-05-13, 16:16   |  Репутация: [ + 211 ]
ага, теперь я ступила на торопях..)
спасибо большое - только к проверке программа меня так и не допустила - 146 ошибку какую ту теперь выдает и зависает..
еще раз ОГРОМНОЕ СПАСИБО!!!))
7 | Автор: Liveska | 2011-05-13, 16:54   |  Репутация: [ + 0 ]
:D
Даже не знаю что это может быть:)
Но, лично у меня - всё работает - могу даже скрин шот скинуть, если нужно:)

На здоровье, обращайся ещё:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
8 | Автор: Berestovskiy | 2011-05-13, 17:06   |  Репутация: [ + 211 ]
не надо - верю)) на зачете проверю - там программа отлично работает)

Хорошо)))

9 | Автор: Liveska | 2011-05-13, 17:16   |  Репутация: [ + 0 ]
9 | Автор: Liveska | 2011-05-13, 17:16   |  Репутация: [ + 0 ]
Договорились:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
10 | Автор: Berestovskiy | 2011-05-13, 17:21   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Срочно!! Пожалуйста, решите задачу!!!
Страница 1 из 11
Поиск: