написать программы чтобы в конце программ выдалось это изображение - Turbo Pascal

Формулировка задачи:

написать две программы чтобы в конце программ выдалось это изображение $ и ромб

Код к задаче: «написать программы чтобы в конце программ выдалось это изображение - Turbo Pascal»

textual
uses graph;
var xc,yc,y1,r:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
y1:=3*yc div 4;
r:=yc-y1;
arc(xc,y1,60,270,r);
y1:=getmaxY-y1;
arc(xc,y1,240,360,r);
arc(xc,y1,0,90,r);
line(xc,y1+r+30,xc,y1-yc+r-30);
readln
end.

10   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