Файлдар жүйесі

 

                                                     Sanau:=0;

 

                                                     While  Not EOF(Fileln) do

 

                                                        Begin

 

                                                     {санауыштың мәнiн бiрге арттыру}

 

                                                      inc(Sanau);

 

                                                      {массивтен элементтердi оқу}

 

                                                      read(Fileln,San[i]);

 

                                                   end;

 

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

 

                                                           close(Fileln);

 

                                                    end.

 

Sanau-айнымалысы файлдағы жазбалардың санын анықтауға қызмет атқарады. Бұл айнымалыны ауқымды айнымалылар бөлімінде сипаттаған тиімді. Сол сияқты San[] массиві де ауқымды айнымалылар бөлімінде сипатталады:

 

                                         Var

 

San: arry[1…100] of  integer;

 

                                         Sanau: byte;

 Жазбалар саны белгісіз  файлдан мәліметтерді оқу жұмысының   дұрыстығын тексеру үшін, оқылған  мәліметтер массивін экранға  баған түрінде шығарамыз:

 procedure exi;

 

                                                      var

 

                                                      i: byte;

 

                                                      begin

 

                                                      for i:=1 to Sanau do

 

                                                      begin

 

                                                      writeln(San[i]);

 

                                                   end;

 

                                               end;

 

Егер сіз программа  мәтінінің қалған бөлігін дұрыс  құрастырыңыз, онда жазбалар саны 100-ден  аспайтын мәтіндік файлдан мәліметтерді және жазбалар санын оқитын программа  аласыз. Сонымен қатар бұл программа файлдағы барлық жазбалар санын анықтап, оны экранда орналастырады.

Енді екі өлшемді  массив мәліметтерін файлдан қалай  оқуға болатындығын қарастырыралық.Жоғарыда айтылғандай мәліметтерді файлдан оқу, оның файл соңын анықтайтын белгісіне байланысты екен. Бірақ екі өлшемді массивтерді жазғанда оның элементтері жол бойынша және баған бойынша жазылады.Сондықтан файлдан мәліметтерді оқығанда, алдымен алғашқы жол бойынша файл соңы белгісі анықталады.Жолдағы мәліметтер толығымен оқылып болған соң келесі жолды оқуды бастау керек. Мәтіндік файлдар қасиеттерін қарастырғанда айтылғандай, онда әрбір жол, жол соңы белгісімен кодымен аяақталады.Осы белгіні анықтау үшін стандартты  EOLn(NameVar) процедурасын қолданады.  EOLn(), ағылшын тілінде Endoflength жол соңы сөзінің қысқартылған түрі. Жақшаның ішіне  assing() процедурасында көрсетілген файлдың нақтылы атымен байланыстыратын айнымалы атауы жазылады.EOLn(NameVar)-процедурасының мәні,  False(жалған)-болады, егер жолдың соңына жетпеген болса,  Ture(ақиқат)-болады егер жолдың соңы анықталған болса. Олай болса мәліметтерді оқу жалғаса береді егер  NotEOF(Fileln) шарты ақиқат болса, яғни жол соңы анықталғанша.Бұл жағдайда мәліметтерді оқу процедурасының түрі келесідей болады:

 Procedure lnit;

 

                                                      var

 

                                                      i: byte;

 

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

 

                                                      Fileln:text;

 

                                                      Begin

 

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

 

                                                     assing(fileln,`mayFile5.in`);

 

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

 

                                                     reset(Fileln);

 

                                                     {жолда санауыштың бастапқы мәнi}

                                                      Sanau Jol:=0;

 

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

 

                                              while Not EOF (Fileln)do

 

                                              begin                   

 

                                              {санауыштың мәнiн бiрге арттыру}

 

                                              inc(Sanau Jol);

 

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

 

                                                 SanauBagan:=0;

 

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

 

                                              while Not EOF (Fileln)do

 

                                                  begin                   

 

                                              {санауыштың мәнiн бiрге арттыру}

 

                                              inc(Sanau Bagan);

 

 

 

                                             {массив элементтерiн  оқу}

 

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

 

                                                  end;

 

                                           {курсорды жаңа жолдың басына қою}

 

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

 

                                                  end;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4.Есеп:

 

Program Summa;

Var F:File of char;

X:integer;

Summa: longint;

Begin

Assign (F’summa’);

Rewrite (F);

Summa:=0;

While not eof (f) do

Begin

Read (f,x);

Summa:=summa+x;

End;

Writeln (‘summa’,summa, ‘f’,f);

End.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                      

                                        Қорытынды  

Паскаль тiлi объектi-бағдарланған бағдарламалау тiлi. Ол жоғары деңгейдегi тiлдердiң қатарына кiредi. Көптеген программистер Паскаль тiлi арқылы қиын есептердiң шешуiн табады. Паскаль тiлi кеңiнен таралған бағдарламалау тiлi болып саналады. Объектi-бағдарланған бағдарламалау программистке 3 маңызды мүмкiншiлiк бередi:

1. Программалық кодтың оңайлатылуы және оның құрылымын жақсарту. Программаларды оқу және түсiнуге жеңiл.
2. Программалардың модернизациясы өте қарапайым тапсырма болып табылады.
3. Кез-келген класста әртүрлi программаларды көп рет қолдануға болады.

Осылайша, Паскаль тiлiнiң аса бай мүмкiншiлiктерiн қолдана отырып, мен

өзiмнiң берiлген курстық  жұмысымды табысты орындадым  деп ойлаймын. Бұл есептi iске қосу арқылы сiз жолаушылар туралы ақпараттарды таңдап алуыңызға болады. Сонымен  қатар бұл жұмыста сiз жаңа мәлiметтердi қалай құруға болатыны көресiз. Паскаль тiлi қазiргi таңдағы ең тиiмдi тiл болып отыр. Паскаль тiлi арқылы болашақта ойламаған туындылар дүниеге келедi.Ендеше, Паскаль тiлiнiң дамуына  үлесiмiздi қосайық. 

 

 

 

 

 

 

 

 

 

                        

   Пайдаланылған әдебиеттер

1. Х. Дейтел, ПДейтел

Как программировать на С++: Пер. с англ. – М.: ЗАО “Издательство БИНОМ”, 2000г.

2. К. Паппас, У.Мюрреи

Программирование  на С и С++: - К.: Издательская группа BHV, 2000

3. Т.А.Павловская  С/С++ программирование на языке высокого уровня СПБ.: Питер, 2001г.
4. Уинер Р.       Язык Turbo C     Москва: Издательский дом “МИР”, 1991г.
5. Уэйт М, и др.   Язык Си. Руководство для начинающих М.: Изд. “МИР”, 1988г.