Меню сайта

Задача №11

Построение -кораблика.

uses graph,crt-

var gd,gm:integer-

— — — a,h:real-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtextxy (30,0,’Введите высоту и длину палубы (H и Aчерез Enter)’)-

readln(h)-

readln(a)-

LINE (320 + round(a/ 2), 240 — round(h / 2),320 + round(a/2), 240 + round(h/ 2))-

LINE (320 + round(a/ 2), 240 — round(h / 2),320 — round(a / 2), 240 — round(h / 2))-

LINE (320 — round(a/ 4), 240 + round(h / 2),320 + round(a / 2), 240 + round(h / 2))-

LINE (320 — round(a/ 4), 240 + round(h / 2),320 — round(a / 2), 240 — round(h / 2))-

LINE (320, 240 -round(h / 2),320, 240 — round(h * 2))-

LINE (320, 240 -round(h * 2),320 + round(a / 5), round(240 — h))-

LINE (320, 240 -round(h),320 + round(a / 5),round( 240 — h))-

repeat-

until keypressed-

closegraph-

end.

Категория: Графика в Паскале | Дата: 25.11.12

Меню раздела
Блок