		Programamzione-corso A
Lab7
1. Eseguire il seguente programma per creare un file di testo di 
	4 righe

program crea_testo (t,input);
uses WinCrt;

Var t:text;
    c:char;

procedure crea (var f:text);
var c:char;
begin
 writeln ('immettere il testo / CRTL+Z per terminare ');
 rewrite (f); 
 while not eof(input) do
 begin
   while not(eoln(input)) do
        begin read (c);  write (f,c);
        end;        
 readln;  writeln (f) 
 end 
 close (f);
 end;
 begin;
 checkeof:=true; (* variabile dichiarata nella unit Wincrt*)
		   (* =true per abilitare il carattere
			end-of-file, =false in caso contrario*)
 assign (t,'prova');
 crea (t);
end.

2. Verficare con un programma di Windows che il file  stato
	scritto correttamente

3. Scrivere un programma per leggere il file creato

4. Esguire il seguente programma.  Quale funzione realizza?

program ricorsione;
uses  WinCrt; 
  procedure leggi_stampa;
     var c:char;
  begin
       read (c);
     if not eoln(input) then leggi_stampa;
     write (c);
   end;
begin
  Writeln('Immettere la stringa che si vuole stampare');
  leggi_stampa; end.
