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