Мысал:
Program tortbyrish;{программа тақырыбы}
Uses graph;{ graph модулін іске қосу}
Var d,m:integer;{d және m бүтін айнымалыларын сипаттау}
Begin{басы}
D:=detect; initgraph(d,m,’’); {графикалық режимді инициализациялау}
Setbkcolor(1);{фон түсін орнату}
Rectangle(150,150,300,320); {тіктөртбұрыш сызу}
Setfillstyle(8,6);{бояу стилін орнату}
Floodfill(160,200,15);{ ішін бояу }
Setfillstyle(1,3);{бояу стилін орнату}
Bar(350,150,500,320);{төртбұрыш сызу}
Readln;
Closegraph;{графикалық режимді жабу}
End.{соңы}
Программа нәтижесінде әр түрлі стильмен сызылған 2 төртбұрыш экранда пайда болады.
Практикалық жұмыс №22
Тақырыбы: Символдық мәліметтермен жұмыс
Теорияға шолу
Символдық немесе литерлік айнымалыға компьютер жадынан бір байт орын беріледі. Символдық айнымалылар CHAR типті болады.
Мысалы: ағылшынның алфавитін экранға шығарып беретін программа құралық.
Program kodtar; {программаның тақырыбы}
Var c: char; {с символдық айнымалыны сипаттау}
Begin{программаның басы}
For c:=’a’ to ‘z’ do {параметрлі цикл операторы}
Write(c); {цикл денесі: с айнымалысын баспаға шығ.}
End.{соңы}
Мұның нәтижесінде дисплей экранында abcd….z символдары көрінеді. Ал алфавитті кері тәртіпте бейнелеу қажет болса, онда FOR операторының алғашқы жолын басқаша мынадай түрде жазу керек.
For c:=’z’ downto ‘a’ do
Символдық және сандық мәндерді енгізгенде, көбінесе EOLN (жол соңы) стандартты функциясын пайдалану қолайлы болады. Бұл функцияның мәні «жолдың соңы болды» немесе «мәндер беріліп болды» дегенді білдіретін ENTER пернесі басылғанда ғана ақиқат болады да, қалған жағдайлардың барлығында жалған болады. Бұл оператор көбінесе циклдік операторларда қолданылады.
Достарыңызбен бөлісу: |
