Pascal flaga Polski

[sakuwbarakushow]

Witam mam problem ze zrobieniem przesuwania się dla Polskiej flagi w Pascalu.
Napisałem tyle :

Program polska;
Uses
Graph, Crt;
VAR
tryb, karta : Integer;
r:integer;
Begin
InitGraph(tryb, karta, '');
SetFillStyle( SolidFill, white );
Bar( 100, 100, 600, 300 );
SetFillStyle( SolidFill, red );
Bar( 100, 300, 600, 500 );
repeat until keypressed;
CloseGraph;
End.



Ale nie wiem jak dorobić przesuwanie się.
I po dwa.
Czy mógłby ktoś pomóc a najlepiej ogarnąć gotowca z programem :
"Napisz program który po wpisaniu boków będzie liczył ctg,tg,sin,cos - użyj funkcji i procedór.
Wzory mam takie : sinL = a/c (ułamek) tgL = a/b (ułamek) cosL = b/c (ułamek) ctgL = c/a (ułamek)

[danielmik]

ciężka sprawa


www.valueadd.pl