je ne peux pas sauvegarder mon fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
uses crt ;
type date_n=record
      jj:1..31;
      mm:1..12;
      aa:integer;
      end;
 
type     addresse =record
      c_p:integer ;
      rue:string;
      ville:string ;
      number:integer;
      end;
 
type     info_etu=record
      nom:string[20];
      pr: string[20];
      mtr:longint;
      daten: date_n;
      add: addresse ;
      end;
var fich : file of  info_etu;
var i,y : integer;
ie : info_etu;
 
 
begin
assign(fich, 'c:\tp\fich.txt');
rewrite (fich);
y:=0;
for i:=1 to 1 do
               begin
               y:=y+7;
               if (y>7)   then
                                      begin
                                      y:=y+6;
                                      end;
               writeln(' ');
               writeln('les donnees d"etudiant numero ',i,' :');
               writeln(' ');
 
 
                with ie do     begin
                  write ('Nom: ') ;
                  readln (nom);
                  write ('prenom: ');
                  readln (pr) ;
                  write ('matricule: ');
                  readln(mtr);
                  with daten do begin
 
                                  write ('jj/mm/aa : ');
                                  readln (jj);
                                  gotoXY (14,y);write('/');readln(mm);gotoXY (17,y);write('/');readln(aa);
                                  end;
                         with add do begin
 
                                  writeln(' ');
                                  writeln('adress:  ');
                                  write('c.p : '); readln(c_p);
                                  write('number : '); readln (number);
                                  write('rue : ');
                                  readln (rue);
                                  write('ville : ');
                                  readln (ville) ;
                                  end;
                            end;
 
                end;
 
 
 
 
close(fich);
read(fich ,ie);
 
readln;
readln;
readln;
 
 
 
end.