Urganch davlat universiteti axborot texnologiyalari kafedrasi

function newTest(var f:text):

boolean

; 

---

  

begin 

    while eoln(f) and not eof(f) do readln(f); 

    newTest:=

not eof(f) 

  

end;

 

 

Ifodani  qayta  ishlashni  bo‘laklarga  ularning  to‘g‘riligi  haqidagi  belgini  qaytaruvchi  procTest 

funksiyasi  yordamida rasmiylashtiramiz.  1  yoki  0  ko‘rinishidagi  bu belgini  u  matnga  chiqarish 

kerak. Shunday qilib matnning qayta ishlash quyidagicha umumiy ko‘rinishda bo‘ladi: 

 

while newTest(f) do writeln(g,ord(procTest(f)));

 

 

Ifodani  qayta  ishlovchi  procTest  funksiyasini  aniqlashtiramiz.  Ifodani  qayta  ishlanishi  uning 

ketma-ket  kiritilishi  va  qayta  ishlanishi  bilan  olib  boriladi.  F  matndan  c  simvolli  olishni 

quyidagicha sarlavxali funksiya bilan rasmiylashtiramiz.