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

begin

if ParamCount = 0 then

begin

writeln ('Тест саволлари файли берилмаган!');

writeln ('Буйруқ сатри: test ТестФайлиИсми');

goto nomer;

end;

fname: = ParamStr (1); {буйруқ сатридаги файл исми}

Assign (f,fname);

{$I-} {бу изоҳ эмас, балки компиляторга буйруқ}

Reset(f); {ўқиш учун файлни очиш }

{$I+)

if IOResult <> 0 then

begin

writeln (fname, 'тест файли топилмади');

goto nomer;

end;

writeln ('Ҳозир Сизга тест таклиф этилади.');

writeln ('Ҳар бир саволга жавобларнинг бир нечта варианти берилади);

writeln ('Сиз тўғри жавоб рақамини киритишингиз ва <Enter> клавишини босишингиз керак');

writeln;

writeln ('Муваффақият! Тестни бошлашдан олдин <Enter>ни босинг');

TextBackGround(Blue);

ClrScr;

JamiSav:=0 ;

To’g’:=0;