Написать программу рисования фигуры, изображенной на рис. 2г, и заполнения ее треугольной части некоторым цветом после нажатия на клавишу Enter.
Код к задаче: «Написать программу рисования фигуры, изображенной на рисунке, и заполнения ее треугольной части некоторым цветом после нажатия на клавишу Enter»
Листинг программы
uses wincrt, crt; procedure check_out; var stop : boolean; begin if keypressed then begin stop := readkey = ‘w’; while keypressed do readkey; if stop then begin wincrt.sound(400, 500); Halt; end; end; end; var a,x,y, dx, dy:integer; s:string; //c:char; begin clrscr; randomize; a:=random(32000); str(a,s); repeat x := 20; y := 1; dx := 1; dy := 0; repeat check_out; gotoxy(x, y); write(s); delay(200); gotoxy(1, y); clreol; inc(x, dx); inc(y, dy); if (x = 61 — length(s)) and (y = 1) then begin dx := -2; dy := 1; end else if y = 25 then begin dx := 1; dy := 0; end; until (y = 25) and (x > 60 — length(s)); until false; end.
Источник: studassistent.ru
ТЕМА 2. ПОСТРОЕНИЕ КУБА, ЦИЛИНДРА, ШАРА
Составьте программу рисования фигуры, изображенной на рисунке, таким образом, чтобы во время рисования перо не отрывалось от бумаги, и ни одна линия не проводилась дважды.
CLS SCREEN 15 LiNE(700,500)-(500,300),0 LINE(500,300)-(300,500),0 LINE(300,500)-(400,600),0 LINE(400,600)-(400,400),0 LINE(400,400)-(600,400),0 LINE(600,400)-(600,600),0 LINE(600,600)-(400,600),0 LINE(400,600)-(500,700),0 LINE(500,700)-(700,500),0 LINE(700,500)-(700,300),0 LINE(700,300)-(500,100),0 LINE(500,100)-(100,500),0 LINE(100,500)-(500,900),0 LINE(500,900)-(900,500),0 LINE(900,500)-(700,300),0 LINE(700,300)-(300,300),0 LINE (300,300)-(300,700),0 LINE(300,700)-(700,700),0 LINE(700,700)-(700,500),0 END
Источник: znanija.site
2. Составьте программу рисования ромба с диагоналями длиной 5 и 10 единиц, параллельными осям координат. Координаты центра ромба (15; 15). Большая ось ромба паралледьна ось Х. 3. Составьте программу рисования фигуры, изображенной на рисунке, таким образом, чтобы во время рисования перо не отрывалось от бумаги, и ни одна линия не проводилась дважды.
1 — ый вариант:
1. переведи в точку (3, 5) 2. опусти перо3. переведи в точку (5, 9)4. переведи в точку (7, 5)5. переведи в точку (5, 1) 6. переведи в точку (3, 5)
2 — ой вариант:
1.переведи в точку (1, 5)2.опусти перо3.переведи в точку (5, 7)4.переведи в точку (9, 5)5.переведи в точку (5, 3) 6.переведи в точку (1, 5)
Источник: globuss24.ru