Предмет: Информатика,
автор: yukarl
Даю 50 баллов!
ПОМОГИТЕ С ИНФОРМАТИКОЙ Нужно составить программу в PascalABC, которая строит круговую диаграмму, иллюстрирующую распределение результатов тестирования по трем предметам (названия предметов и баллы вводятся с клавиатуры).
Ответы
Автор ответа:
1
Ответ:
program z1;
uses crt,GraphABC;
var u,u0,i:integer; a:string; b:real;
S:real;
begin
SetWindowSize(500,500);
S:=0;
u0:=0;
for i:=1 to 3 do readln(A);
for i:=1 to 3 do readln(B);
for i:=1 to 3 do S:=S+B;
for i:=1 to 3 do
begin
Writeln(A,' ',B);
SetBrushColor(rgb(random(255),random(255),random(255)));
u:=u0+round(B*360/S);
Pie(320,340,140,u0,u);
u0:=u;
end;
end.
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: lassa300
Предмет: Русский язык,
автор: qweasd12356
Предмет: Русский язык,
автор: kukcenkova
Предмет: Алгебра,
автор: johny7
Предмет: История,
автор: Lokyan3012