Dzemala
Posting Freak
    
Poruka: 8,277
Pridružen: May 2010
|
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...
PORUČITE RAD NA OVOM LINKU >>>
SEMINARSKI
maturski radovi seminarski radovi maturski seminarski maturski rad diplomski seminarski rad diplomski rad lektire maturalna radnja maturalni radovi skripte maturski radovi diplomski radovi izrada radova vesti studenti magistarski maturanti tutorijali referati lektire download citaonica master masteri master rad master radovi radovi seminarske seminarski seminarski rad seminarski radovi kvalitet kvalitetni fakultet fakulteti skola skole skolovanje titula univerzitet magistarski radovi
LAJKUJTE, POZOVITE 5 PRIJATELJA I OSTVARITE POPUST
|
|
12:56 AM |
|