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

textbackground(a);

textcolor(b);

clrscr;

gotoxy(x,y);

write(s);

end;

procedure fo;

var i,n:integer;

begin

window(1,1,40,25);

textbackground(3);

clrscr;

gotoxy(15,1); writeln('ZAPOLNENIE');

window(5,1,35,25);

textcolor(1);

write('Vvedi kol-vo rabotnikov- ');readln(n);

assign(f,'rab');

rewrite(f);

for i:=1 to n do

begin

seek(f,filesize(f));

clrscr;

writeln('rabo4ii#',i);

write('Vvedi familiu rabo4ego- ');readln(rab.im);

write('Vvedi vozrost rabo4ego- ');readln(rab.v);

write('Vvei vislugu rabo4ego- ');readln(rab.vl);

rab.zp:=rab.v+rab.vl+300;

write(f,rab);

end;