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



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

212

const
TopOn = True;
TopOff = False;
Сызу кезінде ағымдағы түзу стилі (SetLineStyle) жəне түс (Set-Color) қолданылады. Алдыңғы жақ ағымдағы толтыру стилімен боялады (SetFillStyle).
Процедура көбіне бағаналық диаграмма салғанда қолданы-лады. Параллелепипедтің боялмаған жақтарынан бейненің басқа элементтері көрініп тұрады.
Келесі программа Bar3D процедурасын қолданудың түрлі мүмкіндіктерін көрсетеді.
uses Graph,CRT;
var
d,r,e: Integer;
begin
{Графиканы іске қосамыз}
d:=Detect;
Ini-tGraph(d,r,'');
e:=GraphResult;
if e <> grOk then WriteLn(GraphErrorMsg(e));
else
begin
{Жоғарғы жағы бар бағана:}
Bar3D (80, 100, 120, 180, 15, TopOn); {Жоғарғы жағы жоқ бағана:}
Ваг3D (150, 150, 190, 180, 15,
TopOff);
{Бұл бағана келесі бағана үстінде тұр, ол түссіз:}
Bar3D (230, 50, 250, 150, 15, TopOn); Bar3D (220, 150, 260, 180, 15, TopOn);
{Бұл бағананың жоғарғы жағы жоқ, сондықтан ол үстіне қойылған бағанаға кедергі жасамайды:}
Bar3D (300, 150, 340, 180, 15, TopOff); SetLineStyle(3,0,1); SetColor(Yellow);


213

SetFillStyle(LtSlashFill,Yellow); Bar3D (300, 50, 340, 150, 15, TopOn); if ReadKey=#0 then d:=ord(ReadKey); CloseGraph;
end
end.

FillPoly процедурасы тұйық көпбұрыштың шекарасын сызып, бояйды. Тақырыбы:


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




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

    Басты бет