Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
xxeroxxxx
0 / 0 / 1
Регистрация: 16.11.2010
Сообщений: 7
1

Задание: поменять 1-ую строку матрицы с последней, 2-ую с предпоследней и т.д.

16.11.2010, 20:21. Просмотров 470. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program hfgh;
uses crt ;
var a:array[1..10,1..10 ] of integer;
i,j,n,m,k,l:integer;
begin
clrscr;
randomize;
read(n,m);
 for i:=1 to n  do
 for j:=1 to m do
 a[i,j]:=random(100-(-100)+1)+(-100);
  for i:=1 to n  do begin
 for j:=1 to m do
write( a[i,j],' '); writeln; end;
k:=0;
 for i:=1 to n  do   begin
 for j:=1 to m do begin
l:=a[i,j];a[i,j]:=a[n-k,j];a[n-k,j]:=l;
end;   k:=k+1 ;       end;
    writeln;
  for i:=1 to n  do begin
 for j:=1 to m do
write( a[i,j],' '); writeln; end;
end.
где ошибка?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2010, 20:21
Ответы с готовыми решениями:

Поменять местами строки матрицы следующим образом: первую строку с последней, вторую - с предпоследней и так далее
Народ, здравствуйте! Написал вот эту программу, но работает она почему-то...

В двухмерном массиве первую строку поменять местами с последней строкой, вторую строку с предпоследней строкой и так далее.
))=))))))))))))))

В слове поменять первую букву с последней, вторую - с предпоследней и т.д.
Дано слово из четного числа букв. Поменять его половины следующим способом:...

Поменяйте местами строки матрицы: первую с последней, вторую с предпоследней
Дана матрица A порядка n. Поменяйте местами строки: первую с последней, вторую...

Найти суммы элементов первой и последней строк матрицы. Увеличить на значение максимума всей матрицы строку
Ввести целочисленный двумерный массив A (N x M) , вывести его. Найти суммы...

2
teleport
11 / 10 / 12
Регистрация: 11.11.2010
Сообщений: 47
16.11.2010, 21:22 2
тогда так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var a:array[1..100,1..100] of integer;
 i,j,n,m,v:integer;
begin
writeln('stroki');
readln(n);
writeln('stolbi');
readln(m);
writeln('ishodniy');
writeln;
for  i:=1 to n do
  begin
     for j:=1 to m do
         begin
         a[i,j]:=random(77);
         write(a[i,j]:4);
         end;
     writeln;
  end;
writeln;
for j:=1 to n do
for i:=1 to m do
    begin
         v:=a[j,i];
         a[j,i]:=a[n-j+1,i];
         a[n-j+1,i]:=v;
    end;
writeln('s zamenoy');
for i:=1 to n do
  begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
  end;
end.


Добавлено через 14 минут
переклинило меня ) правильно будет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var a:array[1..100,1..100] of integer;
 i,j,n,m,v:integer;
begin
writeln('stroki');
readln(n);
writeln('stolbi');
readln(m);
writeln('ishodniy');
writeln;
for  i:=1 to n do
  begin
     for j:=1 to m do
         begin
         a[i,j]:=random(77);
         write(a[i,j]:4);
         end;
     writeln;
  end;
writeln;
for j:=1 to n div 2 do
for i:=1 to m do
    begin
         v:=a[j,i];
         a[j,i]:=a[n-j+1,i];
         a[n-j+1,i]:=v;
    end;
writeln('s zamenoy');
for i:=1 to n do
  begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
  end;
end.
1
xxeroxxxx
0 / 0 / 1
Регистрация: 16.11.2010
Сообщений: 7
16.11.2010, 21:46  [ТС] 3
Спасибо огромное)


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program hfgh;
uses crt ;
var a:array[1..10,1..10 ] of integer;
i,j,n,m,k,l:integer;
begin
clrscr;
randomize;
read(n,m);
 for i:=1 to n  do
 for j:=1 to m do
 a[i,j]:=random(100-(-100)+1)+(-100);
  for i:=1 to n  do begin
 for j:=1 to m do
write( a[i,j],' '); writeln; end;
k:=0;
 for i:=1 to n div 2 do   begin {вместо n div 2 было просто n :)}
 for j:=1 to m do begin
l:=a[i,j];a[i,j]:=a[n-k,j];a[n-k,j]:=l;
end;   k:=k+1 ;       end;
    writeln;
  for i:=1 to n  do begin
 for j:=1 to m do
write( a[i,j],' '); writeln; end;
end.
единственная моя ошибка
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2010, 21:46

Дана матрица A порядка n. Поменяйте местами строки: первую с последней, вторую с предпоследней и т.д
Дана матрица A порядка n. Поменяйте местами строки: первую с последней, вторую...

Найти матрицу, получающуюся из данной перестановкой строк-первой с последней. второй с предпоследней и т.д.
Помогите пожалуйста!!!! Сам пробовал не фига не получалось-Дана целочисленная...

Поменять местами средние строки матрицы с первой и последней
Вообщем я буду очень благодарен если поможете решить следующие примеры. В...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru