Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1


Bar процедурасы экранның тікбұрышты аймағын бояйды. Тақырыбы: Procedure



бет123/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   119   120   121   122   123   124   125   126   ...   210
Байланысты:
boribaev-algoritmdeu

Bar процедурасы экранның тікбұрышты аймағын бояйды.
Тақырыбы:
Procedure Bar (X1,Y1,X2,Y2: Integer);
мұндағы X1…Y2 – боялатын ауданның сол жақ жоғарғы (X1, Y1) жəне оң жақ төменгі (X2, Y2) бұрыштарының координатасы.
Процедура тікбұрышты SetFillStyle процедурасында тағайын-далған ағымдағы өрнек үлгісімен жəне түспен бояйды (шекара-сын сызбайды).

Келесі программа əдемі түстер эффектін көрсетеді (кездей соқ тікбұрыштарды бояу).




211

uses Graph, CRT;
var
d,r,e: Integer;
begin
{Графиканы іске қосамыз}
d:=Detect; InitGraph(d,r,'');
e:=GraphResult;
if e <> grOk then
WriteLn(GraphErrorMsg(e))
else
begin
{Экран ортасында терезе саламыз} d:=GetMaxX div 4;

r:=GetMaxY div 4; Rectangle(d,r,3*d,3*r); SetViewPort(d+1,r+1,3*d-1,3*r-1,ClipOn);


{Кездейсоқ тікбұрыштарды салып, бояу циклы} repeat

SetFillStyle(Random(12),Random(succ(GetMaxColor))); Bar(Random(Ge tMaxX),Random(Ge tMaxY),


Random(Ge tMaxX),Random(Ge tMaxY)); until KeyPressed;

if ReadKey=#0 then d:=ord(ReadKey); CloseGraph

end
end.



Достарыңызбен бөлісу:
1   ...   119   120   121   122   123   124   125   126   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет