Добавлено (2011-05-29, 11:17 PM)
---------------------------------------------
Я сделал так
program test;
uses crt, graph;
var
grDriver,grMode:integer;
x1,y1,x2,y2:integer;

BEGIN
grDriver:=Detect;
InitGraph(grDriver,grMode,'D:\TP\BGI');
x1:=30;
y1:=30;
x2:=100;
y2:=100;
rectangle(x1,y1,x2,y2);
readln;
CloseGraph;
end.
и у меня нарисовался квадратик =)

Добавлено (2011-05-29, 11:19 PM)
---------------------------------------------
uses crt, graph;
var
grDriver,grMode:integer;
x1,y1,x2,y2:integer;

BEGIN
grDriver:=Detect;{®ЇаҐ¤Ґ«Ґ­ЁҐ вЁЇ  Ја дЁзҐбЄ®Ј® ¤а ©ўҐа }
InitGraph(grDriver,grMode,'egavga.bgi');{Ё­ЁжЁ «Ё§ жЁп Ја дЁЄЁ}
if GraphResult<>grOk then {Ґб«Ё Їа®Ё§®и«  ®иЁЎЄ  Halt Ё­ЁжЁ «Ё§ жЁЁ
б Ї®¬®ймо ўл室Ё¬ Ё§ Їа®Ја ¬¬}
writeln(GraphErrorMsg(graphresult))
else
begin
x1:=30;
y1:=30;
x2:=100;
y2:=100;
bar(x1,y1,x2,y2);
readln;
CloseGraph
end
end.

работает)))

Добавлено (2011-05-29, 11:20 PM)
---------------------------------------------
прямоугольник)

Добавлено (2011-05-29, 11:22 PM)
---------------------------------------------
молодец, теперь закрась его еще беленьким чтобы было понятно что это бумажка.
Потом когда все будет в елочку, делай следующие две мини-программы.

Добавлено (2011-05-30, 0:31 Am)
---------------------------------------------
Есть так же и обратная стратегия. Сначала основу программы пишешь, с функциями-заглушками, т.е. просто имена, но они ничего не делают, как скелет. А потом каждую по отдельности прорабатываешь.Я таким пользуюсь на олимпиадах.

Добавлено (2011-05-30, 0:33 Am)
---------------------------------------------
Кстати, кто пишет ЕГЭ по инфе С4 тоже так надо делать!