Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните. program Diagram; uses crt, GraphABC; const A: array[1..5] of integer = (47,63,22,27,12); B: array[1..5] of string = ('Рожь','П...
Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.
program Diagram;
uses crt, GraphABC;
const A: array[1..5] of integer = (47,63,22,27,12);
B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха');
var u, u0, S, i: integer;
begin
SetWindowSize(600, 600);
S:=0; u0:=0;
for i:=1 to 5 do
S:=S+A[i]; //вычисление суммарной площади
for i:=1 to 5 do
begin
Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %');
SetBrushColor(rgb(random(255),random(255),random(255)));
u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора
Pie(220,240,140,u0,u); //рисование сектора
u0:=u; //новое значение начального угла следующего сектора
end;
end.
Гость
Ответ(ы) на вопрос:
ГостьВвод массива с клавиатуры выглядит вот так:
var
razmer, i2: Integer
........
WriteLn (‘Введите размер массива’);
ReadLn (razmer);
For i2:=1 to razmer do
Begin
WriteLn (i2,’ ’);
ReadLn (A[i2]);
Массив В вводится так же...
Не нашли ответ?
Похожие вопросы