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

Отсортировать массив целых чисел методом вставки в порядке возрастания

29.05.2016, 21:38. Показов 921. Ответов 2
Метки нет (Все метки)

Дан массив целых чисел А [1.N]. Отсортировать их методом вставки в порядке возрастания (оформить в виде про

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
PROGRAM LAB4;
USES CRT;
VAR
  A: ARRAY [1..10] OF INTEGER;
  I, J, T,N, Sum, Kolich: INTEGER;
  SrArif: REAL;
BEGIN
  CLRSCR;
  WRITE('Vvedite chislo elementov massiva N = ');
  READLN(N);
  WRITELN('Vvodite elementy massiva: ');
  FOR I := 1 TO N
  DO
    READ(A[I]);
  FOR I := 1 TO N-1
  DO
    FOR J := I + 1 to N
    DO
      IF A[J] < A[I]
      THEN
        BEGIN
          T := A[I];
          A[I] := A[J];
          A[J] := T;
        END;
  Sum := 0;
  Kolich := 0;
  FOR I := 1 TO N
  DO
    IF A[I] < 0
    THEN
      BEGIN
        Sum := Sum + A[I];
        Kolich := Kolich + 1;
      END;
  IF Kolich > 0
  THEN
    BEGIN
      SrArif := Sum / Kolich;
      Kolich := Kolich - 1
    END
  ELSE
    WRITELN('chisel, ydov uslov, net');
  WRITELN('Srednee arif= ',SrArif:4:2);
  WRITE('Otsortirovannyu po vosrastaniu massiv: ');
  FOR I := 1 TO N
  DO
    WRITE (A[I]:4);
  WRITELN;
  READKEY
END.
Добавлено через 4 часа 18 минут
Вот эту программу надо переделать, чтоб были функции и процедуры
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2016, 21:38
Ответы с готовыми решениями:

Дан массив целых чисел А [1..n]. Отсортировать их методом выделения максимального элемента в порядке возрастания
17. Дан массив целых чисел А . Отсортировать их методом выделения максимального элемента в порядке...

Дан одномерный массив целых чисел. Отсортировать его в порядке возрастания произведения цифр методом Шелла
Дан одномерный массив целых чисел. Отсортировать его в порядке возрастания произведения цифр...

Дан одномерный массивы целых чисел. Отсортировать его в порядке возрастания произведения цифр методом Шелла
Дан одномерный массивы целых чисел. Отсортировать его в порядке возрастания произведения цифр...

Отсортировать одномерный массив чисел в порядке возрастания сумм цифр методом вставок
2)дан одномерный массив чисел. отсортировать его в порядке возрастания сумм цифр методом вставок.

2
Эксперт С++
1605 / 936 / 778
Регистрация: 06.02.2016
Сообщений: 2,425
Записей в блоге: 30
30.05.2016, 17:44 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
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
PROGRAM LAB4;
USES CRT;
type
arr=ARRAY [1..10] OF INTEGER;
VAR
  A: ARR;
  I,N: INTEGER;
  cc: REAL;
  procedure sort(var x:arr; const n:integer);
  var 
  i,j,t:integer;
  begin
  
    FOR I := 1 TO N-1
  DO
    FOR J := I + 1 to N
    DO
      IF x[J] < A[I]
      THEN
        BEGIN
          T := x[I];
          x[I] := x[J];
          x[J] := T;
        END;
        end;
        function avg( x:arr; const n:integer):real;
        var
        sum,kolich,i:integer;
        begin
        Sum := 0;
  Kolich := 0;
  FOR I := 1 TO N
  DO
    IF A[I] < 0
    THEN
      BEGIN
        Sum := Sum + A[I];
        Kolich := Kolich + 1;
      END;
  IF Kolich > 0
  THEN
    BEGIN
      avg := Sum / Kolich;
      Kolich := Kolich - 1
    END
  ELSE
    WRITELN('chisel, ydov uslov, net');
    end;
BEGIN
  CLRSCR;
  WRITE('Vvedite chislo elementov massiva N = ');
  READLN(N);
  WRITELN('Vvodite elementy massiva: ');
  FOR I := 1 TO N
  DO
    READ(A[I]);
    cc:=avg(a,n);
  
  WRITELN('Srednee arif= ',cc:4:2);
   sort(a,n);
  WRITE('Otsortirovannyu po vosrastaniu massiv: ');
  FOR I := 1 TO N
  DO
    WRITE (A[I]:4);
  WRITELN;
 
END.
0
1 / 1 / 0
Регистрация: 29.05.2016
Сообщений: 50
30.05.2016, 22:56  [ТС] 3
спасибо за помощь, помогли очень
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2016, 22:56

Отсортировать одномерный массив a[1..N], состоящий из символов в порядке возрастания методом «вставки»
Ребята помогите написать программу для паскаля. Разработать алгоритм и программу решения задачи,...

Отсортировать одномерный массив целых чисел в порядке возрастания
Отсортировать одномерный массив целых чисел в порядке возрастания. Надо написать программу на языке...

Отсортировать массив методом выбора в порядке возрастания
Дан массив целых чисел А . Отсортировать их методом выбора в порядке возрастания . Вычислить...

Отсортировать массив латинских букв методом вставки в порядке убывания
Ребята вот задача, Дан массив латинских букв А . Отсортировать их методом вставки в порядке...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru