PascalABC - построение диаграмм - 11 класс

Приложение 1

Вариант №1

Вариант №2

На 6 баллов.

Набрать программу. Скомпилировать. Сохранить.

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.

На 6 баллов.

Набрать программу. Скомпилировать. Сохранить.

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.

На 7 баллов.

Добавьте еще одну зерновую культуру - Жито (33 га). Скомпилируйте. Сохраните.

На 7 баллов.

Добавьте еще одну зерновую культуру - Рапс (27 га). Скомпилируйте. Сохраните.

На 8-9 баллов.

Сделать цвет каждого сектора определенного цвета (зеленый, желтый, красный, синий, коричневый, черный) используя массив. (см. учебник) Скомпилируйте. Сохраните.

На 8-9 баллов.

Сделать цвет каждого сектора определенного цвета (зеленый, желтый, красный, синий, коричневый, черный) используя массив. (см. учебник) Скомпилируйте. Сохраните.

На 10 баллов.

Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.

На 10 баллов.

Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.