Программирование в среде Турбо Паскаль. Закутский С.Н - 63 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

63
Coord(x[4],y[4],x[1],y[1],a[4],b[4]);
If j <= 5
Then begin
SetColor(Green
135
);
hz:=330;
End;
If (j > 5) and (j <=10)
Then begin
SetColor(Red
136
);
hz:=440;
End;
If (j > 10) and (j <= 15)
Then begin
SetColor(Magenta
137
);
hz:=349;
End;
If j > 15
Then begin
SetColor(Cyan
138
);
hz:=294;
End;
xy[1].x:=a[1]; xy[1].y:=b[1];
xy[2].x:=a[2]; xy[2].y:=b[2];
xy[3].x:=a[3]; xy[3].y:=b[3];
xy[4].x:=a[4]; xy[4].y:=b[4];
xy[5].x:=a[1]; xy[5].y:=b[1];
DrawPoly(5,xy);
Sound(hz);
Delay(200);
NoSound;
x[1]:=a[1]; y[1]:=b[1];
x[2]:=a[2]; y[2]:=b[2];
x[3]:=a[3];y[3]:=b[3];
x[4]:=a[4];y[4]:=b[4];
End;
WriteLn('нажмите Enter');
Readln(c);
CloseGraph; {выход из графического режима}
END.
135
Green [грин ] – зеленый.
136
Red [ред ] – красный.
137
Magenta [маджента ] – лиловый.
138
Cyan [сиан] – бирюзовый.

Страницы