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
| with ada.text_io,ada.integer_text_io,ada.Direct_Io;
use ada.text_io,ada.integer_text_io;
procedure db is
type db_p is record
id :positive ;
codice:positive;
nome : string(1..20):=(others =>' ');
club:string(1..30):=(others =>' ');
punteggio:positive;
end record ;
-- package Transport_File is new Ada.Direct_Io (Element_Type => db_p);
-- use Transport_File;
data_base:db_p;
code :positive;
i_d :positive;
name :string(1..20);
length :integer ;
club_b: string(1..30);
punt : positive ;
F:file_type;
C:character;
begin
create(file=>F,mode=>out_file ,name=>"mydate.txt");
loop
put(" inedroduce informazione :" );
new_line;
put(" id : ");
get(i_d);
data_base.id:=i_d;
put(f,data_base.id);put(f," ");
put(" code : ");
get(code);
data_base.codice:=code;
put(f,data_base.codice);put(f," ");skip_line;
put(" name : ");
get_line(name,length);
data_base.nome(1..length):=name(1..length);
put(f,data_base.nome);put(f," ");
put(" club : ");
get_line(club_b,length);
data_base.club(1..length):=club_b(1..length);
put(f,data_base.club);put(f," ");
put(" punteggio : ");
get(punt);
data_base.punteggio:=punt;
put(f,data_base.punteggio, 1);put(f," ");
new_line(f);
Put("Ancora? (S/N)"); Get(C);
Skip_Line;
exit when C = 'N' or C = 'n';
END LOOP;
close (file=> f );
end db ; |
Partager