Паскаль програмдау тіліндегі файлдармен жұмыс
іметтерді оқу пернетақтадан емес, файлдан жүзеге асу үшін, мәліметтерді оқудың жолын көсетеміз. Яғни, жақшалардың ішіне, assing()- процедурасының көмегімен біздің файлмызды байланыстырып тұрған, айнымалының атауын көрсетеміз.
`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() процедурасы қолданылды. Бұл мүмкін еді, себебі массив элементтерін оқу үшін оның өлшемдері алдын ала белгілі болды. Егер мәтіндік файлдағы элементтер жазбалар саны алдын ала белгісіз болса, онда қайталану саны белгісіз цикл операторларын қолдануға тура келеді.
Тапсырма
Бір өлшемді массивті құрайтын `MayFile.in` файлынан мәліметтерді оқып, оларды компьютре экранына шығаратын программа жазыңыз және оны `MayFile6.pas` атымен сақтаңыз.
Екі өлшемді массивті құрайтын `MayFile5.in
| | скачать работу |
Паскаль програмдау тіліндегі файлдармен жұмыс |