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


Procedure GetModeRange(Drv: Integer; var



бет94/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   90   91   92   93   94   95   96   97   ...   210
Байланысты:
boribaev-algoritmdeu

Procedure GetModeRange(Drv: Integer; var Min, Max: Integer); мұндағы Drv – адаптер типі; Min – ең төменгі режим нөмірі қайтарылатын, Integer типті айнымалы; Мах – ең жоғарғы режим нөмірі қайтарылатын integer типті айнымалы.
Егер Drv параметрінің мəні дұрыс көрсетілмесе, онда проце-дура екі айнымалыға да –1 мəнін қайтарады. Процедураны шақырар алдында экранның графикалық жұмыс режимін ор-натпаса да болады. Келесі программа экранға барлық адаптер-лердің атын жəне жұмыс режимдерінің нөмірін шғарады.
Uses Graph;
var
D,L,H: Integer;
const
N:array [1..11] of String [8]= (‘CGA’, ‘MCGA’, ‘EGA’, ‘EGA64’, ‘EGAMono’, ‘IBM8514’, ‘HercMono’, ‘ATT400’, ‘VGA’, ‘PC 3270’, ‘Қате’);
begin
WriteLn(‘Адаптер Мин. Макс.'); for D:=1 to 11 do
begin
GetModeRange(D, L, H);
WriteLn(N[D], L:7, H:10)
end
end.


Достарыңызбен бөлісу:
1   ...   90   91   92   93   94   95   96   97   ...   210




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

    Басты бет