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

while not EOF(f) do

begin

{ClrScr;}

JamiSav:= JamiSav + l;

Readln (f,sat); {файлдан саволни ўқиймиз}

TextColor(White);

writeln(sat); {Экранга саволни чиқарамиз}

readln (f,nJav, To’g’); {моҳияти бир хил бўлган жавоблар сонини ва тўғри жавоб рақамини ўқиймиз.)

TextColor (LightGray);

for i:=l to nJav do {ўқиймиз ва моҳияти бир хил жавобларни чиқарамиз }

begin

readln (f,sat);

writeln(i,'. ',sat);

end;

writeln;

write ('Сизнинг танловингиз ');

readln(Jav);

if Jav = To’g’ then To’g’Jav:= To’g’Jav+ l;

writeln;

end;

{Тест натижаларини қайта ишлаш }

{тўғри жавоблар фоизини ҳисоблаш }

p: = Round ((To’g’Jav/ JamiSav)*100);

write ('Сизнинг баҳонгиз ');

case p of

100:writeln ('АЪЛО!');

80..99:writeln ('ЯХШИ.');

б0..79:writeln ('ҚОНИҚАРЛИ.');

else writeln ('ЁМОН!');

end;

nomer: writeln ('Дастур ишини тугатиш учун <Enter>ни босинг');

readln;

end.

9 - масала

{Дюймлардан миллиметрларга ўтиш жадвалини экранга, принтерга ёки файлга чиқариш }

var

f:text; {чиқариш файли}

fname:string; {чиқариш файли исми }

dest:integer; {1 - экранга, 2 - принтерга, 3 - файлга}

d: real; {дюймлардаги миқдор}

m: real; {миллиметрлардаги миқдор}

begin

writeln ('*** Дюймлардан миллиметрларга ўтиш жадвали ***');

writeln ('Натижани чиқаради:');

writeln ('1 - экранга;');

writeln ('2 - принтерга; ');

writeln ('3 - файлга.');

writeln ('1 дан 3 гача сонларни киритинг ва <Enter>ни босинг');

write ('Сизнинг танловингиз  ');

readln (dest);

case dest of

1: fname:= ' '; { экранга }

2: begin { принтерга }

fname:='prn',;

write ('Принтерни ёқинг ва <Enter>ни босинг')_;

readln;

end;

3: begin {файлга}

write ('Чиқариш учун файл исмини беринг  ');

readln (fname);

end;

end;

assign (f,fname);

rewrite (f);

writeln (f,' --------------------------------') ;

writeln (f,' Дюймлар Миллиметрлар');

writelnt (f,' -------------------------------');

d:= 0.5;

while d < 10 do

begin

m:=25.4*d; {1 дюйм - 25,4 мм}

writeln (f,d:6:1, m:10:1);

d:= d+0.5;

end;

writeln (f,'--------------------------------')_;

close (f);

if dest = 3

then writeln ('Жадвал' ,fname, 'файлида ёзилган');

writeln ('Дастур ишини тугатиш учун <Enter>ни босинг');

readln,

end.