Question

Помогите составить программу!очень надо !буду благодарен !№2,3,4,5 кто что сможет!!заранее огромное спасибо

Answer 1

2. uses GraphABC;
begin
Pie(100, 50, 70, 270, 360);
end.
3. uses GraphABC;
begin
Draw(x -> 2 * cos(x), -pi, pi);
end.
4. uses GraphABC;
begin
Draw(x -> cos(x), -10, 10);
Draw(x -> sin(x), -8, 8);
end.
5. uses GraphABC;
begin
Brush.Color := clRandom; 
Pie(200, 200, 100, 0, 170); 
Brush.Color := clRandom; 
Pie(200, 200, 100, 170, 270); 
Brush.Color := clRandom; 
Pie(200, 200, 100, 270, 300); 
Brush.Color := clRandom; 
Pie(200, 200, 100, 300, 330); 
Brush.Color := clRandom; 
Pie(200, 200, 100, 320, 333); 
Brush.Color := clRandom; 
Pie(200, 200, 100, 333, 360);
end.
С цветами, думаю, сам разберешься

Answer 2

В 5 для получения градусов нужно умножить проценты на 3.6