Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.85/308: Рейтинг темы: голосов - 308, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 5
1

Отсортировать массив по возрастанию

28.03.2010, 18:37. Показов 56453. Ответов 17
Метки нет (Все метки)
Решите эти задачи пожалуйста очень надо!!!!
1. Организуйте массив, содержащий 20 различных целых чисел. После этого элементы массива упорядочиваются по убыванию и содержимое отсортированного массива выводится на экран.

2. Организуйте массив, содержащий 20 различных целых чисел. После этого 10 первых элементов массива упорядочиваются по возрастанию , а 10 последних элементов по убыванию. Содержимое таким образом отсортированного массива выводится на экран.

3. Организуйте массив, содержащий 15 различных целых чисел. После этого первых 5 элементов, вторых 5 элементов и последних 5 элементов сортируются по возрастанию. Содержимое таким образом отсортированного массива выводится на экран.

4. Организуйте массив, содержащий 10 различных целых чисел. Одержимое массива сортируется по возрастанию, и после этого определяется минимальный и максимальный элементы массива.

5. Организуйте массив, содержащий 20 различных символов. Отсортируйте его по возрастанию.

6. Организуйте массив, содержащий 20 целых чисел. Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по убыванию.

7. Организуйте массив, содержащий 20 целых чисел. Отсортируйте его по возрастанию. После этого определите и выведите на экран сумму элементов с четными индексами и сумму элементов с нечетными индексами.

8. Создайте массив, содержащий 15 целых чисел. Отдельно первых 5 элементов массива вторых 5 элементов и последних 5 элементов отсортируйте по убыванию. Определите и выведите на экран сумму каждой пятерки отсортированного таким образом массива.


9. Создайте массив, содержащий 15 различных символов. Отсортируйте его по убыванию. После этого определите и выведите на экран «наименьший» и «наибольший» символы.


10. Создайте массив, содержащий 10 различных символов. Первую половину массива отсортируйте по возрастанию, а вторую по убыванию. Отсортированный массив выведите на экран.


11. Создайте массив А, содержащий 8 различных символов. Отсортируйте его по возрастанию. Организуйте и выведите на экран целочисленный массив В, заполнив его числами, полученными преобразованием символов массива А в целые числа.
12. Создайте целочисленный массив А, содержащий 10 различных чисел. Отсортируйте первую половину массива А по возрастанию, а вторую по убыванию. Организуйте и выведите на экран символьный массив В, заполнив его символами, полученными преобразованием чисел массива А в символы.

13. Создайте массив содержащий 20 различных целых чисел. Отсортируйте его по возрастанию. После этого замените все элементы массива на противоположные и выведите содержимое обработанного массива на экран.
14. Создайте массив содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в 3 раза, а нечетные в 2 раза. Содержимое таким образом отсортированного массива выводится на экран.
0
Лучшие ответы (1)
Сообщение: #3942345
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.03.2010, 18:37
Ответы с готовыми решениями:

Сформировать массив по формуле Yk=K*cos (Ak). Отсортировать массив по возрастанию
Дан массив размера N. Сформировать массив Yn, каждый элемент которого определяется по формуле...

Отсортировать массив по возрастанию
Здравствуйте, мне очень нужна помощь! нужно- сформировать массив В(к) из элементов первой строки и...

Отсортировать массив по возрастанию
Создайте массив А с помощью генератора случайных чисел с вещественными элементами от –10 до 10 и...

Отсортировать массив по возрастанию
1. Создайте массив А вещественных чисел с помощью генератора случайных чисел и выведите его на...

17
1573 / 644 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
28.03.2010, 19:00 2
Цитата Сообщение от cheka_0292 Посмотреть сообщение
1. Организуйте массив, содержащий 20 различных целых чисел. После этого элементы массива упорядочиваются по убыванию и содержимое отсортированного массива выводится на экран.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.
Добавлено через 1 минуту
Цитата Сообщение от cheka_0292 Посмотреть сообщение
2. Организуйте массив, содержащий 20 различных целых чисел. После этого 10 первых элементов массива упорядочиваются по возрастанию , а 10 последних элементов по убыванию. Содержимое таким образом отсортированного массива выводится на экран.
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

var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=12 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.
Добавлено через 3 минуты
Цитата Сообщение от cheka_0292 Посмотреть сообщение
3. Организуйте массив, содержащий 15 различных целых чисел. После этого первых 5 элементов, вторых 5 элементов и последних 5 элементов сортируются по возрастанию. Содержимое таким образом отсортированного массива выводится на экран.
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

var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 15 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 5 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=7 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=6 then break;
  end;
 end;
 for i:=12 to 15 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 15 do write(a[i]:4);
 readln;
