Pretplatnici

Nova tema  Odgovori 
Podelite temu sa drugarima: ZARADITE PRODAJOM SVOJIH RADOVA
 
Ocena teme:
  • 0 Glasova - 0 Prosečno
  • 1
  • 2
  • 3
  • 4
  • 5
Autor Poruka
Dzemala Nije na vezi
Posting Freak
*****

Poruka: 8,300
Pridružen: May 2010
Poruka: #1
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
10-09-2010 12:56 AM
Poseti veb stranicu korisnika Pronađi sve korisnikove poruke Citiraj ovu poruku u odgovoru
Nova tema  Odgovori 


Skoči na forum: