Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
11
Добавлен:
09.03.2016
Размер:
931 б
Скачать
program Rectan_Circle_Line;
uses Graph,Crt;
var GraphDriver,GraphMode:integer;
x0,y0:integer;
const path='c:\tp70\bgi';
begin
GraphDriver:=detect;
InitGraph(GraphDriver,GraphMode,path);
if GraphResult <> GrOk then begin
writeln('GRAPHICESKIY REZIM NE USTANOVLEN ');
Halt
end;
SetBkColor(7);
SetColor(1);
x0:= GetMaxX div 2;
y0:= GetMaxY div 2;
Rectangle(x0-200,y0-100,x0+200,y0+100);
SetColor(Red);
Circle(x0,y0,150);
SetColor(Magenta);
SetTextStyle(GothicFont,HorizDir,3);
OutTextXY(x0-100,y0-10,'Das ist Fantactich');
SetColor(Cyan);
SetLineStyle(DottedLn,0,ThickWidth);
Line(x0-200,y0+100,x0+200,y0-100);
readln;
CloseGraph
end.
Соседние файлы в папке graph