напоминающую Звезду Давида, назвал её "Парадигмой" (парадигма-греч.модель).
Вот отрисовка:
program KyzanskiyModel;
uses crt,graph;
var Gd, Gm: Integer;
begin
clrscr;
Gd := Detect;
InitGraph(Gd, Gm, ' ');
Setcolor(15); setlinestyle(0,0,3);
Line(220,140,420,140);Line(220,140,320,340);Line(420,140,320,340);
Line(220,340,420,340);Line(220,340,320,140);Line(420,340,320,140);
Line(320,140,320,340);{-эта линия не обязательно-}
readln;
end.
Ну, отрисовать это легко, но усложнил-решил сделать, чтобы основание нижнего треугольника
сокращалось до нуля, а верхний-наоборот, из нуля выходил, и останавливался,
когда его основание станет таким же, как было у нижнего.
Вот что получилось:
program KyzanskiyModel2;
uses crt,graph;
var Gd, Gm, t: Integer;
begin
clrscr;
Gd := Detect; t:=0;
InitGraph(Gd, Gm, ' ');
repeat
Setcolor(15); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340); Delay(2000);
Setcolor(0); setlinestyle(0,0,3);
Line(320+t,140,320-t,140);Line(320+t,140,320,340);Line(320-t,140,320,340);
Line(220+t,340,420-t,340);Line(220+t,340,320,140);Line(420-t,340,320,140);
Line(320,140,320,340);
t:=t+1;
until (keypressed) or (t>100);
readln;
end.
Помогите:
1. Как сделать, чтобы после окончания работы программы,
оставался верхний треугольник? (Его в конце зарисовывает тоже).
2. Как сделать заливку
а) одному треугольнику
б) двум, но разным цветом?