0 / 0 / 0
Регистрация: 02.10.2018
Сообщений: 18
|
|
|
1
|
Связать гномью сортировку с данными из файла
22.10.2018, 19:56. Показов 554. Ответов 0
Есть гномья сортировка и программа для ввода рандомных чисел в текстовик, надо чтобы в сортировались данные из полученного текстовика. Не могу понять как это сделать.
| 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
| const maxn=1000000;
type mas=array[1..maxn] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end; |
|
Вот программа для ввода рандомных чисел в текстовик
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Program rnd;
Const MAX = 1000000;
NL = 7;
Var f : Text;
i, N, x : Integer;
Begin
WriteLn('Количество случайных чисел');
Read(N);
Assign(f,'random.txt');
Rewrite(f);
WriteLn(f,N);
Randomize;
For i:=1 To N Do
Begin
x:=Random(MAX);
Write(f, x:10, ' ');
If i mod NL = 0
Then WriteLn(f)
End;
Close(f)
End. |
|
получилось что-то такое
| 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
| const maxn=1000000;
const NL=7;
type mas=array[1..maxn] of integer;
var a:mas;
n,i:integer;
f:text;
x:array[0..maxn] of integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end;
begin
Assign(f,'random.txt');
Reset(f);
Read(f,N);
If N > maxn then
Begin
WriteLn('N слишком велико');
Halt
End;
For i:=1 To N Do
begin
Read(f,x[i]);
a[i]:=x[i];
end;
Close(f);
gnomesort(a,n);
Assign(f,'output.txt');
rewrite(f);
for i:=1 to N do
begin
write(f,a[i]:10,' ');
if i mod NL=0 then
writeln(f)
end;
writeln(f);
writeln(f);
close(f);
end. |
|
0
|
(
