Автор Ђёмный АрхАнгел задал вопрос в разделе Другие языки и технологии
Научите рисовать в паскале ( Pascal ) хотябы основы в двух словах и получил лучший ответ
Ответ от Кrab Bark[гуру]
В собственно Паскале нет графики. Рисуют подпрограммами модуля, обычно называющегося Graph, в разных средах разного. Пример для Turbo Pascal: uses Graph,CRT; var i,m,GrDriver,GrMode:integer; begin Write(\'m ? \'); Readln(m); GrDriver:=VGA; GrMode:=VGAHi; InitGraph(GrDriver,GrMode,\'\\TP\\BGI\'); if GraphResult<>GrOk then begin WriteLn(\'Graphic driver?\'); i:=Ord(ReadKey); Halt end; SetBkColor(White); SetLineStyle(0,0,ThickWidth); Randomize; for i:=1 to m do begin SetColor(Random(14)+1); Arc(320,240,Round(360/m*(i-1)),Round(360/m*i),200) end; i:=Ord(ReadKey) end.
circle(x1,...) Line(...) в качастве аргументов координаты
Систему координат знаешь? Вот x-горизонт, y-вертикаль.
Подключаешь модуль Graph. В папке с программой еще должен находиться модуль Egavga. Можешь нарисовать линию Lineto(x1,y1); Program Kvadrat; // Объявление названия программы Uses GraphABC; Begin // Начало составного оператора (слу