Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 20.12.2011
Сообщений: 4
1

Статический одномерный массив

21.12.2011, 00:02. Показов 618. Ответов 4
Метки нет (Все метки)

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

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2011, 00:02
Ответы с готовыми решениями:

Статический одномерный массив(паскаль)
Есть 3 статических одномерных массива.Пользователь вводит их, массивы(каждый) сортируются по...

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

Статический в динамический массив
Помогите переписать программу(чтобы использовался динамический массив) Var A:array of integer; ...

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

4
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
21.12.2011, 00:05 2
Цитата Сообщение от Yurik555 Посмотреть сообщение
заносятся в динамический двумерный массив
В паскале нет динамических массивов .
0
24 / 24 / 22
Регистрация: 16.12.2011
Сообщений: 50
21.12.2011, 00: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
25
26
var a,b,c: array[1..10] of integer;
    x:array of integer;
    i,j,n:integer;
begin
  randomize;
  for i:=1 to 10 do a[i]:=random(10)-5;
  for i:=1 to 10 do b[i]:=random(10)-5;
  for i:=1 to 10 do c[i]:=random(10)-5;
  SetLength(x,32); {специальная процедура выделения памяти}
  for i:=1 to 10 do 
  begin
    inc(j);
    x[j]:=a[i];
  end;
  for i:=1 to 10 do 
  begin
    inc(j);
    x[j]:=b[i];
  end;
  for i:=1 to 10 do 
  begin
    inc(j);
    x[j]:=c[i];
  end;
  for i:=1 to 30 do write(x[i],' ');
end.
Как я понял вам вот это нужно

Добавлено через 10 минут
Простите, не сделал сортировку, вылетело с головы.
1
0 / 0 / 0
Регистрация: 20.12.2011
Сообщений: 4
23.12.2011, 00:39  [ТС] 4
Добавлено через 56 минут
массивы(каждый) сортируются по убыванию

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Sorting (var mas: array of integer; const count: integer)
var
    i: integer;
    flag: boolean;
begin
    repeat 
        flag := false;
        for i := 1 to (count - 1) do
            if mas[i] < mas[i+1] then
            begin
                flag := true;
                mas[i] := mas[i] + mas[i+1];
                mas[i+1] := mas[i] - mas[i+1];
                mas[i] := mas[i] - mas[i+1]
            end;
    until flag = false;    
end;
правильно?
0
24 / 24 / 22
Регистрация: 16.12.2011
Сообщений: 50
23.12.2011, 01:23 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
const
  n = 20;
 
var
  a: array[1..100] of integer;
  i, j: integer;
  nmin, buf: integer;
 
begin
  randomize;
  for i := 1 to n do a[i] := random(10) - 5;
  writeln('Исходный массив: ');
  for i := 1 to n do write(a[i], ' ');
  writeln;
  for i := 1 to n - 1 do 
  begin
    nmin := i;
    for j := i + 1 to n do
      if a[j] < a[nmin] then nmin := j;
    buf := a[i];
    a[i] := a[nmin];
    a[nmin] := buf;
  end;
  writeln('Упорядоченный массив: ');
  for i := 1 to n do write(a[i], ' ');
end.
Сёння писал на форум, сам принцип сортировки вот! А уже переделать его в процедуру или для каждого массива самИ, бо уже спать пора!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2011, 01:23

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

Как преобразовать статический массив в динамический?
uses crt; const nmax=100; var a:array of integer; n,i,i1,k:byte; begin clrscr; randomize;...

Используйте статический массив для организации очереди
Перепишите предыдущую программу – используйте статический массив для организации очереди. Считайте,...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Массив одномерный. Проверить, можно ли, меняя элементы массива А, получить массив В
составьте программу проверяющую можно меняя элементы одномерного массива А, получить одномерный...


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

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

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