Написать программу, выводящую на экран круговую диаграмму

@Greitor · Регистрация: 29.10.2016

Написать программу, выводящую на экран круговую диаграмму успеваемости учеников в классе, если известно количество отличников, хорошистов и т.д.
Я сделал только круг, но не знаю, как в нём сделать диаграмму, буду благодарен за помощь

Pascal

uses crt,graph; 
var 
two,three,four,five,driver, mode, Err :integer; 
begin 
writeln('Укажите количество двоечников '); 
readln(two); 
writeln('Укажите количество троечников '); 
readln(three); 
writeln('Укажите количество хорошистов '); 
readln(four); 
writeln('Укажите количество отличников '); 
readln(five); 
writeln('В итоге у нас ',five,' отличников, ',four,' хорошистов, ',three,' троечников и ',two,' двоечников '); 
driver:=detect; 
InitGraph (driver, mode,'C:\Bp\Bgi'); 
Err:= GraphResult; 
if Err<>grOK 
then writeln ('Ошибка при инициализации графического режима') 
else 
SetColor(1); 
SetBkColor(white); 
cleardevice; 
Circle (500,400,250); 
SetFillStyle(1,white); 
FloodFill(500,400,1); 
readln; 
CloseGraph; 
end.

@Puporev · 15.04.2017, 20:47

Посмотрите это.
https://www.cyberforum.ru/post2315790.html
https://www.cyberforum.ru/post729568.html

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	15.04.2017, 20:47	2
	Посмотрите это. https://www.cyberforum.ru/post2315790.html https://www.cyberforum.ru/post729568.html 0

Опции темы