Lab_1/utility_array.pas at master · SemyonBevzuk/Lab_1 · GitHub

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
unit utility_array;

interface
  uses crt;
  const
    max_size=10000;
  type
    array_1=array [1..max_size]of integer;

  procedure filling_array(var a:array_1; n,min,max:integer);
  procedure output_array(a:array_1; n:integer);
  procedure input_array(var a:array_1; n:integer);
  procedure check_array(a:array_1; n:integer);
  procedure min_array(var a:array_1; n:integer; var min:integer; var comparison:integer);
  procedure max_array(var a:array_1; n:integer; var max:integer; var comparison:integer);
  procedure swap_elm(var a:array_1; pos_1,pos_2:integer);

implementation
  procedure filling_array;
  var i:integer;
  begin
    for i:=1 to n do
    begin
      a[i]:=random(max-min+1)+min;
    end;
  end;

  procedure output_array;
  var i:integer;
  begin
    for i:=1 to n do
    begin
      write(a[i],' ');
    end;
    writeln();
  end;

  procedure input_array;
  var i:integer;
  begin
    for i:=1 to n do
    begin
      write('Ââåäèòå ', i, ' ýëåìåíò: ');
      readln(a[i]);
    end;
  end;

  procedure check_array;
  var i:integer;
      check:boolean;
  begin
    check:=true;
    for i:=2 to n do
    begin
      if a[i-1]>a[i] then
      begin
        check:=false;
        continue;
      end;
    end;
    if check=true then
    begin
      textcolor(2);
      writeln('Ìàññèâ îòñîðòèðîâàí âåðíî.');
    end
    else
    begin
      textcolor(4);
      writeln('Ìàññèâ îòñîðòèðîâàí íåâåðíî.');
    end;
    textcolor(7);
  end;

  procedure swap_elm;
  var k:integer;
  begin
    k:=a[pos_1];
    a[pos_1]:=a[pos_2];
    a[pos_2]:=k;
  end;

  procedure max_array;
  var i:integer;
  begin
    max:=a[1];
    for i:=2 to n do
    begin
      comparison:=comparison+2;
      if a[i]>max then
        max:=a[i];
    end;
  end;

  procedure min_array;
  var i:integer;
  begin
    min:=a[1];
    for i:=2 to n do
    begin
      comparison:=comparison+2;
      if min>a[i] then
        min:=a[i];
    end;
  end;
end.