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

Question

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

---

Comments

Слишком сложные задачи, чтобы их одним ответом сделать. Запишите каждую отдельно, возможно кто-нибудь и возьмётся за некоторые из них

---

Вроде не сложные, учитывая возможности графического модуля

---

Писанины много...

---

Сейчас покажу_

---

помогите

---

Терпение)

---

ок

---

Во 2 задании какая-то опечатка. Явно сектор будет выходить за границы

---

Хотя, возможно, нужно повернуть в другую сторону

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.
С цветами, думаю, сам разберешься

Comments

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