Создать бинарный файл, содержащий натуральные числа, величина которых не превосходит 10
9, заполнив его случайной информацией. Если в файле есть два простых числа, больших 99, у которых первая и последняя цифры одинаковы, то упорядочить файл по невозрастанию. Имя исходного файла, имя упорядоченного файла и размер исходного файла программа должна получать через командную строку.
Собственно, непонятна часть про командную строку и то как можно проверить работает ли программа вообще.
Вот то что у меня получилось на данный момент:
| 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
68
| var f:file of longint;
i,j,n,min,kol:integer;
r,s,t:longint;
function prost (x:longint):boolean;
var d:longint;
m:boolean;
Begin
if x>=2 then begin
d:=2;
m:= true;
while (d<=Int(sqrt(x))) and (m=true) do begin
if x mod d=0 then m:=False;
d:=d+1;
end;
end
else m:=false;
prost:=m;
end;
Function firstlast(x:longint):boolean;
var y:longint;
begin
y:=x mod 10;
while x>9 do
x:=x div 10;
if y=x then firstlast:=true
else firstlast:=false;
end;
Begin
kol:=0;
n:=100;
assign(f,'test.txt');
rewrite(f);
randomize;
for i:=0 to n-1 do begin
r:=random(10000)+1;
Write(f,r);
end;
close(f);
reset(f);
while not eof(f) do begin
read (f,r);
if (r>99) and (prost(r))and(firstlast(r)) then kol:=kol+1;
end;
if kol=2 then begin
for i:=1 to n-2 do
for j:=i+1 to n-1 do begin
seek(f,i);
read(f,r);
seek(f,j);
read(f,s);
if r>s then begin
t:=s;
s:=r;
r:=t;
seek(f,i);
write(f,r);
seek(f,j);
write(f,s);
end;
end;
end;
close(f);
end. |
|
(
