Срочно дам 100 балов!!! Pascal
Склади програму для графічного відображення значень елементів масива А[6].
(Кругова діаграма. Метод секторів)
Ответы
Ответ дал:
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.
Объяснение:
Вас заинтересует
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
7 лет назад
7 лет назад