end.
Добавлено через 2 минуты
Цитата Сообщение от cheka_0292 Посмотреть сообщение
4. Организуйте массив, содержащий 10 различных целых чисел. Одержимое массива сортируется по возрастанию, и после этого определяется минимальный и максимальный элементы массива.
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

var
 a:array[1..20]of integer;
 i,s,j,mn,mx:integer;
begin
 randomize;
 for i:=1 to 10 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 mn:=a[1];
 mx:=a[10];
 readln;
end.
1
139 / 139 / 97
Регистрация: 25.01.2010
Сообщений: 181
28.03.2010, 19:53 3
Цитата Сообщение от cheka_0292 Посмотреть сообщение
13. Создайте массив содержащий 20 различных целых чисел. Отсортируйте его по возрастанию. После этого замените все элементы массива на противоположные и выведите содержимое обработанного массива на экран.
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88

uses crt;
const n=20;
var a:array[1..20] of integer;
z,i,m,j,min,max:integer;
 begin
   clrscr;
   randomize;
 for i:=1 to n do
 begin
  a[i]:=random(10)-5;
   end;
 begin
  for i:=1 to n do
   write(a[i]:4);
   writeln;
   writeln('_________________________________________________________________');
       end;
       begin
       for i:=2 to n do
       begin
   for j:=n Downto i do
   if a[j-1]>a[j] then
  begin
   m:=a[j-1];
  a[j-1]:=a[j];
  a[j]:=m;
    end;
   end;
  for i:=1 to n do
  begin
  write(' ',a[i]:3);
  end;
  end;
  for i:=1 to n do
  begin
  write(' ',-a[i]:3);
  end;
  readln;
 end.
 
[size="1"][color="grey"][I]Добавлено через 30 минут[/I][/color][/size]
{10) номер}
uses crt;
var
 a:array[1..10] of integer;
 i,t,j:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
 
for i:=2 to 5 do
begin
for j:=5 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t ;
if j=1 then break;
end;
end;
 
for i:=6 to 10 do
begin
for j:=10 downto i do
if a[j-1]<a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t ;
if j=6 then
break;
end;
end;
 
writeln;
for i:=1 to 10 do
begin
write(a[i]:4);
end;
readln;
end.
1
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 5
29.03.2010, 12:12  [ТС] 4
Ребятки спасибо!!!! не можете остальные решить, пожалуйста!!!!!!!
0
1573 / 644 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
29.03.2010, 16:07 5
Цитата Сообщение от cheka_0292 Посмотреть сообщение
14. Создайте массив содержащий 20 различных целых чисел. Отсортируйте первую половину массива по возрастанию, а вторую по убыванию. Все четные элементы массива увеличить в 3 раза, а нечетные в 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
36

var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=12 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 20 do begin
  if a[i] mod 2=0 then a[i]:=a[i]*3 else a[i]:=a[i]*2;
  write(a[i]:4);
 end;
 readln;
