AERODROM

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
AERODROM
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.


AERODROM


unit Letovi;
interface
uses crt;
type
ts40=string[40];
ts5=string[5];
polet=^olet;
olet=object
function GetDestinacija:ts40;
procedure SetDestinacija(NovaDestinacija:ts40);
function GetBrojLeta:ts5;
procedure SetBrojLeta(NoviLet:ts5);
function GetIzlaz:ts5;
procedure SetIzlaz(NoviIzlaz:ts5);
procedure Unos;virtual;
Procedure Prikazi;virtual;
constructor Init;
destructor Done;
private
destinacija:ts40;
brleta:ts5;
izlaz:ts5;
end;
implementation
function olet.GetDestinacija:ts40;
begin
GetDestinacija:=destinacija;
end;
procedure olet.SetDestinacija(NovaDestinacija:ts40);
begin
destinacija:=NovaDestinacija;
end;
function olet.GetBrojLeta:ts5;
begin
GetBrojLeta:=brleta;
end;
procedure olet.SetBrojLeta(NoviLet:ts5);
begin
brleta:=NoviLet;
end;
function olet.GetIzlaz:ts5;
begin
GetIzlaz:=izlaz;
end;
procedure olet.SetIzlaz(NoviIzlaz:ts5);
begin
izlaz:=NoviIzlaz;
end;
procedure olet.Unos;
begin
write('Unesite destinaciju-> ');readln(destinacija);
write('Unesite broj leta-> ');readln(brleta);
write('Unesite izlaz-> ');readln(izlaz);
end;
procedure olet.Prikazi;
var i:integer;
begin
writeln(destinacija:25,brleta:5,izlaz:10);
for i:=1 to 80 do write('-');
end;
constructor olet.Init;
begin
destinacija:=' ';
brleta:=' ';
izlaz:=' ';
end;
destructor olet.Done;
begin
destinacija:=' ';
brleta:=' ';
izlaz:=' ';
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:43 AM
Poseti veb stranicu korisnika Pronađi sve korisnikove poruke Citiraj ovu poruku u odgovoru
Nova tema  Odgovori 


Skoči na forum: