Найти ошибку в программе паскаль онлайн

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

program laba;
uses Crt;
  const max = 32000;
  Var i,j,c,n:Integer;
      Q:boolean;
  MainMassiv : Array [1..max] of Integer;
 
Begin
  repeat
    ClrScr;
    Writeln('1 - Задание массива;');
    Writeln('2 - Выбор сортировки;');
    Writeln('3 - Выбор поиска;');
    Writeln('4 - Числовые эксперименты;');
    Writeln('5 -Выход.');
    Writeln;
    Write('Ваш выбор: ');
    Readln(c);
    case c of
      1:begin     //задание массива
            randomize;
            Writeln('Введите количество элементов в массиве');
            Readln(n);
            if n <= 10 then 
            begin
              For i:=1 to n do 
              begin
                Writeln('Введите ',i,' элемент массива');
                Readln(MainMassiv[i]);
              end;
            end
            else 
              For i:=1 to n do 
              begin
                MainMassiv[i]:=random(1,32000);
              end;
            end;  //конец задания массива
    
      2:begin   //подменю выбора сортировки
            repeat
              ClrScr;
              Writeln('1 - Сортировка пузырьком;');
              Writeln('2 - Сортировка вставкой;');
              Writeln('3 - Сортировка выбором;');
              Writeln('4 - Сортировка "Быстрая";');
              Writeln('5 - Сортировка слиянием;');
              Writeln('6 - Выход.');
              Writeln;
              Write('Ваш выбор: ');
              Readln(c);
              case c of
                 1:begin  //сортировка пузырьком
                        for j:=1 to n-1 do
                        begin
                          for i:=1 to n-i do
                          begin
                            if MainMassiv[i] > MainMassiv[i+1] then //сортировка по убыванию M[i] < M[i+1]
                               swap(MainMassiv[i],MainMassiv[i+1]);
                          end;     
                        end;
                        Write(MainMassiv[i],' ');
                      end;  //конец сортировки пузырьком
                  2:;
                  3:;
                  4:;
                  5:;
                  6: Q:true;
              end;
            until Q;
          end;  //конец подменю выбора сортировки
    
      3:begin //подменю выбора поиска
            repeat
              ClrScr;
              Writeln('1 - Простой поиск;');
              Writeln('2 - Бинарный поиск;');
              Writeln('3 - Выход.');
              Writeln;
              Write('Ваш выбор: ');
              Readln(c);
              case c of
                  1:begin
                        Writeln('Введите искомый элемент');
                        Readln(elem);
                        index:=-1;
                        For i:=1 to n do 
                          if MainMassiv[i] = elem then
                          index:=i;
                        Writeln('Индекс искомого элемента - ',index);
                      end;
                  2:begin
                        s:=1;
                        f:=n;
                        While (s<f) do
                        begin
                          c:=(s+f)div 2;
                          if MainMassiv[c] = elem then 
                            break;
                          if MainMassiv[c] < elem then
                            s:=c+1;
                          if MainMassiv[c] > elem then
                            f:=c-1;
                        end;
                        if (s<f) then
                          Writeln(c)
                        else 
                        Writeln('эелемент отсутствует в массиве'); 
                      end;
                  3:Q:true;
              end;
            until Q;
          end;  //конец подменю выбора поиска
      4:;
      5:Q:true;
    end;
  until Q;
end.