Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.41K
|
program primo; uses crt; type tipo=file of integer; var scelta:integer; num:tipo; procedure inserisci(n:tipo); var nome,x:string; i:integer; begin write('Nome del file:'); readln(nome); x:='F:\File\Esercizi'+nome; assign(n,x); rewrite(n); write('Inserisci 20 numeri:'); for i:=1 to 20 do write(n,i); close(n); end; procedure scrivi(n:tipo); var nome,x:string; i:integer; begin write('Nome del file:'); readln(nome); x:='F:\File\Esercizi'+nome; assign(n,x); reset(n); while not … 
|