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
|
type mitem=array[0..8] of string[16];
tstr16=string[16];
const chdiv:array[0..8] of string
=('Eclipse','Elongation','Occultation','Conjonction',' Lever',
'Satellites',' Binaire',' Visibilit‚','Courbe');
const ch:array[0..8] of integer=
(0,1,2,3,4,5,6,7,8);
var
Error : boolean;
Procedure affmenu(const Rr:array of string);
var i,j:integer;
Begin
i:=0;j:=high(Rr);writeln(j);
{rr[j div 2]:='Modif';}
while (i<=j) do
begin
writeln(length(RR[i]));
writeln(Rr[i]);inc(i);
end;
if RR[6]<>' Binaire' then
Error:=true;
End;
Procedure affint(const Rr:array of integer);
var i,j:integer;
Begin
i:=0;j:=high(Rr);writeln(j);
while (i<=j) do
begin
writeln(Rr[i]);inc(i);
end;
End;
Procedure affm(Rr:tstr16);
Begin
writeln(Rr);
End;
Begin
affm(chdiv[8]);
affint(ch);
writeln('suite');
affmenu(chdiv);
writeln('Fin');
if Error then
begin
writeln('ERROR!');
halt(1);
end;
End.
|
