Urganch davlat universiteti axborot texnologiyalari kafedrasi

 

program BinLang; 

  

var f,g:text; 

      c:

char

; 

      NOpen:

longint

; 

---

      ok:

boolean

; 

  

begin 

    assign(f,

'balance.txt'

);reset(f); 

    assign(g,

'balance.sol'

);rewrite(g); 

    

while 

true 

do begin 

      if eof(f) then 

break

; 

      NOpen:=

0

; ok:=

true

; 

      

while 

true 

do begin 

        if eoln(f) then begin 

          ok:=(NOpen=

0

); 

          

break 

         

end; 

         read(f,c); 

         

if c=

'(' 

then inc(NOpen) 

         

else dec(NOpen); 

         

if NOpen<

0 

then begin 

          ok:=

false

; 

break 

         

end; 

        

end; 

        write(g,ord(ok)); 

        readln(f); 

       

end; 

       close(f);close(g); 

 

end.

 

 

2.11-masala.  Qavsli  ifoda  (oldingi  masala  shartini  qarang)  to‘rttaligidagi:  (va);[va];  {va}; 

 qavslar ishlatilishi mumkin. Qavsli ifoda agrda undagi qavslar tengligi va qo‘yilgan bo‘lsa 

to‘g‘ri  deyiladi,  bunda  qavs  huddi  shunday  tipdagi  qavs  bilan  yopiladi  (aylana  navbat  – 

aylanaviy  bilan,  figurali-figurali  bilan  va  shu  kabilar)  qavslar  to‘g‘ri  ifoda  shakillantirishini 

aniqlang. 

Kirish:  balance.txt  matnida  testlar  mavjud;  test  simvollari  ketma  ketligi  bir  necha  qatorda 

joylashgan,  testlar  bitta  yoki  bir  necha  qatorlar  bilan  ajratilgan.  Qatorlar  chegaralanmagan, 

tugallanish  belgisi  bo‘lib  matn  oxiri  hisoblanadi.  Har  bir  test  10

5 

simvoldan  ko‘p  emas.

 

Qatorlarda qavslardan farq qiluvchi simvollar yo‘qligi kafolatlangan. 

Chiqish.  Testlarga  mos  keluvchi  0  va  1  simvollardan  (balance.sol  fayilida)  qator  (testdagi 

ifoda to‘g‘ri bo‘lsa 1 aksincha bo‘lsa 0). 

Misol. 

Kirish (((({}[] Chiqish 10  

)))) 

< {>}  

Masalani yechish. Asta-sekin zarur harajatlarni aniqlashtirib, dasturni tuzamiz. 

Kiruvchi  f  matn  bir  necha  bo‘sh  qatorlar  ajratilgan  ifodalar  (test)  ketma-ketlik 

ko‘rinishida  bo‘ladi.  Demak  matnda  barcha  ifodalarni  o‘qib  bo‘lmaguncha,  bo‘sh  qatorlarni 

o‘tkazib yuborish, keyingi ifoda boshida to‘xtashi va uni qayta shug‘ilanishi kerak. 

Keyingi ifoda oldindan bo‘sh qatorlarni o‘tkazish newTest funksiyasi yordamida qilinadi. 

Ifoda boshini  yoki  ifoda oxirini  qayt  qilgach  u  to‘xtaydi  va  keyingi  ifoda borligini  bilgach  uni 

qaytaradi.