end.
1
0 / 0 / 0
Регистрация: 28.03.2010
Сообщений: 5
29.03.2010, 21:23  [ТС] 6
6 ая задача не выходит почему то (((( помогите!!!!! очень срочно нужна !!!
0
1573 / 644 / 79
Регистрация: 24.02.2009
Сообщений: 9,268
29.03.2010, 21:41 7
Цитата Сообщение от cheka_0292 Посмотреть сообщение
6. Организуйте массив, содержащий 20 целых чисел. Отсортируйте отдельно элементы с четными индексами по возрастанию, и элементы с нечетными индексами по убыванию.
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

var
 a:array[1..20]of integer;
 i,s,j,w:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 i:=2;
 while i<21 do begin
  if a[i] mod 2=0 then begin
   j:=i;
   w:=i;
   while a[w] mod 2=0 do dec(w);
   while (a[j]<a[w]) and (j>1) and (w>1) do begin
    s:=a[j];
    a[j]:=a[w];
    a[w]:=s;
    j:=w;
    while a[w] mod 2=0 do dec(w);
   end;
  end else begin
   j:=i;
   w:=i;
   while a[w] mod 2<>0 do dec(w);
   while (a[j]<a[w]) and (j>1) and (w>1) do begin
    s:=a[j];
    a[j]:=a[w];
    a[w]:=s;
    j:=w;
    while a[w] mod 2<>0 do dec(w);
   end;
  end;
  inc(i);
 end;
 for i:=1 to 15 do write(a[i]:4);
 readln;
end.
??
2
4341 / 1473 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
29.03.2010, 21:43 8
cheka_0292, в следующий раз будете наказаны за столь большое кол-во заданий. Либо фриланс, либо по одной задаче в одной теме.
1
7 / 7 / 2
Регистрация: 08.12.2012
Сообщений: 108
02.01.2013, 12:33 9
Нашел тему поиском. Может кто-нибудь помочь с 7ой задачей у ТС, пожалуйста?
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
02.01.2013, 16:02 10
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от Cancion2able Посмотреть сообщение
Нашел тему поиском. Может кто-нибудь помочь с 7ой задачей у ТС, пожалуйста?
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

const
  csize=20;
 
type
  tarray=array [1..csize] of integer;
 
procedure selectionsort(var arg:tarray);
var
  i,j,t:integer;
begin
  for i:=1 to csize-1 do
    for j:=csize downto i+1 do
      if arg[i]>arg[j] then begin
        t:=arg[i];
        arg[i]:=arg[j];
        arg[j]:=t;
      end;
end;
 
var
  uneven,even,i:integer;
  ar:tarray;
 
begin
  randomize;
  writeln('исходный массив : ');
  for i:=1 to csize do begin
    ar[i]:=random(100)-50;
    write(ar[i],' ');
  end;
  writeln;
  selectionsort(ar);
  uneven:=0;even:=0;
  writeln('отсортированный массив');
  for i:=1 to csize do begin
    write(ar[i],' ');
    if odd(i) then
      uneven:=ar[i]
    else
      even:=ar[i];
  end;
  writeln;
  write('сумма элементов с нечётными индексами : ');
  writeln(even);
  write('сумма элементов с чётными индексами : ');
  writeln(uneven);
  readln
end.
3
0 / 0 / 0
Регистрация: 28.05.2013
Сообщений: 5
28.05.2013, 12:41 11
как-то 6-я не работает...
0
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 25
13.06.2013, 22:05 12
Помогите пожалуйста с 8ой задачей .
0
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
13.06.2013, 22:38 13
Отдельно первых 5 элементов массива вторых 5 элементов и последних 5 элементов отсортируйте по убыванию.
Мне кажется, или 5+5+5=15?
Какой смысл от этого задания?
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
14.06.2013, 07:06 14
Цитата Сообщение от Soniyagfto Посмотреть сообщение
Мне кажется, или 5+5+5=15?
Какой смысл от этого задания?
задание на умение организовать сортировку / перестановку в отдельной части массива
(на отработку работы с индексами, как я понимаю)
2 4 7 1 9 3 13 15 5 11 6 10 12 8 14
9 7 4 2 1 15 13 11 5 3 14 12 10 8 6, а не
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
суть в том, что обработать выделенные разными цветами блоки надо по отдельности
0
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
14.06.2013, 07:54 15
Цитата Сообщение от КонецСвета Посмотреть сообщение
задание на умение организовать сортировку / перестановку в отдельной части массива
(на отработку работы с индексами, как я понимаю)
2 4 7 1 9 3 13 15 5 11 6 10 12 8 14
9 7 4 2 1 15 13 11 5 3 14 12 10 8 6, а не
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
суть в том, что обработать выделенные разными цветами блоки надо по отдельности
Pascal
1
2
3

For i:=1 to 5 do
For i:=6 to 10 do
For i:=11 to 15 do
Из за этого задача не грамма не стала сложнее
0
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 25
14.06.2013, 13:07 16
Можно пожалуйста всю программу ?
0
0 / 0 / 0
Регистрация: 25.05.2018
Сообщений: 1
25.05.2018, 01:09 17
Привет.Может кто-нибудь помочь с 2ой задачей у C(c указателями), пожалуйста?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7520 / 4384 / 2781
Регистрация: 22.11.2013
Сообщений: 12,546
Записей в блоге: 1
27.05.2018, 15:18 18
Цитата Сообщение от vedelka Посмотреть сообщение
Привет.Может кто-нибудь помочь с 2ой задачей у C(c указателями), пожалуйста?
А зачем там указатели?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

const n=10;
var
  a: array [0..n-1] of Integer;
  i, j, t: Integer;
...
 
  t:=n div 2-1;
  repeat i:=t; t:=0;
    for j:=t to i-1 do
      if a[j+1]<a[j] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; t:=j;
      end;
  until t=0;
 
  t:=n-1;
  repeat i:=t; t:=n div 2;
    for j:=t to i-1 do
      if a[j+1]>a[j] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; t:=j;
      end;
  until t=n div 2;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 27.05.2018, 15:18
Помогаю со студенческими работами здесь

Отсортировать массив по возрастанию и убыванию
помогите плс, вот проблема ----1)создать 2-мерный массив случайных чисел и вывести его на экран....

Отсортировать по возрастанию линейный массив
Отсортировать по возрастанию линейный массив из 20 целых чисел. Составить алгоритм и написать...

Отсортировать массив А(6) по возрастанию/убыванию
Отсортировать массив А(6) по возрастанию/убыванию

Отсортировать массив C[m] по возрастанию методом слияния.
Отсортировать массив C по возрастанию методом слияния.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru