Program esep3_2;
Var{айнымалыларды сипаттау бөлімі}
x,y: Integer; {х,y – бүтін сандар }
BEGIN{программа басы}
x:=1;{х-тің бастапқы мәні}
while (x<=6) do
{егер х-тің мәні 6-дан төмен немесе тең болғанда, цикл денесі орындалады}
begin{цикл басы}
y:=exp(x)+2*sqrt(x);{у функциясын есептеу}
WriteLn('x =', x, ' | y =', y);{нәтижені экранға шығарамыз}
x:=x+1;{х мәнін 1 қадамға жоғарылату}
end;{цикл соңы}
END.{программа соңы}
Программаны іске қосқанда келесі нәтижелер шығуы міндет:
х=1 | у=1
х=2 | у=4
х=3 | у=9
х=4 | у=16
х=5 | у=25
х=6 | у=36
Егер бір цикл тұлғасында басқа циклдік құрылым бар болса, онда олар қабатталған циклдер деп аталады. Құрамына басқа цикл кіретін цикл сыртқы болып саналады да, сыртқы цикл тұлғасына кіретін цикл ішкі болып есептеледі.
Көптеген есептерді шығару үшін бірінің ішіне бірі қабаттасқан осындай күрделі циклдерді пайдалануға тура келеді. Күрделі циклдер қарапайым циклдерден құралады.
Мысал 2.(While, For операторын қолдану арқылы)
z=x+2y функциясының мәнін есептеу, мұндағы х=2, 4, 5, 6, 8, 10 және у=5, 6, 7, 8, 9
Program esep3_1;
Var
z,x,y:integer;
begin
w hile (x<=0) do
b egin
f or y:=5 to 9 do
begin
z:=x+2*y;
writeln(‘x=’, x,’| y=’, y, ‘| z=’, z);
x:=x+2;
e nd;
e nd;
readln; end.
Практикалық жұмыс №21
Тақырыбы: Графиктік объектілерді программалау.
Графикалық процедуралар мен функциялар
Теорияға шолу
Қазіргі компьютерлерде символдардан бөлек әр түрлі суреттер, графиктер салуға болады. Ол үшін Паскаль тілінде әр түрлі графикалық процедуралар пайдаланылады. Графикалық процедуралар мен функциялар GRAPH модулінде орналастырылған. Оларды пайдалану үшін сипаттау бөлігінде
USES GRAPH;
түйінді сөзін пайдалану керек.
Графиктермен жұмыс істеу алдында оған сәйкес келетін монитор режимін орнату керек. Паскальда алдын ала бекітілген драйверлер саны бар, олардың әрқайсысы үш түрлі режимнің бірінде жұмыс істей алады. Драйверлер типі мен оның режимі санмен немесе тұрақты түрінде беріледі.
GRAPH модулі іске қосылысымен, оның ішіндегі процедуралар мен функцияларды пайдалана беруге болады.
Графикалық режимді алғашқы рет іске қосу үшін InitGraph процедурасы қолданылдаы, оның жазылуы:
Достарыңызбен бөлісу: |