ДАЮ 40 БАЛЛОВ!!! Составьте программу, которая выполняет чертёж из деталей.

Question

ДАЮ 40 БАЛЛОВ!!! Составьте программу, которая выполняет чертёж из деталей.

---

Comments

в Лого Миры 3.0, 4.0, или где ?

---

ладно шутки шутками а если серьезно где ?)

---

11

---

ты в каком классе ? 10 - 11 ?

---

что это?

---

c++, c#, phyton, scrach, java, и т.п.

---

на английском

---

программирования

---

на каком языке програмирования ?

---

что?

Answer 1

Uses graphABC;
var xc,yc,a,b,r:integer;
s:real;
st:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
a:=240;
b:=120;
r:=60;
setpenwidth(3);
arc(xc,yc-r,r,180,360);
line(xc-b,yc-r,xc-r,yc-r);
line(xc+b,yc-r,xc+r,yc-r);
line(xc-b,yc-r,xc-b,yc+r);
line(xc+b,yc-r,xc+b,yc+r);
line(xc-b,yc+r,xc+b,yc+r);
s:=a*b-pi*r*r/2;
str(s:0:2,st);
textout(xc-30,y+20,'S='+st);
end.

Comments

Минутку

---

конечно

---

а можно line написать числами?

---

спасибо огромное

---

сам ответ смотри

---

где?

---

всё

---

жду)

---

Pascal

---

я не могу понять какие числа надо писать, там где надо сделать дугу