Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Marat6233
0 / 0 / 0
Регистрация: 10.03.2010
Сообщений: 58
1

Дан одномрный массив A(N). Выполнить сортировку методом перестановок.Преобразовать в двумерный массив: количество строк и столбцов запрашивается польз

10.03.2010, 18:44. Просмотров 983. Ответов 1
Метки нет (Все метки)

Завтра аттетстация, помогите пожалуйста!! Нужно сделать программу в Паскале.
Вот задание:
Дан одномрный массив A(N). Выполнить сортировку методом перестановок.Преобразовать в двумерный массив: количество строк и столбцов запрашивается пользователя.
Пожалуйста помогите!!!!!!!!!!!!!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.03.2010, 18:44
Ответы с готовыми решениями:

дан двумерный массив А из N строк и М столбцов.
найти количество строк содержащих все равные компоненты задачу решить...

дан двумерный массив А из 4 строк и 7 столбцов. Найти сумму отрицательных элементов массива
дан двумерный массив А из 4 строк и 7 столбцов. Найти сумму отрицательных...

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

дан двумерный массив определить количество строк,не содержащих отрицательных элементов
дан двумерный массив определить количество строк,не содержащих отрицательных...

Дан целый массив из 5 строк и 3 столбцов.Упорядочить массив по возрастанию
Дан целый массив из 5 строк и 3 столбцов.Упорядочить массив по возрастанию...

1
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
10.03.2010, 19:30 2
Лучший ответ Сообщение было отмечено Marat6233 как решение

Решение

Все сортировки у нас тут
Перегон:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
k:=0;
repeat
 write('N M -> ');
 readln(n,m);
until n*m<t;
 
for i:=1 to n do
for j:=1 to m do
begin
 inc(k);
 mas[i,j]:=m[k];
end;
Добавлено через 42 минуты
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
40
41
42
43
44
45
46
47
48
49
uses crt;
var a:array[1..100,1..100]of integer;
b:array[1..1000]of integer;
i,j,m,n,k:integer;
 
procedure swap(var n1,n2:integer);
var b:integer;
begin
  b:=n1;
  n1:=n2;
  n2:=b;
end;
 
begin
 clrscr;
 randomize;
 write('Введите K -> ');
 readln(k);
 writeln('Исходный массив');
 for i:=1 to k do
 begin
  b[i]:=random(200);
  write(b[i],' ');
 end;
 writeln;
 
 for i:=1 to k do
 for j:=1 to k-1 do if b[j]<b[j+1] then swap(b[j],b[j+1]);
 repeat
  write('N M -> ');
  readln(n,m);
 until n*m<k;
 
 k:=0;
 for i:=1 to n do
 for j:=1 to m do
 begin
  inc(k);
  a[i,j]:=b[k];
 end;
 
 writeln('Отсортированный массив');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:4);
  writeln;
 end;
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.03.2010, 19:30

Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из отрицательных элементов этих строк
Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из...

дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и результаты записать в массив размера M.
дан двумерный массив размером m*n. Вычислить количество нулевых элементов в...

Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением.
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В...


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

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

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