Ќазаќстан Республикасыныњ бiлiм жєне ѓылым министрлiгi
Мәтіндік файлға мәліметтер жазу
жүктеу/скачать 153 Kb.
|
Массивтер
- Бұл бет үшін навигация:
- `МayFile5.in`
- МayFile5.in`
| 9.2 Мәтіндік файлға мәліметтер жазу.
Екі өлшемді массив Алдыңғы тақырыпта мәтіндік файлдарды ашуды, оған ақпараттарды жазуды үйреніңіздер. Write()- процедурасын пайдаланып мәліметтерді бір жолға, ал writeln()—процедурасын пайдаланып оларды бағанға жазуды көрдік. Осы білгендерімізді пайдаланып, келесі есепті шешіп көрелік: Пернетақтадан, өлшемі 100х100, элементтері бүтін сан болатын, екі өлшемді массив енгізіледі. Осы массивті элементтерінің орналасу реті бойынша, `МayFile5.in` атымен, мәтіндік файл түрінде жазатын, программа жазу керек. Бұл есеп те, алдыңғы тақырыпта қарастырылған есепке ұқсас, екі негізгі кезеңнен тұрады: 1.Пернетақтадан мәліметтерді енгізу 2.Оларды атауы `МayFile5.in` болатын, файлға жазу керек. Бірінші кезеңді орындау үшін : Пернетақтадан енгізілетін, массив өлшемдерінің нақты мәндерін кіргізу; Массив өлшемдерін біле отырып параметрлі цикл операторын қолданып массив элементтеріне нақты мәндерді меншіктеу. Мәліметтерді енгізу процедурасының мәтінін Misal_8 программасынан алуға болады. Ал мәліметтерді өңдеу процедурасы өзгеріссіз қалатындықтан, Misal_F1программасындағыдай болады. Массив элементтерін `МayFile5.in` файлына жазу процедурасының қандай болатындығын қарастыралық: procedure exi; var
FileOut: text; begin
{нақтылы файлмен айнымалы арасындағы байланыс} assing (FileOut,`mayFile.in`); {файлды жазуға дайындау} rewrite(FileOut); {массив өлшемдерiн жазу және курсорды жаңа жолға көшiру} writeln(FileOut, JolSany,``, BaganSany); for i=1 to JolSany do begin
{массив элементтерiн бос орын арқылы жолға жазу} for j=1 to BaganSany do write(FileOut,San[i,j],``); {j-циклiн аяақтаған соң, курсорды жаңа жолға көшiру} writeln(Fileout); end;
{файлды жабу} close(FileOut); end; Негiзгi программа мәтiнiнiң өзгерiсiз қалатындығын айтпаса да болады. Осы программаны Misal_F5 атымен сактаңыз. Программаны iске қосу үшін алдымен, келесi әрекеттердi: Курсорды Exi процедурасын сипаттайтын жолдың басына қойыңыз; Негiзгi менюдi Debug iшкi менюiн ашыңыз; жүктеу/скачать 153 Kb. Достарыңызбен бөлісу:
|