zad 4

DOSBox 0.74, Cpu speed:    3000 cycles, Frameskip 0, Program: TURBO

File Edit Search Run Compile Debug Tools Options U indów Help

=i=m=n

ZAD4.PAS

[■]-

const n=5;    _

type

pracown i k=record dzialinfo:string!101; stanowisko info:str ing1101; dział:integer; stanowisko:integer; płaca:integer; stawka:integer;

tablicararrayll..ni of pracownik; i:integer; begin randomize;

for i:=1 to n do begin

tab1ica[i 1.dz ia1:=random(2);

case tablica!ii.dział of

0    : tablica!ii.działinfo:='produkcja';

1    : tablica!ii.działinfo:='logistyka'; end;

tab1ica Cii.stanów isko:=random(2);

case tablica!ii.stanowisko of

0    : tablica!ii.stanowiskoinfo:='kierownik';

1    : tablica!ii.stanówiskoinfo:='pracownik'; end;

if tablica!ii.stanówisko=0 then case tablica!ii.dział of

0    : tablica!ii.stawka:=4500;

1    : tablica!ii.stawka:=2200; end;

if tablica!ii.stanówisko=l then case tablica!ii.dział of

0    : tablica!ii.stawka:=3500;

1    : tablica!ii.stawka:=2500; end; end;

for i:=1 to n do begin

wr iteln(i / ',tab1icaI i 1.dz ia1info,':',tab1icaIii.stanów isko info,' '* tab1icaIii.stawka); end; readln; end.