freepascal.ru

Uses GRAPH;-подключение модуля {обязательно.пишется после program<название>}
INITGRAPH(d,m,' ');- инициализация графического режима {обязательно}
line(x1,y2,x2,y2);-линия {например line (40,10,300,20);}
rectangle(x1,y1,x2,y2);-прямоугольник {x1,y1-координата левого верхнего угла,x2,y2-координата правого нижнего угла}
circle(x,y,r);-окружность {x,y-координата центра, r- радиус}

вот пример графической программы (телевизор)

program <название>;
uses crt,graph;
var
d,m:integer;
begin
INITGRAPH(d,m,' ');
rectangle(200,300,500,500);
rectangle(250,350,450,450);
line(200,300,350,300);
line(400,200,350,300);
line(250,500,200,600);
line(450,500,500,600);
readln;
end.

А за окном идет дождь. И что?

vada писал(а):И что?

И рота красноармейцев!

В первоисточнике шел снег

Вот, блин. Забываю уже.

Таки где же теперь тот снег и те красноармейцы...

Товарищ попал во временную петлю?
И токмо сейчас выпал?

sign
Ходят слухи (непроверенные) что в некоторых университетах программирование преподают только на ТР.

Петербургский ВоенМех - ТР и АВС
Когда сынуле приятеля показал лазаря - у препода был шок

Vadim писал(а):sign
Ходят слухи (непроверенные) что в некоторых университетах программирование преподают только на ТР.

А что в том плохого?

vip210 писал(а):вот пример графической программы (телевизор)

хороший пример, сделал телевизор, теперь смотрю хоккей на нем

Mikhail писал(а):А что в том плохого?

Плохое в нем то, что на большинстве нынешних компьютеров он и его программы запускаются только под эмулятором из-за эпичного бага в библиотеке и "Runtime error 200"

SSerge писал(а):Плохое в нем то, что на большинстве нынешних компьютеров он и его программы запускаются только под эмулятором из-за эпичного бага в библиотеке и "Runtime error 200"

Это исправляется. Хотя, конечно, лучше использовать что-то посовременнее.

SSerge писал(а):

Mikhail писал(а):А что в том плохого?

Плохое в нем то, что на большинстве нынешних компьютеров он и его программы запускаются только под эмулятором из-за эпичного бага в библиотеке и "Runtime error 200"

Ну так fpc же есть и fp-ide.

pda писал(а):Это исправляется.

Там есть и другие косяки, более худшие, которые не исправляются, т.к. незачем.