Procedure Diagram;

 

Var d_ki_p, t_ki_p, ch_ki_p, p_ki_p:real;

d_ki_s, t_ki_s, ch_ki_s, p_ki_s, kol_stud_s:string;

y1, y2, y3, y4:integer;

 

Begin{Procedure}

kol_stud:=20;

d_ki:=9;

t_ki:=1;

ch_ki:=3;

p_ki:=7;}

d_ki_p:=d_ki/kol_stud*100;

t_ki_p:=t_ki/kol_stud*100;

ch_ki_p:=ch_ki/kol_stud*100;

p_ki_p:=p_ki/kol_stud*100;

d_ki:=Round(d_ki_p);

t_ki:=Round(t_ki_p);

ch_ki:=Round(ch_ki_p);

p_ki:=Round(p_ki_p);

Str(d_ki,d_ki_s);

Str(t_ki,t_ki_s);

Str(ch_ki,ch_ki_s);

Str(p_ki,p_ki_s);

d_ki_s:=d_ki_s+'%';

t_ki_s:=t_ki_s+'%';

ch_ki_s:=ch_ki_s+'%';

p_ki_s:=p_ki_s+'%';

y1:=300-d_ki*2;

y2:=300-t_ki*2;

y3:=300-ch_ki*2;

y4:=300-p_ki*2;

ClearDevice;

SetColor(Green);

Rectangle(5,5,635,475);

Rectangle(40,35,600,50);

Rectangle(40,430,600,445);

SetColor(Red);

OutTextXY(470,15,grup);

OutTextXY(70,40,mas_pun[x]);

SetColor(Red);

SetFillStyle(11,Red);

Bar3D(145,y1,195,300,10,TopOn);

SetFillStyle(11,Brown);

SetColor(Brown);

Bar3D(245,y2,295,300,10,TopOn);

SetFillStyle(11,Blue);

SetColor(Blue);

Bar3D(345,y3,395,300,10,TopOn);

SetFillStyle(11,Green);

SetColor(Green);

Bar3D(445,y4,495,300,10,TopOn);

SetColor(White);

Line(63,302,600,302);

OutTextXY(40,297,'0%');

OutTextXY(160,y1-10,d_ki_s);

OutTextXY(260,y2-10,t_ki_s);

OutTextXY(360,y3-10,ch_ki_s);

OutTextXY(460,y4-10,p_ki_s);

Str(kol_stud,kol_stud_s);

OutTextXY(260,370,kol_stud_s);

End;{Procedure}