Ajiniyoz nomidagi nukus davlat pedagogika

case j of 
        1,3,5,7,8,10,12: r:=31*W; 
                4,69,11: r:=30*w; 
                      2:  if  (yil  mod  4=0)  then  r:=29*W 
else r:=28*W; 
     else 
writeln('oy 
tartib 
raqami 
xato 
kiritilgan') 
    end; 
Kiritilgan oy tartib raqami j-
ga ko‘ra tanlash boshlanadi(oydagi 
kunlar miqdoriga nisbatan) va 
shunga mos R-ning qiymati 
xisoblanadi 
2-misol. Uchburchak tomonlarini ifodalovchi uchta son kiritilib bu sonlar uchburchak 
tomonlari bo‘lganda uning perimetrinida aks holda ularning uchburchak tomonlari bo‘la 
olmasligi haqidagi ma’lumotni beruvchi dastur yarating(Tanlash indeksi sifatida mantiqiy tipdan 
foydalanish). 
var t:boolean; 
     a,b,c:real; 
     begin 
     writeln ('uchburchak tomonari uzunligini kiriting'); 
readln(a,b,c); 
t:=(a+b>c) and (a+c>b) and (b+c>a); 
case t of 

---

      true: writeln('bunday uchburchak mavjud va uning perimetri ',(a+b+c):4:0,' ga teng'); 
      false :writeln('bunday uchburchak mavjud  emas'); 
end; 
readln; 
end. 
Dastur natijasi: 
 
3-misol. Kiritilgan a va b haqiqiy sonlar uchun qo‘shish, ayirish, ko‘paytirish va bo‘lish 
belgisini kiritilganda bu sonlar ustida mos arifmetik amallarni bajaruvchi dastur yarating(Tanlash 
indeksi sifatida char tipidan foydalanish). 
uses crt; 
var 
     t:char; 
     a,b:real; 
     begin 
     writeln ('ikkita sonni kiriting'); 
  readln(a,b); 
  writeln( 'arifmetik amallarga moc belgini kiriting') ; 
  readln(t); 
 
   case t of 
   '+': writeln(a+b); 
    '-': writeln(a-b); 
    '*': writeln(a*b); 
    ':': writeln(a/b); 
    '/': writeln(a/b) 
      else   writeln ('arifmetik amallarga moc belgini kiriting'); 
    end; 
    end. 
Dastur natijasi: 

---