написать в pascal ABC имя Кристина Пример работы ( имя Влад )
uses graphABC;
begin
moveto(100,100);
LineTo(100,300);
LineTo(150,300);
arc(150,250,50,270,90);
line(100,200,150,200);
arc(130,150,50,270,90);
line(100,100,100,130);
line(100,100,130,100);
moveto(200,300);
lineto(250,100);
lineTo(300,300);
moveto(320,300);
lineto(370,100);
lineTo(420,300);
line(334,250,409,250);
moveto(430,300);
lineto(430,250);
lineto(580,250);
lineto(580,300);
moveto(460,250);
lineto(460,100);
lineto(540,100);
lineto(540,250);
end.
pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.
uses graphabc;
procedure drawlight(x, y, r : integer; c : color);
begin
brush.color : = c;
circle(x, y, r);
end;
begin
randomize;
var v : = random(1, 3);
var(c1,c2,c3): =(clwhite,clwhite,clwhite);
case v of
1 : c1 : = clred;
2 : c2 : = clyellow;
3 : c3 : = clgreen;
end;
drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);
drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);
drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);
end.
в паскале