Содержание
- 2. uses GraphABC; begin writeln(WindowWidth, ' ', windowheight); line(0, 160 * 2, 640, 160 * 2); line(340,
- 3. line(415, 100, 305, 170); line(170, 320, 170, 220); line(150, 320, 150, 220); line(170, 220, 150, 220);
- 4. circle(600, 40, 30); line(540, 40, 500, 40); line(600, 100, 600, 140); line(555, 80, 520, 110); end.
- 5. Тәжірибелік жұмыс №2. Пернетақта арқылы өзіңіздің ТАӘ енгізіңіздер. Тегі және аты-жөні төмендегі мысал сияқты шығарылсын. Мысал:
- 6. uses GraphABC; var s, k, m: string; n, i: integer; begin writeln('Введите фамилию, имя, отчество');
- 7. read(s); n := pos(' ', s); k := s[n + 1] + '.'; m := copy(s,
- 8. Тәжірибелік жұмыс №3. Суреттер шығу үшін Pascal-ға программа жазыңыз
- 9. uses GraphAbc; begin SetWindowSize(800,600); //Кораблик line (129,194,249,72); line(247,71,246,232); line(104,235,359,235); line(103,235,167,304); line(167,304,292,303);
- 10. line(292,303,361,234); line(127,192,246,196); line(248,153,305,154); line(305,154,250,72); FloodFill(206,149,clBlue); FloodFill(264,127,clBlue); FloodFill(233,271,clRed);
- 11. //Книга line(399,286,498,288); line(498,288,542,232); line(542,232,511,373); line(511,372,469,423); line(469,423,499,288); line(399,286,367,427); line(367,427,467,425);
- 12. //Звезда line(514,151,531,145); line(531,145,538,122); line(538,122,543,143); line(543,143,561,151); line(561,151,542,157); line(542,157,538,182); line(538,182,533,158); line(533,158,516,151); FloodFill(538,153,clYellow);
- 13. // Свеча line(623,222,623,242); line(613,244,633,245); line(633,245,633,406); line(633,406,613,407); line(613,407,614,245); line(590,130,610,152); line(624,136,624,107); line(640,156,656,134);
- 14. MoveTo(626,152); LineTo(625,155); LineTo(625,155); LineTo(619,162); LineTo(616,166); LineTo(612,171); LineTo(609,178); LineTo(607,185);
- 15. LineTo(607,194); LineTo(608,204); LineTo(610,210); LineTo(613,217); LineTo(617,220); LineTo(621,223); LineTo(625,221); LineTo(632,216); LineTo(636,212);
- 16. LineTo(637,189); LineTo(637,179); LineTo(634,172); LineTo(631,164); LineTo(631,159); LineTo(627,151); FloodFill(620,193,clYellow);
- 18. Скачать презентацию