Pretplatnici

Maturski, Seminarski , Maturalni i diplomski radovi iz ekonomije: menadzment, marketing, finansija, elektronskog poslovanja, internet tehnologija, biznis planovi, makroekonomija, mikroekonomija, preduzetnistvo, upravljanje ljudskim resursima, carine i porezi.


PRETPLATNICI

unit PLica ;
interface
type
S30 = string [30] ;
S40 = string [40] ;
S10 = string [10] ;
OPLica = object
constructor Init ;
destructor Done ;
procedure SetNaziv (n : S30) ;
function GetNaziv : S30 ;
procedure SetAdresa (a : S40) ;
function GetAdresa : S40 ;
procedure SetBrojTelefona (bt : S10) ;
function GetBrojTelefona : S10 ;
procedure Unos ; virtual ;
procedure Prikaz ; virtual ;
private
naziv : S30 ;
adresa : S40 ;
brojTelefona : S10 ;
end ;
POPLica = ^OPLica ;
implementation
constructor OPLica.Init ;
begin
naziv := '' ;
adresa := '' ;
brojTelefona := '' ;
end ;
destructor OPLica.Done ;
begin
naziv := '' ;
adresa := '' ;
brojTelefona := '' ;
end ;
procedure OPLica.SetNaziv (n : S30) ;
begin
naziv := n ;
end ;
function OPLica.GetNaziv : S30 ;
begin
GetNaziv := naziv ;
end ;
procedure OPLica.SetAdresa (a : S40) ;
begin
adresa := a ;
end ;
function OPLica.GetAdresa : S40 ;
begin
GetAdresa := adresa ;
end ;
procedure OPLica.SetBrojTelefona (bt : S10) ;
begin
brojTelefona := bt ;
end ;
function OPLica.GetBrojTelefona : S10 ;
begin
GetBrojTelefona := brojTelefona ;
end ;
procedure OPLica.Unos ;
begin
write ('Ime - naziv pretplatnika:') ;
readln (naziv) ;
write ('Adresa pretplatnika:') ;
readln (adresa) ;
write ('Broj telefona pretplatnika:') ;
readln (brojTelefona) ;
end ;
procedure OPLica.Prikaz ;
begin
write(naziv:20,adresa:20,brojTelefona:10) ;
end ;
end...