Меню сайта

Задача №13

Изобразитьтермометр.

uses graph,crt-

vargd,gm,y,x:integer-

— — — pressedkey:char-

— — label 0,1,2-

begin

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

ellipse (320, 240,360, 0, 28,200)-

y:= 440-

outtext(‘Press uparrow key for moving up/down arrow key for moving down’)-

outtextxy(1,10,’PressEsc to exit’)-

0:

pressedkey:=readkey-

ifpressedkey=chr(27) then halt-

iford(pressedkey)=72 then goto 1-

iford(pressedkey)=80 then goto 2-

goto 0-

1:

x:= 320-

y:= y — 2-

IF y &lt- 45 THENy:= 47-

putpixel (x, y,13)-

goto 0-

2:

putpixel (x, y, 0)-

x:= 320-

y:= y + 2-

IF y &gt- 440 THENy:= 442-

putpixel(x, y, 0)-

goto 0-

repeat-

until keypressed-

closegraph-

end.

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

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