- Код: Выделить всё
USES Graph, Crt;
VAR gm, gd, i : Integer;
y1,y2 : Real;
s : String;
BEGIN
InitGraph(gd,gm,'');
CLRSCR;
Rectangle(10,10,1260,955);
Line(10,500,1260,500);
Line(625,10,625,950);
FOR i:=-8 TO 8 DO
BEGIN
Line(625+75*i,490,625+75*i,510);
IF i<>0 THEN
BEGIN
Str(i,s);
OutTextXY(625+75*i,520,s)
END
END;
FOR i:=-6 TO 6 DO
BEGIN
Line(615,500+75*i,635,500+75*i);
IF i<>0 THEN
BEGIN
Str(i,s);
OutTextXY(600,490+75*(-i),s)
END
END;
SetTextStyle(0,0,2);
OutTextXY(610,505,'O');
OutTextXY(1245,505,'X');
OutTextXY(610,13,'Y');
READLN;
END.
нажимаю ctrl+F9 (начинаю компилировать)
примерно 30 сек висит вот это:
(на черном фоне)
Running "<путь к файлу *.exe образованного из файла *.pas>"
после чего только появляется результат(правильный)
