Паскаль / курсовые / 6 / 6

program z6;
{ Данные контрольной работы учащихся по информатике
представлены следующим образом:
"отлично" - кол-во учащихся a
"хорошо" - кол-во учащихся b
"удовлетворительно" - кол-во учащихся c
"неудовлетворительно" - кол-во учащихся d.
Построцте или столбчатую гистрограмму с легендой,
которая отражает результаты контрольной работы. }
uses crt,graph,f_text;
var g,r : integer;
a,b,c,d,n : longint;
_1,_2,_3,_4,_5 : real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
n:=a+b+c+d;if n>360 then halt;
_1:=360/n;
_5:=a*_1;
_4:=b*_1;
_3:=c*_1;
_2:=d*_1;

d:=detect;initgraph(g,r,'');
SetBkColor(0);
setcolor(2);

rectangle(10,30,50,round(_5));
rectangle(60,30,100,round(_4));
rectangle(110,30,150,round(_3));
rectangle(160,30,200,round(_2));

rectangle(10,4,50,23);
rectangle(60,4,100,23);
rectangle(110,4,150,23);
rectangle(160,4,200,23);

setfillstyle(4,10); floodfill(11,31,2);
setfillstyle(5,10); floodfill(61,31,2);
setfillstyle(8,10); floodfill(111,31,2);
setfillstyle(9,10); floodfill(161,31,2);

setcolor(15);
moveto(20,10);{ }
OutText('"5" "4"');
moveto(120,10);{ }
OutText('"3" "2"');

setfillstyle(1,8);
setcolor(0);
FillEllipse(470,200,130,130);
PieSlice(470,200,0,round(_5),120);
PieSlice(470,200,round(_5),round(_5+_4),120);
PieSlice(470,200,round(_5+_4),round(_5+_4+_3),120);
PieSlice(470,200,round(_5+_4+_3),round(_5+_4+_3+_2),120);


readln;
closegraph;
end.