Question

Даю 50 баллов!
ПОМОГИТЕ С ИНФОРМАТИКОЙ Нужно составить программу в PascalABC, которая строит круговую диаграмму, иллюстрирующую распределение результатов тестирования по трем предметам (названия предметов и баллы вводятся с клавиатуры).

Answer 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.

Объяснение: