unit Nominativo;
interface
type tstr=string[90];
type tstr200=string[200];
type indirizzo=record
nome:tstr;
indirizzo:tstr;
utente:tstr;
pas:tstr;
note:tstr200;
end;
function indirizzoNullo:indirizzo;
function ugualeANullo(esaminato:indirizzo):boolean;
function recordUguali(primo,secondo:indirizzo):boolean;
implementation
function indirizzoNullo:indirizzo;
var i,j,fine:integer;
risultato:indirizzo;
begin
fine:=90;
for i:=1 to fine do
begin
risultato.nome[i]:=' ';
risultato.indirizzo[i]:=' ';
risultato.utente[i]:=' ';
risultato.pas[i]:=' ';
risultato.note[i]:=' ';
end;
for j:=fine+1 to 200 do
risultato.note[j]:=' ';
risultato.nome:='';
risultato.indirizzo:='';
risultato.utente:='';
risultato.pas:='';
risultato.note:='';
indirizzoNullo:=risultato;
end;
function ugualeANullo(esaminato:indirizzo):boolean;
begin
ugualeANullo:=recordUguali(esaminato, indirizzoNullo);
end;
function recordUguali(primo,secondo:indirizzo):boolean;
var responso:boolean;
begin
responso:=primo.nome=secondo.nome;
responso:= (responso) and (primo.indirizzo=secondo.indirizzo);
responso:= (responso) and (primo.utente=secondo.utente );
responso:= (responso) and (primo.pas=secondo.pas);
responso:= (responso) and (primo.note=secondo.note);
recordUguali:=responso;
end;
end.