OOP in Pascal
Inviato: sabato 19 aprile 2014, 9:21
Buongiorno; Avrei un problema nella compilazione del seguente programma, scritto in Pascal. Esso si occupa di leggere il nome, il cognome, l'età e il voto di uno studente, che poi saranno passati, con diverse procedure, a una classe (scritta in una unit). In seguito, con un'altra procedura, il programma ristampa i dati inseriti dall'utente. Il tutto risulta insensato, ma mi servirebbe per colmare diversi dubbi e prendere pratica con l'argomento. Grazie per l'aiuto.
Unit:
Programma:
Unit:
Codice: Seleziona tutto
unit registro;
interface
uses crt;
type
Tstudenti = object
procedure nomeecogno(var a,b:String);
procedure anzianita(var c:integer);
procedure rendimento(var d:real);
procedure visualizza;
private
nome:String[30];
cognome:String[30];
eta:integer;
voto:real;
end;
implementation
procedure Tstudenti.nomeecogno(var a,b:String);
begin
a:=nome;
b:=cognome;
end;
procedure Tstudenti.anzianita(var c:integer);
begin
eta:=c;
end;
procedure Tstudenti.rendimento(var d:real);
begin
voto:=d;
end;
procedure Tstudenti.visualizza;
begin
write(nome, ' ');
write(cognome, ' ');
write(eta, ' ');
write(voto, ' ');
end;
end.Codice: Seleziona tutto
program classe;
uses crt,registro;
var g:Tstudenti;
nom,cogn:String[30];
e:integer;
vot:real;
begin
clrscr;
writeln('inserisci il nome'),
read(nom);
writeln('inserisci il cognome');
read(cogn);
writeln('inserisci l''età');
read(e);
writeln('inserisci il voto');
read(vot);
g.nomeecogno(nom,cogn);
g.anzianita(e);
g.rendimento(vot);
g.visualizza;
repeat until keypressed;
end.