Zaprojektuj w pascalu w trybie graficznym flagę RPA daje najlepszą ! praca żeby mieć 4 na koniec :) wrazie pytań pw

1. program flaga; 2. uses crt, graph; 3. var 4. karta,tryb:smallint; 5. const f1 : array[1..3] of PointType = ((X:0;Y:64), (X:303;Y:267), (X:0;Y:469) ); 6. const f2 : array[1..3] of PointType = ((X:0;Y:107), (X:239;Y:267), (X:0;Y:426)); 7. const f3 : array[1..6] of PointType = ((X:97;Y:0),(X:415;Y:213),(X:800;Y:213),(X:800;Y:178),(X:428;Y:178),(X:161;Y:0)); 8. const f4 : array[1..6] of PointType = ((X:97;Y:533),(X:415;Y:320),(X:800;Y:320),(X:800;Y:355),(X:428;Y:355),(X:161;Y:533)); 9. const f5 : array[1..4] of PointType = ((X:161;Y:0),(X:428;Y:178),(X:800;Y:178),(X:800;Y:0)); 10. const f6 : array[1..4] of PointType = ((X:161;Y:533),(X:428;Y:355),(X:800;Y:355),(X:800;Y:533)); 11. begin 12. detectgraph(karta,tryb); 13. initgraph(karta,tryb,'); 14. ClearDevice; 15. SetColor(2); 16. SetFillStyle(1,2); 17. Bar(0,0,800,533); 18. setcolor(14); 19. FillPoly( 3, f1 ); 20. setcolor(0); 21. FillPoly( 3, f2 ); 22. setcolor(15); 23. FillPoly( 6, f3 ); 24. FillPoly( 6, f4 ); 25. setcolor(12); 26. FillPoly( 4, f5 ); 27. setcolor(9); 28. FillPoly( 4, f6 ); 29. 30. readkey; 31. closegraph; 32. end. A tutaj możesz zobaczyć jak to wygląda: http://pastebin.com/7auuBnfE

w załączniku