Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
ЯНОЧКА19
1 / 1 / 0
Регистрация: 02.01.2013
Сообщений: 91
#1

Ввести матрицу S, преобразовать ее, изменив порядок следования столбцов на обратный

02.01.2013, 15:30. Просмотров 432. Ответов 5
Метки нет (Все метки)

25. Дано: const n=10;
var matrix:array [1..n,1..n] of integer;
Ввести матрицу S, преобразовать ее, изменив порядок следования столбцов на обратный. Вывести результат.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2013, 15:30
Ответы с готовыми решениями:

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

Заменить порядок следования цифр числа n на обратный
Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

Заменить порядок следования цифр числа n на обратный
procedure TForm1.Button1Click(Sender: TObject); var k,n:integer; begin...

Дан действительный массив А(n). Поменть порядок следования элементов в массиве на обратный.
Помогите пожалуйста решить 2 задачки зараннее спасибо :) 8.5 Memo...

Дано натуральное число n. Заменить порядок следования цифр числа n на обратный
Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

5
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
03.01.2013, 10:26 #2
Delphi
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
36
37
38
39
const n=10;
var
  Form1: TForm1;
  a:array[1..n,1..n] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
stringgrid1.ColCount:=n;
stringgrid1.RowCount:=n;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=-10+random(21);
for i:=0 to n-1 do
for j:=0 to n-1 do
stringgrid1.Cells[i,j]:=inttostr(a[j+1,i+1]);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:byte;
    x:integer;
begin
for j:=1 to n div 2 do
for i:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,n-j+1];
  a[i,n-j+1]:=x;
 end;
stringgrid2.ColCount:=n;
stringgrid2.RowCount:=n;
for i:=0 to n-1 do
for j:=0 to n-1 do
stringgrid2.Cells[i,j]:=inttostr(a[j+1,i+1]);
end.
0
ZLO1988
35 / 21 / 40
Регистрация: 25.02.2012
Сообщений: 170
03.01.2013, 11:21 #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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Program ggbb;
uses crt;
const n=10;
var
s: array [1..n,1..n] of byte;
i,j,m: byte;
begin
writeln('Ââåäèòå Г°Г*çìåðГ*îñòü Г¬Г*òðèöû Г*ГҐ áîëåå 10:');
readln(m);
write('Г‡Г*ïîëГ*ГїГҐГ¬ Г¬Г*òðèöó ');
write('ГЁГ§ ');
write(m);
writeln(' ýëåìåГ*òîâ');
for i:=1 to m do
for j:=1 to m do
begin
readln(s[i,j]);
end;
writeln('Âûâîäèì ïîëó÷åГ*Г*ГіГѕ Г¬Г*òðèöó:');
for i:=1 to m do
begin
for j:=1 to m do
begin
write(s[i,j]);
write(' ');
end;
writeln();
end;
writeln('Âûâîäèì Г¬Г*òðèöó Гў îáðГ*ГІГ*îì ïîðÿäêå:');
for i:=m downto 1 do
begin
for j:=m downto 1 do
begin
write(s[i,j]);
write(' ');
end;
writeln();
end;
end.
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
03.01.2013, 11:34 #4
ZLO1988, Молодец. Главное по условию и в Делфи....
0
ZLO1988
35 / 21 / 40
Регистрация: 25.02.2012
Сообщений: 170
03.01.2013, 16:19 #5
Цитата Сообщение от Puporev Посмотреть сообщение
ZLO1988, Молодец. Главное по условию и в Делфи....
Неужели так тяжело это все дело прикрутить к компоненту StringGrid ? Мне было лень делать это на форме, я написал код на Паскале, если человек хоть немного понимает программуху, то я думаю не будет сложности прикрутить этот код к компоненту StringGrid...
0
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,517
03.01.2013, 19:54 #6
Цитата Сообщение от ZLO1988 Посмотреть сообщение
это все дело прикрутить к компоненту StringGrid
Так это дело не соответствует условию....
0
03.01.2013, 19:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2013, 19:54

Написать программу, которая меняет порядок следования строк файла на обратный, используя стек (Delphi)
Дан текстовый файл. Написать программу, которая меняет порядок следования строк...

Порядок отрицательных членов изменить на обратный, порядок неотрицательных сохранить
Задача по делфи(нужно все 3 пункта в 1 программе сделать) Прошу Помочь В...

Изменение порядка следования элементов в цепном списке на обратный
Помогите на делфи сделать ПОЖАЛУЙСТА!!! Разработать алгоритм изменения...


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

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

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