Gusci

Oggi nelle 2 ore di informatica abbiamo visto dei programmini che fanno proprio da guscio ad altri documenti.....abbiamo visto questo programma:

Program TORERO;
var i,o: text;
s: string;
j,h,k,n,m,q: integer;
begin
randomize;
assign (i,'input.txt'); reset(i);
assign (o,'output.txt'); rewrite(o);
read (i,n); read(i,m); read (i,q);
for j:=1 to m do begin
read (i,n); read (i,k);
end;
writeln (o,trunc(random(q+1)));
close (i); close (o);
end.
Questo lavoro l'abbiamo svolto con la 4aP che aveva un'ora di supplenza e così sono venuti con noi in laboratorio.....