Мавзу: Паскалда файллар билан ишлаш. Бу бўлимда қуйидагиларни эслаш керак

end;

end;

if n = 0 then writeln (nam, 'тўғрисида ахборотлар йўқ'};

end;

until Length (nam) = 0;

2:writeln ('Ишни тугатиш учун <Enter>ни босинг.');

readln;

end.

8 - масала

{Тестдан ўтказишнинг универсал дастури}

uses Crt;

label

nomer;

var

fname: string [40]; {тестдаги файл исми}

f: text; {тест файли }

JamiSav: integer; {тест саволлари миқдори }

To’g’Jav: integer; {жорий савол учун тўғри жавоблар миқдори}

nJav; integer; {мазмуни бир хил бўлган жавоблар сони}

To’g’: integer; {тўғри жавоб рақами }

Jav: integer; {фойдаланувчи танлаган жавоб рақами}

sаt: string; {тест файлидан ўқиладиган сатр}

р: integer; {тўғри жавоблар фоизи }

i: integer; { цикллар ҳисобчиси}