Ќазаќстан Республикасыныњ бiлiм жєне ѓылым министрлiгi

жүктеу/скачать 153 Kb.

бет	9/11
Дата	06.01.2022
өлшемі	153 Kb.
	#12697
түрі	Программа

1 2 3 4 5 6 7 8 9 10 11

Байланысты:
Массивтер

Readln()
EOF(Name Var)
Not EOF(Fileln)

`MayFile.in`файлындағы бірінші сан, файлдағы барлық сандардардың мөлшерін көрсетеді. Сондықтан, алдымен файлдан

Sanau айнымалысының мәнін оқытамыз,содан кейін параметрлі циклді қолданып, файлдағы сандардың мәндерін оқимыз. Мәліметтер толық оқылып болған соң, өзімізге таныс Close() процедурасын пайдаланып, файлды жабу керек.

Енді, мәліметтерді фйалдан оқу процедурасы қандай болатындығын көрелік:

procedure lnit;

var

i:byte;

Fileln:text;

begin

assing(fileln,`mayFile1.in`);

reset(Fileln);

readln(Fileln,Sanau);

for i:=1 to Sanau do

read(Fileln,San[i]);

close(Fileln);

end;

Дәл осындай, егер өлшемдері белгілі болса, мәліметтерді екі өлшемді массивтен оқу да онша қиыншылық туғызбайды. `MayFile.in5` файлынан мәліметтерді оқитын программадан үзінді мысалға келтірейік:

procedure lnit;

var

i,j:byte;

{айнымалы атауын мәтiндiк файл түрiнде сипаттау}

Fileln :text;

begin

{айнымалыны нақтылы файл атымен байланыстыру}

assing(Fileln,`mayFile5.in`);

{файлды оқуға ашу}

reset(File);

{массив өлшемдерiн оқу, курсорды жаңа жолға көшiру}

readln(Fileln,JolSany,BaganSany);

{массив элементтерiн жол және баған бойынша оқу}

for:=1 to JolSany do

read(Fileln,San[i,j]);

{файлды жабу}

close(Fileln);

end;

Мынаған көңіл аударыңыз, массив элементтерін оқу кезінде, Readln() процедурасын қолданбай, тек қана Read() процедурасы қолданылды. Бұл мүмкін еді, себебі массив элементтерін оқу үшін оның өлшемдері алдын ала белгілі болды. Егер мәтіндік файлдағы элементтер жазбалар саны алдын ала белгісіз болса, онда қайталану саны белгісіз цикл операторларын қолдануға тура келеді.

Егер мәтіндік файлдардағы жазбалар саны белгілі болса, онда мәліметтерді оқу онша қиын емес. Ал, егер мәтіндік файлдағы жазбалар саны белгісіз болса ше, онда не істейміз? Егер сізге орындалатын әрекеттердің саны белгісіз болса, онда қайталану саны белгісіз цикл операторларын қолдануға болатындығын білесіз.2.8.2 тақырыбында мәтіндік файлдардың қасиеттерін сипаттаған болатынбыз, онда файлдың соңына файл соңын көсететін белгі код қойылатыны жайлы айтылған. Олай болса, мәліметтерді оқу файлдың соңы табылғанша жалғаса береді. Егер файл бос болса, яғни онда ешқандай жазба жоқ, онда одан мәліметтерді оқуға болмайды. Осы айтылғандарды тұжырымдай келе, алғы шарт циклін қолдану керек екеніне көзіміз жетті. Файл соңы белгісін анықтау үшін, EOF(Name Var)-процедурасын қолданады ағылшын тілінде EndOf File—файл соңы деген сөзден қысқартылып алынған. Жақшаның ішіне assing() процедурасында көрсетілген файлдың нақтылы атымен байланыстыратын айнымалы атауы жазылады. EOF(Name Var)-процедурасының мәні, False(жалған)-болады егер файл соңына жетпеген болса Ture(ақиқат)-болады, егер файлдың соңы анықталған болса. Олай болса, алғы шарт циклін қолданғанда Not EOF(Fileln)-шарты әзірше ақиқат болса, онда цикл орындала береді, яғни файл соңы анықталғанша. Бұл жағдайда мәліметтерді енгізу процедурасы келесідей болады:

procdure lnit;

var

{айнымалы атауын мәтiдiк файл түрiнде сипаттау}

Fileln:text;

Begin

{айнымалыны нақтылы файл атымен байланыстыру}

assing(fileln,`mayFile1.in`);

{файлды оғуға әзiрлеу}

reset(Fileln);

{санауыштын бастапқы мәнi}

Sanau:=0;

жүктеу/скачать 153 Kb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 10 11