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.
Wyszukiwarka
Podobne podstrony:
zad 9 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Compile
zad 6 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Cowpile
zad HH DOSBox 0.74. Cpu speed: 3000 cycles, Frameskip 0, Program: TURB(^^ ^ w=mw> File Edit Sea
zad DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO NONńMEOO.PńS
zad DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO 3 Fi 1 eJEdit^Se<^^ &
kr2 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: &n
kr5 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: Plik
kr6 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: Plik □ Edycja
belka13 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: Plik
belka18 cos cox DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: Plik
belka20 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: Wartość momentu
belka24 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: Plik □ Edycja
belka4 --Uń.h..n-,--LlAAiLfl- H DOSBox 0.74. Cpu speed: 3000 cycles, Frameskip 0. Program: SETT m£
belka9 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: SETT Plik
kr1 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0,
kr12 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0,
kr23 l$Sfj DOSBox 0.74. Cpu speed: 3000 cycles, Frameskip 0.
kr8 DOS DOX DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0,
więcej podobnych podstron