Uses GraphABC;
begin writeln(WindowWidth, ‘ ‘, windowheight); line(0, 160 * 2, 640, 160 * 2); line(340, 320, 340, 170); line(490, 320, 490, 170); line(305, 170, 525, 170); line(305, 170, 415, 170); line(415, 100, 525, 170); line(415, 100, 305, 170); line(170, 320, 170, 220); line(150, 320, 150, 220); line(170, 220, 150, 220); Ellipse(100, 230, 220, 70); Rectangle(375, 210, 455, 290); line(415, 210, 415, 290); line(375, 250, 455, 250); circle(600, 40, 30); line(540, 40, 500, 40); line(600, 100, 600, 140); line(555, 80, 520, 110); end.
Александр Герасянов Отвечено 22 сентября 2019
- ‘ data-html=»true»> Поделиться
- Комментариев (0)
Источник: matfaq.ru
Нужно нарисовать дом с движущимся солнцем — Pascal ABC
Нарисуйте домик, над которым светит солнышко. Солнышко движется по небу.
Код к задаче: «Нужно нарисовать дом с движущимся солнцем»
Листинг программы
Паскаль Рисую дом
uses graphABC; var x,y,r,x0,y0:integer; procedure dom; begin setpencolor(clBlack); setbrushstyle(bsClear); line(0,y0,700,y0); rectangle(x0-50,y0-100,x0+50,y0); rectangle(x0-20,y0-80,x0+20,y0-30); line(x0-50,y0-100,x0,y0-150); line(x0+50,y0-100,x0,y0-150); end; procedure solnce(x,y,r:integer); begin setbrushcolor(clYellow); setpencolor(clYellow); circle(x,y,r); end; begin setwindowsize(700,300); centerwindow; x0:=350; y0:=295; r:=20; x:=r; y:=2*r; dom; solnce(x,y,r); lockdrawing; repeat clearwindow; dom; solnce(x,y,r); sleep(100); x:=x+5; redraw; until x>700-r; end.
Источник: studassistent.ru
Juliette’s blog
yh — уровень горизонта (задаем сами)
y0 — уровень дальности d0 (задаем сами)
y — уровень дальности d (рассчитывается)
L0 — размер изображения предмета, находящегося на дальности d0 (задаем)
L — размер изображения предмета, находящегося на дальности d (рассчитываем)
везде слово «предмет» означает один и тот же предмет, лежащий на земле перпендикулярно линии взгляда
Допустим, надо изобразить предмет, находящийся на дальности d. Расчеты производим исходя из подобия трегольников A0-O-B0 и AOB.
Но сначала заметим, что во сколько раз предмет дальше, во столько раз он кажется меньше. Назовем это отношение k.
L0/L = d/d0 = k
Отсюда сразу получаем: L = L0/k
Это же число k является и коэффициентом подобия треугольников.
(yh-y0)/(yh-y) = k
y = yh — (yh-y0)/k
WinCRT , domik_elements ;
x , y , l , i , n , k : integer ;
Источник: julietteko.blogspot.com