ПАСКАЛЬ: ПРОГАММА Ю НАРИСОВАТЬ ТЕЛЕФОННЫЙ ДИСК
ПАСКАЛЬ: ПРОГАММА Ю НАРИСОВАТЬ ТЕЛЕФОННЫЙ ДИСК
Гость
Ответ(ы) на вопрос:
Гостьprogram krug;
uses Graphabc;
var
r:byte;x,y,rr:integer;
begin
r:=200;
x:=319;
y:=239;
rr:=30;
circle(x,y,r);
circle(x,y,r div 2);
circle(x,y-150,rr);textout(x,y-150,'9');
circle(x,y+150,rr);textout(x,y+150,'2');
circle(x-60,y+135,rr);textout(x-60,y+135,'8');
circle(x-60,y-135,rr);textout(x-60,y-135,'3');
circle(x-115,y+95,rr);textout(x-115,y+95,'7');
circle(x-115,y-95,rr);textout(x-115,y-95,'4');
circle(x-145,y+35,rr);textout(x-145,y+35,'6');
circle(x-145,y-35,rr);textout(x-145,y-35,'5');
circle(x+60,y-135,rr);textout(x+60,y-135,'1');
circle(x+115,y-95,rr);textout(x+115,y-95,'0');
end.
Не нашли ответ?
Похожие вопросы