• Program t(output); Label 7; var a,b:real; Begin …… .. goto 7 ……… 7: a:=b*3
  • Shartsiz o’tish operatori




    Download 225,51 Kb.
    bet8/9
    Sana16.05.2024
    Hajmi225,51 Kb.
    #239041
    1   2   3   4   5   6   7   8   9
    Bog'liq
    Tarmoqlanuvchi jarayonlarni tashkil etish(Algoritm va dastur)

    Shartsiz o’tish operatori
    Tarmoqlarni tashkil etish uchun dasturda o’tish, shartli va tanlash operatorlari bo’lishi kerak.
    SHartsiz o’tish operatori. SHartsiz o’tish operatorini umumiy ko’rinishi goto n bu yerda goto operator n- metka (satrga quyilgan nomer, belgi) N metka label yordamchi so’zi bilan quyilishi kerak.
    Masalan:
    Program t(output);
    Label 7; var a,b:real;
    Begin
    ……..
    goto 7
    ………
    7: a:=b*3
    ………
    end.
    Bu yerda boshqarish goto operatori orqali 7-metkaga (nomerga) utkazilayapti.
    Metkalar to’rtta raqamdan oshmagan ishorasiz butun sonlar bo’lib, ular metkalarni tavsiflash bo’limida tavsiflanadilar.
    SHartli o’tish operatori quyidagi umumiy ko’rinishdagi yozuvga ega:
    А) if b1 then a1; qisqa yozilishi,
    В) if b1 then a1 else a2; to’liq yozilishi
    Bu yerda b1- mantiqiy ifoda; a1 ,a2 -operatorlar. Operatorning a) ko’rinishdagi yozuvi agar mantiqiy ifoda TRUE qiymatga ega bo’lsa, a1 operatorni hisoblashni tashkil etadi, aks holda a1 bajarilmaydigan shartli operatordan keyin turadigan operator bajariladi. b) ko’rinishda agar mantiqiy ifoda TRUE qiymatni qabul qilsa, unda a1 operator bajariladi, aks holda a2 operator bajariladi. Shuni takidlash kerakki ELSE operatoridan oldin “;” nuqta-vergul quyilmaydi.
    Masalan: if y>0 then d:=sqrt(y) else d:=y
    Ya‘ni u>0 bo’lsa, d= bajariladi aks holda d=y bo’ladi.
    Case operatori dasturda tarmoqlanishni tashkil etib, bir necha operatorlar orasidan birini tanlash imkonini beradi. Uning umumiy ko’rinishi quyidagicha;
    case <ifoda> of
    <operatorlar>
    end
    Masalan: case i of
    2: x:=0;
    3: x:=a*x;

    Download 225,51 Kb.
    1   2   3   4   5   6   7   8   9




    Download 225,51 Kb.