Курсовая работа: Автоматизоване нарахування заробітної плати

vit;

readln; }

repeat

window(1,1,40,25);

textbackground(7);

clrscr;

j:=1;

menu('Zapolnenie','Vivod','Steranie','vixod',7,2);

upravl(7,5,33,7,7,4,10,2,'Zapolnenie');

repeat

newreadkey(a,b);

case b of

72:j:=j-1;

80:j:=j+1;

end;

case j of

0:j:=1;

5:j:=4;

end;

case j of

1: begin

menu('Zapolnenie','Vivod','Steranie','vixod',7,2);

upravl(7,5,33,7,7,4,10,2,'Zapolnenie');

end;

2: begin

menu('Zapolnenie','Vivod','Steranie','vixod',7,2);

upravl(7,8,33,10,7,4,10,2,'Vivod');

end;

3: begin