Question

Срочно дам 100 балов!!! Pascal

Склади програму для графічного відображення значень елементів масива А[6].
(Кругова діаграма. Метод секторів)

Answer 1

Ответ:

program ArrayGraph;

uses graph, wincrt;

var

 gd, gm, i: integer;

 A: array[1..6] of integer;

 total: integer;

 start_angle, end_angle: real;

begin

 gd := detect;

 initgraph(gd, gm, '');

 for i := 1 to 6 do

 begin

   writeln('Enter value for element A[', i, ']:');

   readln(A[i]);

 end;

 total := 0;

 for i := 1 to 6 do

   total := total + A[i];

 start_angle := 0;

 for i := 1 to 6 do

 begin

   end_angle := start_angle + (A[i] / total) * 360;

   pieslice(320, 240, round(start_angle), round(end_angle), 100);

   start_angle := end_angle;

 end;

 readln;

 closegraph;

end.

Объяснение: