Файлдарға қолданылатын функциялар мен процедуралар turbo pascal

МАЗМҰНЫ

КІРІСПЕ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..3
1. TURBO PASCAL ОРТАСЫНДАҒЫ ФАЙЛДАРМЕН ЖҰМЫС ... ... ... ... 4
1.1 Файл ұғымы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 4
1.2 Текстік файл ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...5
1.3 Типтелген файл ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..10
1.4 Типтелмеген файл ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...13
2. ФАЙЛДАРҒА ҚОЛДАНЫЛАТЫН ФУНКЦИЯЛАР МЕН ПРОЦЕДУРАЛАР ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...15
2.1 Файлға жазу функциясы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...15
2.2 Файлдан мәлімет оқу функциясы ... ... ... ... ... ... ... ... ... ... ... ... 16
2.3 Файлдарға қолданылатын жалпы функциялар мен процедуралар ... ... 17
ПРАКТИКАЛЫҚ БӨЛІМ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .22
ҚОРЫТЫНДЫ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 29
ПАЙДАЛАНЫЛҒАН ДЕРЕК КӨЗДЕРІ ТІЗІМІ. ... ... ... ... ... ... ... ... ... ..30
        
        КІРІСПЕ
Паскаль тілі қарапайым программалармен қатар, күрделі өндірістік
мәселелерді шеше алатын құрылымды тіл болып ... Ол ... ... ... күрделі болғанымен, компьютер үшін ыңғайлы, программа құру
реттілігін алгоритмдік ... ... ... іс - ... ... тіл ... табылады.
Менің бұл курстық жұмысымның тақырыбы: «Файлдарға қолданылатын
функциялар мен ... Бұл ... Turbo Pascal ... ... ... және ... ... туралы толығырақ түсініп,
осы курстық жоба тақырыбын толық ашып ... ... ... ... ... ... ... арқылы мүмкіндіктерін көрсеттім.
Курстық жұмыс тақырыбымда айтылғандай жұмыс жасау ... ... ... тілі қолданылады. Турбо ... ... ... мен ... және ... ... ... Оның ішінде функциялар мен процедуралар және олардың атқаратын
қызметі. Тақырып негізінде ... ... ... ... ... ... сәйкес мысалдарды қарастырып, файлдарға қолданылатын функциялар
мен процедуралардың мүмкіндіктерін ашып көрсеттім.
Тақырыптың өзектілігі: Бұл тақырыпта TURBO PASСAL ... ... ... және ... қолданылатын процедуралар мен
функциялардың программалау барысындағы қызметтерінің ерекшелігінде.
Зерттеу мақсаты: Файлдарға қолданылатын ... ... ... ... ... дәлелдеу, яғни олардың
қазметтік сөздерін пайдаланып программаны орындау, жоба тақырыбын толық
ашу. Бұл ... ... ... ... мен ... ... Паскаль мәліметтер типтерінің түрлеріне салып есептер шығару
және ... ... ... ... осы ... ... ... толық
ашып көрсету мақсатында таңдалынған.
Зерттеу міндеті: Файлдарға қолданылатын ... ... ... ... ... ережелері бойынша программаны
орындау.
Курыстық ... ... ... екі тараудан,
қорытындыдан, және пайдаланылған әдебиеттер тізімінен, қосымшадан тұрады.
Зерттеу объектісі: TURBO PASСAL ... ... ... Программалау дағдыларын жас ... ... ... қолданушыға түсінікті ... ... ... ... ... әдістері: Файлдарды жеке-жеке зерттеу арқылы олардың
байланыстылығын және ерекшіліктерін ... ... TURBO PASCAL ... ... ... Файл ... мәліметтердің жиынын, мысалы: шаруашылық, сауда оқушылар
туралы, телефондық т.б ... ... ... ... ... ... ... ол үшін арнайы объект – файл қаралған. Файл деп,
белгілі бір атпен сыртқы ... ... ... ... айтамыз.
Файлдарды пайдалану төмендегідей мүмкіншіліктерге себеп болады:
1. Өңдеуге жататын үлкен көлемді мәліметтерді бірден енгізу көп уақытты,
шаршауды керек ... ... күні ... ... ... кез келген уақытта шақырып, пайдалана қарастырылған.
2. Мәліметтер файылы басқа программада дайындалып, әртүрлі екі ... ... ... ... ... құрылғыда байланыстырады.
3. Файлдан алынатын мәліметтері бар программа өзін пайдалану ... ... ... ... ... ... ... құрамына енетін жеке бөліктерді
құрылғылар деп атайды. ... ... ... ... файл ... ... Мысалы: A:,B:-иілгіш магниттік дискі жинағышы. C:,D:,E:-
винчестр. ... ... ... ... – бұл құрылғы
монитор экраны, кіргізуде – клавиатура болады. ... ... ... ... ... ... ... көп
разрядты кіріс немесе шығыс, оның ішінде LPT1 портына принтер қосылған).
PRN-принтер.
Файл өлшемі оған енетін байт ... ... Файл ... ... ... ... ... тұрады. Файлдың аты магниттік дискідегі каталгта
тіркеледі. Каталог – файлдың аты, ... ... ... ... ... ... ... дискідегі әдейі орын.
Бір магниттік дискіде бірнеше каталог болуы мүмкін, файл сияқты олардың
аты, ... ... ... ... ... ... ... Х
каталогі Y каталоогінде ... онда ... ал ... деп, негізгі каталогтан файлды табуды - жол деп атайды.
Файлдық тип сипаттамасы, файлдар көп жағдайларда текстік жолдан ... ... ... ... fill of сөз тіркестері ... ... үшін ...... тілін де әдейі, файлдық
айнымалы F қолданылады, яғни F пен сипатталады. Егер файл ... ... жазу ... бару үшін, қосымша айнымалымен (R деп белгілейік)
сипатталады.
Формат:
type
=
var
:file of ;
:;
Файлдың барлық ... ... ... ... ... нөмері 0 ль болады.
Файл.
| | | | | ... 1 ... 2 ... 3 ... 4 |...... ... ... келген мезгілде программадағы бір ғана элементпен байланысуға болады.
Файлмен орындалатын барлық амал ... оқу, ... ... элементпен
(түйірлеп) орындалады, әрі бұл амалға ағымдағы көрсеткіш
белгіленген файл элементі қатысады. ... ... ... көрсеткіш, файлдың әрбір элементіне бейімделіп, орын ауыстырып
тұрады. Элементтерге қатысуға байланысты, файлдарды сатылап немесе тікелей
байланысу файлдары деп ... ... ... ... деп, ... элементтеріне біртіндеп байланысуды қамтамасыз етуді айтады.
Тікелей байланысу файлы деп, элементтеріне байланысу ... ... ... ... ... ... сатылаған файлдан іздеу үшін, нөлдіктен
бастап, өңдеуіш көрсеткішті, іздеген элемент көрсеткішіне ... ... ал, ... ... тікелей байланысу файлынан іздеу үшін, оның
(позиция) орын ... ... ... Біртіндеп байланысу файлында,
мәліметтерді ұйымдастыруда ... ... ... және ... ... ... ... себебі, біртіндеп байланысу файлында
элементті оқу үшін өңдеу көрсеткіші сол ... ... ... ... ... ... ... осы көрсеткіш бір мезгілде файлдың соңында болуы
керек.
2. Текстік файл
Бұл бөлімде стандартты TEXT типіндегі ... ... ... ... ... Бір айта кететін жай, Пас ... типі FILE OF CHAR ... ... ... ... типі ... реттелген символдардан тұратын
файлды анықтайды. Текстік файлдар төменде ... ... ... ... файл ... кезде ол ерекше түрде интерпретацияланады: ол қатар
соңы символымен аяқталатын ... ... ... ... тұрады
деп есептеледі. Текстік файлдар үшін, типі CHAR типінен ... ... ... ... оқу және READ және WRITE жазу операцияларының
арнайы түрі бар. ... ... ... ... ... ... және
керісінше көшіріледі. Мысалы: READ(F,I), интерпретациясы ондық сан болатын
сандар тізбегін оқиды, мұндағы F текстік файл, I ... ... ... айтып кеткеніміздей текст типті стандартты INPUT және OUTPUT ... бар ... ... INPUT ... ... – бұл
операциялық жүйенің стандартты енгізу ... ... ... ғана
мүмкін файл (әдетте бұл пернелік), ал ... OUTPUT ... ... бұл ... жүйенің стандартты шығару файлымен байланысқан жазуға
ғана ... файл ... бұл ... ... ... ... ... OUTPUT файлдары RESET (INPUT) және REWRITE (OUTPUT) операторлары
орындалғандай автоматты түрде ... Дәл ... ... ... ... бұл файлдар автоматты түрде жабылады.Тізімі осы бөлімде
көрсетілген кейбір стандартты процедуралары үшін параметр ... ... ... ... қажет емес. Егер бұл параметр қалдырылып кетілген
болса, онда өздігінен процедура ... ... ... ... ... ... сәйкес INPUT және OUTPUT қарастырылады.
Мысалы-1:
READ(X) READ(INPUTE,X) – ке сәйкес келеді және
WRITE(X) WRITE(OUTPUTE,X) – ке ... ... ... ... ... ... ... ... бір ... ... ... бірнеше |
| ... ... ... |READ жасайтын әрекеттерді орындайды, ... ... ... басына дейін өткізу жасайды. ... ... ... бір ... ... мәнді жазады. |
|WRITELN |WRITE ... ... ... ... ... |
| ... соңы маркерін қосады. ... ... үшін ... ... соңы жағдайын қайтаратын|
| ... ... ... ... ... ...... программасын
пайдаланыңыздар. Оның қызметі ақпаратты экранға жазу (шығару). Оның форматы
қарапайым және қолдануы бейімделгіш:
Writeln (элемент, элемент,...);
Әрбір элемент бұл ... ... ... ... және ... ... сан (3,42 – 1732.3), ... (‘A’ – ‘Z’,’A’- ’Я’), ... ... ... мән (TRUE) ... ... бола ... ... басқа ол
атаулы тұрақты (тұрақты аты), айнымалы, көрсеткіш функцияның шақырылуы,
егер ол ... типі мән, ... сан, ... ... немесе бульдік тип
қайтарса бола алады. Барлық элементтер қатарға көрсетілген реті ... ... ... ... ... қатардың басына орнатылады (1-
кесте). Егер күймешенің осы қатардағы соңғы элементтен кейін ... ... ... (элемент, элемент,...);
пайдаланылады.
Элементтерді шығарғанда олардың арасында автоматты түрде бос орын
қойылмайды. ... ... ... ... ... жөн:
Writeln (элемент, элемент,...);
Шығару келесі операторлармен сипатталады:
A:=1; B:=2; C:=3;
Name:=’Мұрат’;
Writeln(A,B,C); ... ... ‘,C); 1 2 ... ... ... Ол, ... ... элементтің анықтайтын параметрлерді ... Бұл ... ... ... . . ... мұндағы ұзындық – элементті шығаруға арналған өрістің жалпы
мөлшерін ... ... ... ... ... ... фуекцияның
шақырылуы).
Келесі программа және оның орындалу нәтижесіндегі шығаруды
қарастырайық:
A:=10; B:=2; ... ... ... ... ... жай ... алдында көрсетілген ұзындық бойынша бос
орындар қойылады. Мәннің өзі оң жағы бойынша түзетіледі.
Ал егер өрістің ... ... кем ... ше? ... мысалдың екінші операторында С=100 үшін ... ... аз, ... ... ... 2, ... 3. ... Паскаль
мөлшерді қажетті минимумға дейін өсіреді.
Бұл әдіс барлық мүмкін болатын элементтер: бүтін тип, нақты ... ... және ... типтер үшін қолданылады.
Барлық нақты сандар үшін өрістің кеңдігін (мөлшерін) көрсеткен кезде
сол ... ... ... және ... ... басылып шығарылады.
X:=421.53;
Writeln(X);
4.2153000000E+02
Writeln(X:8);
4.2E+02
Сондықтан Паскаль ұзындықтың екінші операндысын қосуға мүмкін береді:
Элемент:ұзындық:цифрлар саны.
Екінші сан бекітілген нүктесі бар сандар үшін ... ... ... ... екенін корсетеді.
X:=421.53;
Writeln(X:6:2);
421.53
Writeln(X:8:4);
421.53
Writeln(X:8:4);
421.5300
Енгізу.
Стандартта Паскальда деректерді пернеліктен оқуға пайдаланылатын
ақпаратты ... екі ... READ және READLN ... бар (1-
кесте).
Олардың форматы:
Read(элемет,элемент,. . . );
Readln(элемент,элемент,. . .);
мұндағы әрбір элемент бүтін, ... ... ... ... және ... бір-бірінен бос орынмен немесе Enter-ді басумен бөлінуі кеерк.
Мысал-2. Төменде көрсетілген программада Ғ1 текстік ... 1 ... курс ... тізімі енгізіледі және ол алфавиті реті бойынша
сұрыпталып, терминалдың экранына шығарылады. Ғ1 ... ... ... (20 ... ... және 4 пән ... анализ, физика, тарих және алгебра) бағаларды білдіреді. Ғ1
Файлына сәйкес келетін бастапқы деректер жиыны кез ... ... ... ... ... ... фамилиялар, бағалар бос
орынмен бөлінген символдар тізбегін білдіреді.
Программасы:
Program Fil_TEXT;
Const M=20;
Type
Predmet=(Matan, Fiz, Ist, Alg);
Ozenki=Array[Predmet] of ... : ... : ... of ... : String[M];
Oz : Array[1..100] of Ozenki;
Rr : ... : ... : ... : ... ... Then
FileName:=ParamStr(1)
Else
FileName:=’predmet.dat’;
Assign(F1, FileName);
Reset(F1);
N:=0;
While Not Eof(F1) Do
BEGIN
N:=N+1;
Read(F1,St[N]);
For J:=Matan To Alg Do
Read(F1,Oz[N,J]);
Readln(F1);
End;
Close(F1);
For I:=1 To N-1 ... K:=T+1 To N ... ... ... ... курс ... I:=1 To N Do
Begin
Write(I:3,’:’);
For K:=1 To M Do
Write(St [I,K]);
For J:=Matan To alg Do
Wriete(Oz[I,J]:2);
Writeln;
End;
End.
Айнымалылардың сипаттаудың VAR ... Ғ1 ... ... ... және ... саны ... аспайды деп жорамалданып, ST және
OZ массивтері анықталған. Файл компоненттерінің нақты саны EOF функциясын
пайдаланып WHILE циклінің орындалу ... ... ... ... 17 ... ... және PARAMSTR стандартты функциялары
пайдаланылған. PARAMCOUT ... ... жол ... ... программалық ортаның RUN/PARAMETERS пункті арқылы берілетін
параметрлердің ... ... ... ... ... K-шы ... жолды қайтарады. Сонымен 16-19 жолдарда FILENAME ... жол ... ... сыртқы файлдың аты меншіктеледі ... ... ... мәні 1-ге тең). Кері ... FILENAME
айнымалысына сыртқы ’predmet.dat’ файлының аты меншіктеледі.
20-шы ... Ғ1 ... аты FILENAME ... ... ... ... байланыстырылады. RESET(F) функциясы Ғ1 файлын ашады және
Ғ файлының ... ... ... ... ... 20-30 ... цикл ... сыртқы файлдағы ақпараттарды St[I] (I ... ... және Oz[I,J] (I-ші ... J-ші пән бойынша
бағасы) массивтеріне жазады. 32-42 жолдардағы операторларда ... ... реті ... ... ... Сұрыптаудың
нәтижесі 43-52 жолдардағы операторлардың көмегімен экранға беріледі.
1.3 Типтелген файл
Барлық типтелген ... ... ... ... ... ... ал
типтелген файл әр түрлі болуы мүмкін. Мүмкін емес хабарламаның мысалы.
Tupe TF1=file of file;
TFR=record
A:Integer;
F:File of Real;
End;
TF2:fileof TFR;
Типтелген файлдармен жұмыс ... ... және ... ... оқу тек Read ... ал ... ... .
Типтелген файл үшін Read және Write ... ... ... ... аты және ... ... аты және ... қосу жұмысына келесі процедуралар және функциялар белгіленген.
FilePos-файлда көрсетілген позицияның ағымдағы номерін қайтарады
(позиция нолден ... ... ... ... өлшемін қайтарады (санау кезінде файл
элементтерінің саны бірден бастап номерленеді).
Seek-файлдағы ағымдық ... ... ... ... ... файл ... ағымдағы позицияға дейін қысқарады.Файлда
ағымдағы позициядан ... ... ... ... өшіріледі, ал
ағымдық позиция файлдың соңы болып қалады. (Eof(f)=True).
Типтелген файлдың ... ... қосу ... файлды електен
өткізу программасын қарастырайық.
Типтелген файлдың ''шаблоны'', (''терезе'') болады.
Мысал-3. Біз ... ... ... ... ... '', ... ... файл BYTE типінің файлы ретінде ашылады, ... ... ASCII ... ... шығады.
Программасы:
Program CharToByte;
Uses Crt;
Var
FC:file of Char;
FB:file of Byte;
Ch: ... ... ... Ch:='0' to '9' do Write (FC,Ch);
For Ch:='A' to 'J' do Write (FC,Ch);
Close ... ... ... not Eof (FB) do
Begin
Read (FB,B);
Write (B:8);
End;
Close (FB);
End.
Нәтиже.
48 49 50 51 52 53 54 55 56 ... 66 67 68 69 70 71 72 73 ... ... ... ... файл ... ... операторлары сипатталады.
Типтелген файлды ашқан ... ... файл ... ол бірдей структуралы (әдетте ... ... ... тізбегін білдіреді деп есептеледі. Арифметикалық
типті деректер қабылдаған мәндері тәуелсіз бекітілген байттар санын алып
жатады.
Типтелген файлдар үшін ... ... ... болатын оқудың READ
және жазудың WRITE ... ... ... ... Х айнымалысы F1 файлының компонентіне сәйкес типте болуы керек.
Типтелген файлдар үшін алмасу операцияларынан басқа да ... ... ... ... SEEK, ... FILES FILEPOS.
1.SEEK процедурасы файлдың көрсеткішін берілген позицияға жылжытуға
арналған және ... ... ... F- ... ... аты, NUM- файлдың көрсеткіші орнатылуы қажет
элементтің реттік номерін көрсететін LONGINT типті өрнек.
2.TRUNCATE ... ... ... ... ... ... соңына дейін алып тастауға арналған және форматы ... ... ... ... ... ... ... көрсеткішінің ағымдағы позициясын анықтайды
және форматы ... ... F- ... ... ... F2 ... студенттерінің математика, физика, алгоритм,
тарих пәндерінен алған бағалары көрсетілген. ... ... ... ... ... ... және пәндерден алған бағаларын ретімен
шығаратын программа құру.
Программасы:
Program Fil_Typ_Sort;
Type
Stud=Record
Fam:Array [1..10] of Char;
Matan,Fiz, Ist, Alg, :Integer;
End;
Var
F2:File of Stud;
R:Stud;
St:Array [1..100] of ... ... not Eof ... (F2, St ... I:=1 To N-1 Do
For J:=I+1 To N Do
If St [I]. Fam>St [J]. Fam Then
BEGIN
R:=St [J];
St [J]:=St ... ('1-ші ... ... I:=1 TO N ... St [I] ... (I,':', Fam,' :', Matan:2);
Writeln (Fiz:2, Ist:2, Alg:2);
End;
End.
4. Типтелмеген файл
Типтелмеген файлдар негізінен кез келген сыртқы файлға оның типі ... ... тура ... үшін қолданылады. Бұл жағдайда файл кез
келген ... ... ... ... ... тек қана ... элементтер мөлшері. Кез келген типтелмейтін файл FILE (OF-сыз) кілттік
сөзінің көмегімен сипатталады.
Мысалы:
Var F: ... ... ... RECSIZE ... ... файл
элементінің мөлшері ... ... RESET және ... ... ... Егер екінші параметр көрсетілмесе, онда
ол өздігінен 128 байтқа тең деп ... ... оқу үшін ... екі ... бар ... ... F:File; Var Buf; Count: Word);
BlocRead(Var F:File; Var Buf; Count: Word; Var Res:Word);
мұндағы Ғ – Assign және Reset ... ... ... ... ... файлдық айнымалының аты; BUF – ... ... COUNT – бір ... ... ... ... RES нақты
оқылған элементтер саны.
Типтелмейтін файлға жазу үшін форматының екі ... бар ... ... F:File; Var Buf; Count: Word);
BlocкWrite(Var F:File; Var Buf; Count: Word; Var Res:Word);
мұндағы Ғ- Assign және Reset ... ... ... ... байланысқан файлдық айнымалының аты; BUF – ... ... COUNT – бір ... ... жазулар саны; RES нақты
жазылған элементтер саны.
Егер файлға жазған ... ... бос орын жоқ ... онда егер ... берілмесе, онда енгізу-шығару қатесі пайда болады; егер RES
параметрі ... онда оған ... ... ... ... Бір файлда берілген ... ... ... ... ... ... қолданылатын файлдар типтелген файлдарда
жүргізілсін.
Программасы:
Program Fil_NeTyp;
Const M=128;
Var
F1, F2: File;
Buf: Array [1..m] of ... ... ... ... ParamCout2 Then
Writeln (‘файлдардың аттары берілмеген’);
Else
Begin
failNameIsx
Reset(F1, 1);
FilNameRez:=ParamStr(2);
Assign(F2,FilNameRez);
Rewrite(F2, 1);
Repeat
Read(F1,Buf,M,CountR);
ReadWrite(F2, Buf,M,CountR,CountW);
Until((CountR=0) Or (CountR CountW ... ... ... ... ҚОЛДАНЫЛАТЫН ФУНКЦИЯЛАР МЕН ПРОЦЕДУРАЛАР
Файлға жазу функциясы
Паскальдың көбірек тараған функциясы – ... ... Оның ... ... ... ... форматы
қарапайым және қолдануы бейімделгіш
WRITELN (элемент,элемент,…);
Әрбір элемент бұл сіздің экранға шығарғыңыз келгеніңіз және ... ... сан ... ... ... ... (“сәлем
адамзат”),бульдік мән (TRUE) сияқты мәндер бола ... ... ол ... ... аты), ... ... функцияның шақырылуы,егер ол
бүтін типі ... ... ... ... тип ... ... ... кәрсетілген реті бойынша басылады.Шығарудан
кейін күймеше келесі ... ... ... ... ... соңғы элементтен кейін қалуы қажет болса,онда
WRITE(элемент,элемент,…);
Элементтерді шығарғанда олардың арасында ... ... бос ... ... ... кеткен жөн:
WRITELN(элемент:элемент,…);
Шығару келесі операторлармен сипатталады.
A:=1; B:=2; C:=3;
NAME:=’Бақыт’;
WRITELN(A,B,C); ... ... ‘,C); 1 2 ... ... ... ... элементтің өрісін анықтайтын параметрлерді
пайдалануға болады.Бұл жағдайда оператордың ... ... ... ... арналған өрістің жалпы
мөлшерін анықтайтын бүтін өрнек ... ... ... және оның ... ... ... B:=2; ... ... B:2, C:2); 10 ... ... 10 ... 10 ... ... жай ... ... ... ұзындық бойынша бос
орындар қойылады. Мәннің өзі оң жағы бойынша түзетіледі. Ал егер ... ... кем ... ше? ... ... ... екінші
операторында С=100 үшін өрістің мөлшері керектен аз, басқаша айтқанда
берілгені 2, керегі 3. ... ... ... қажетті минимумға дейін
өсіреді. Бұл әдіс ... ... ... ... ... тип, нақты сан,
символдар, қатарлар және бульдік типтер үшін қолданылады.
Бір нақты сандар үшін өрістің кеңдігін (мөлшерін) ... ... ... ... түзетіледі және экспонентті формада басылып шығарылады.
X:=421.53;
WRITELN(X);
4.2153000000E+02
WRITELN(X:8);
4.2E+02
Сондықтан Паскаль ұзындықтың екінші операторын қосуға мүмкіндік береді:
Элемент : ұзындық: ... ... ... сан ... ... ... үшін үтірден кейін қанша сан бар екенін көрсетеді.
X:=421.53;
WRITELN(X:6:2); ... ... ... оқу функциясы
Стандартты Паскальда деректерді пернеліктен оқуға пайдаланылатын
ақпаратты енгізудің екі негізгі READ және READLN ... бар. ... ... ... ... ... ... элемент бүтін, нақты, символдық типті айнымалы және қатар.
Сандар бір – біріне бос орынмен немесе Enter – ді ... ... ... ... жұмыс жасайтын процедуралар және функциялар.
Append- файлға қосымша элемент қосуға ашады.
Flush- текстік ... ... ... сияқты жұмыс жасайды, бірақ қосымша ... ... жаңа ... оқиды.
SeekEof-текстік файлға Eof жағдайын қайтарады.(файл соңы).
SeekEoln-текстік ... Eoln ... ... соңы).
SetTextBuf-текстік файлға енгізу/шығару буферін қояды.
Writeln-Write сияқты жұмыс жасайды,өзгешелігі ... жаңа ... ... ... ... ... функциялар мен процедуралар
ASSIGN және CLOSE процедуралары
Файлмен жұмыс алдында оның атын файлдық айнымалымен байланыстырып алу
үшін ASSIGN процедурасы қолданылады:
Assign(X,N);
мұндағы: X – ... ...... ... аты.
Жоғарыдағы процедураның орындалу нәтижесінде компьютер жұмыс істеу
үшін ашылатын файлдың атын файлдық айнымалыға бepiп (X:=N), әрі ... ... ... файлдың атын X деп алып қатысады. ... ... ... ... ... ... бір ... ашуға Assign
процедурасында қолдану үшін міндетті түрде бірінші ашқан ... жабу ... ... ... ... файлдық айнымалысын басқа идентификатормен
белгілеу керек.
Файлды жабу үшін CLOSE процедурасы ... X – ... ... және CLOSE процедураларын қолдануға мысалдар қарастырсақ:
а) бірінші ашылған файлды жауып, екінші файлдың атын ... ... ... ... N); //Х – ке ... N ... атын ... //X файлын жабу
Assign(X,M); //Х – ке ... ... М ... атын беру
ә) бірінші ашылған файлды жаппай-ақ екінші файлдың атын ... ... ... ... беру:
Assign(X,N); //Х – ке ... N ... атын ... //X1 – ге ... ... М ... атын беру
.........................................
Close(X); ...........................
ASSIGN процедурасының көмегімен файлдың атын файлдық айнымалымен
байланыстырғаннан кейін, олармен көптеген амалдар жүргізуге ... ... ... жаңа файл ... ... бар ... ... өшіріп, басқа мәліметтер жазу;
3. Файлды дискіден оқу;
4. Файлдың атын өзгерту;
5. Файлды ... ... ... ... ... ... табу;
7. Файл элементтерін өзгерту;
8. Файлға жаңа элемент қосу;
9. Бір ... ... ... бір ... көшіріп жазу т.б..
REWRITE процедурасы
Дискіден бос орын ашып, жаңа файл ... ... үшін ... ... ... ... орындалу нәтижесінде жаңа бос
файл ашылып арнаулы файлдық сілтеме – көрсеткіш файлдың ... ... да ... 0 нөмірлі элементке), әрі қарай ендірілетін
мәліметтер жаңа ... сол ... ... ... Бұл процедураның
көмегімен дискіде бұрыннан бар файл ашылып жазылған жағдайда, ескі файлдағы
мәліметтер өшіріледі де орнына жаңа ... ... ... ... X – ... ... файл аты.
Жаңа файлдың ішіне мәліметтер READ және WRITE енгізу-шығару
процедураларының ... ... ; ... ... ... мәлімет
Read(Y); // Ү – ... ... ... ... ... ... ... қалуы үшін WRITE
процедурасы қолданылады:
WRITE(X, Ү); //Ү айнымалысының мәні X ... ... файл жазу ... ... ... Write('файл атын енгіз:');
Readln(N); {жазылатын ... атын ... атын ... ... ... {дискіден X файлын жаңа файл жазу үшін ашу}
Write ('Y қатарын енгіз:');
Readln (X, Ү); {X ... ... ... ... ... ... бар файлды ашу үшін стандартты RESET процедурасы қолданылады.
Бұл процедура дискідегі файлды оқуға дайындап ашады да, ... ... ... ... апарып орналастырады (бастапқы 0 нөмірлі
элементке). Егер файлдық айнымалы дискіде жоқ файл атын ... ... ... тоқтайды, жалпы жазылуы:
RESET(X); //X – дискіден ашылатын файл ... ... ... ... оқу үшін READ ... жалпы жазылуы:
READ(X, Ү); //X ашылған файл, Ү – файлдағы ... ... ... ... шығару үшін WRITE
процедурасы қолданылады, жалпы жазылуы:
WRITE(Y); //Ү – ... ... ... ... жаңа ... READ және ... ... жазылады.
Дискідегі файлды оқу мысалы:
VAR X:Text;
Y,N:String;
BEGIN Readln(N); ... ... атын ... ... ... ... Read(X,Y);
Write('Y=',Y);
Assign(X,N);
Close(X);
Readln END.
BLOCKREAD процедурасы
File – типті файлдардың элементтерін оқу ушін BLOCKREAD ... ... Y, B, ...... ...... айнымалы,
В – дискіден оқылатын мәліметтер көлемі(байт),
N – процедура орындалып болғандағы ... ... ... ... ... емес).
BLOCKWRITE процедурасы
File – типті файлдардың ... ... ... ... ... ету үшін ... процедурасы қолданылады. Бұл
процедура параметрлері дәл ... ... ... Y, B, ... ... ... ... жаңа мәліметтер ендіру үшін APPEND процедурасы
қолданылады. Процедураның орындалу нәтижесінде ... файл ... ... ... сілтеме-көрсеткіш файлдың ең соңына барып орналасады(соңғы
нөмірлі элементтен кейін). Әрі қарай, файлдың ... жаңа ... Rewrite ... ... ... файлдардағыдай ендіреді,
жазылуы:
APPEND(X);
мұндағы: X – Text-типті файлдық айнымалы.
FLUSH процедурасы
Файлдың ішкі ... ... ... ... ... дискіде
сақталуын қамтамасыз ету үшін FLUSH процедурасы қолданылады. ... тек Rewrite ... Append ... ... ашылған
текстік файлдарда ғана пайдаланады, жазылуы:
FLUSH(X);
мұндағы: X – Text-типті файлдық ... ... ... ... ... ... ... өшіру үшін
TRUNCATE процедурасы қолданылады. Бұл процедура типі анықталған файлдарда
қолданылады, жазылуы:
TRUNCATE(X);
мұндағы: X – типі ... ... ... процедурасы
Дискідегі кез-келген ашылмаған файлдың атын өзгерту үшін RENAME
процедурасы қолданылады, жалпы жазылуы:
RENAME(X,New);
мұндағы: X – ... ... New - ... жаңа ... ... кез – келген ашылмаған файлды өшіру үшін ERASE процедурасы
қолданылады, жалпы жазылуы:
ERASE(X); //дискіден X файлын өшіру
FILESIZE ... – X ... ... ... анықтау функциясы.
Бұл функцияны да текстік файлдарға қолдануға болмайды.
FILEPOS функциясы
FILEPOS(X) – X файлының орындалайын деп жатқан ... ... ... ... Бұл ... да ... ... қолдануға
болмайды.
SEEK процедурасы
SEEK(X.N) – файлдық сілтеме-көрсеткішті N нөмірлі элементіне апаратын
процедура. Процедураны ... ... 1 – ші ... нөмірі
әрқашан 0-ге тең екенін ескеру қажет. Бұл процедураны текстік файлдарға
қолдануға болмайды.
EOLN, EOF және IORESULT ... ... – Егер ... сілтеме-көрсеткіштің позициясы қатардың
соңында болса, онда функция нәтижесі "Ақиқат" ... – Егер ... ... - ... ... X файлының
соңында болса, онда функция нәтижесі "Ақиқат" болады.
IORESULT – Егер файл қатесіз дұрыс ашылса, онда функция ... ... тең ... SEEKEOF ... функциялары
SEEKEOLN(X) – Егер файлдық сілтеме-көрсеткіш ... ... бос орын мен ... ... ... қатардың соңына барып
орналасса, онда нәтиже "Ақиқат" болады.
SEEKEOF(X) – Егер файлдық сілтеме-көрсеткіш тексте кездесетін ... орын мен ... ... жіберіп файлдың соңына барып орналасса,
онда нәтиже "Ақиқат" болады.
ПРАКТИКАЛЫҚ БӨЛІМ
1-есеп: Алфавит бойынша тақ сөзге ... және ... бір жұп ... ... ... шығару.
program bukva;
{Andrey Sharov}
{web www.borlpasc.narod.ru}
function UpCaseRus(C:char):Char;
var s1,s2:string;
R1:char;
begin
s1:='йцукенгшщзхъфывапролджэячсмитьбю';
s2:='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
if Pos(''+C,s1)>0
then R1:=s2[Pos(''+C,s1)]
else R1:=C;
UpCaseRus:=R1
end;
const Razd=[' ','.','!','?'];
const Zv =['Б','В','Г','Д','Ж','З','Л','М','Н','Р'];
var ... of ... ... ... дауыстылар}
b:=[];{жұп сөздеоден құралатын дауыстылар}
writeln('текстіңізді TEXT1.PAS. файлында жазыңыз және осы файлдың атын
енгізіңіз ');
write('файлдың атын енгізіңіз=>');readln(fa);
assign(f,fa);reset(f);{оқуға текстік файлды ... ... ... not eof(f) do ... соңы ... бір жолды оқимыз}
for i:=1 to length(s) do {жолды қараймыз}
if s[i] in Razd
then {егер бөлектеуіш}
begin
if not((i>1) and (s[i-1] in ... ... (odd(j)) then begin a:=a*a1; a1:=[] ... ... ... ... (c in Zv) then
if (odd(j)) {егер тақ сөз болмаса}
then a1:=a1+[c]
else b:=b+[c]
end;
if (a1[]) and (odd(J)) then ... тақ ... c:='Б' to 'Р' do if c in a then ... ... c:='Б' to 'Р' do if c in b then ... ... ... көп ... М ... ... ... c:='Б' to 'Р' do if c in m then write(c);
if m=[] then ... ... ... ... ... Ең ұзын ... табатын
программа құрыңыз.
program pr13c;
const sighnp=[' ','.',',','?','!',':'];
var f:text;
s,sl,slo,b,slovo,name:string;
l,t:integer;
function WordT(var s:string):string;
var ... s:=s+' ... not(s[k] in sighnp) do inc(k) ;
if ... begin ... ... ... ?¬i a ©« :');
readln(Name);
write('‚??¤?a? ?a??a:');
readln(b);
assign(f,name);
reset(f);slovo:='';l:=0;
WHILE NOT(EOF(F)) do
begin readln(f,s);
sl:=WordT(s);
while sl'' do
begin t:=0;
slo:=sl;
while pos(b,sl)>0 do
begin inc(t);
sl[pos(b,sl)]:=' '
end;
if t>l then begin l:=t;slovo:=slo end;
sl:=WordT(s)
end;
end;
writeln('?a?®¬®? ... Орыс ... ... файл ... Осы ... қанша рет ұзақ сөз
кездесетінін анықтау.
program pr6c;
const razd=[' ','.',',','?','!',':',')','('];
var f:text;
s,slo,slovo,name:string;
k,i:integer;
begin write('‚??¤?a? ?¬i a ©« :');
readln(Name);
assign(f,name);
reset(f);
slovo:='';k:=0;
while not(EOF(F)) do
begin
readln(f,s);slo:='';
for i:=1 to ... ... s[i] in ... (i>1)and ... ... ... ... k:=k+1;
if length(slo)>length(slovo)
then
begin
slovo:=slo;
k:=1
end; ... ... ... ... ... ... ?aaa?c ?aai ',k,' a ... Европаның ең ұздік футбол клубын анықтау, және экранға командаларды
рейтингісі (жинаған балдары)
бойынша реттеп шығаруда функция мен процедура қолдану.
Европаның ең ... 5 ... ... ... ... ... берілген:
Т (Реал, Милан, Порту, Рома, Интер);
А(7,7,3,2,3);
В(3,2,5,4,5);
С(1,2,5,3,7);
Т массиві –футбол клубтары,
А,В,С массивтері –олардың жарыстарда жеңіп ... ... ... ... осы ... ... ... кубоктар санына байланысты
есептеледі. әр кубокты бір рет иеленгені үшін командаға мынадай балдар
қосылады:
А-чемпиондар лигасының кубогын жеңіп алған үшін 50 балл,
В-кубок ... ... ... ... үшін 30 балл,
С-УЕФА кубогын жеңіп алған үшін 20 балл.
PROGRAM Kubok1;
Type Mas=Array[1..5] Of Integer;
Komanda =Array [1..5] Of ... ... ... T: ... Inp (Var T: Komanda; VAR A,B,C: ... {4 ... ... енгізу:}
For K:=1 To 5 Do
Begin Readln (T[K]);
Readln (A[K], B[K], C[K]) End; End;
FUNCTION Sumball ... ... A,B,C: Mas): ... ... ... ... A[K]*50+ B[K]*30+ C[K]*20; ... Reiting;
VAR Max, F:Integer; M:String;
Begin For K:=1 To 5 Do
R[K]:=Sumball(K,T,A,B,C); {рейтингтерін R массивіне ... K:=1 To 4 Do ... R[5]; F:=5; M:=T[5]; ... ... ... реттеу}
For I:=5 Downto K Do
If R[I]> Max Then Begin
F:=I; Max:=R[I]; M:=T[I] End;
R[F]:=R[K]; R[K]:=Max; T[K]:=M End;
Writeln (‘Европаның ең мықты клубы:’, T[1]);
Writeln ... ... ... ... K:=1 To 5 Do Write (T[K]:7, R[K]:4); ... Inp ... Reiting; {негізгі программа}
Readln; END.
Нәтижесі: Borland Pascal Version 7. 0 Copyright (c) 1983,92
5
4
5
5
6
5
5
5
5
5
4
5
5
2
5
5
5
4
5
4
Europanin en mikti klubi: 5
Klubtardin reitingteri:
6 500 5 470 5 ... 430 ... ... ... 12 ... ... ұпайлары бойынша,
алғагқы 3 және соңғы 5 орын алған командалар тізімін шығару поцедурасын
құру.
PROGRAM ... ... ... Of Integer; N=Array [1..12] Of ... ... A:N; ... Engiz ( VAR B:M; VAR ... For K:=1 To 12 Do Begin Writeln (K’,команданың аты:’);
Readln (A[K]); Writeln (‘Оның алған ұпайы:’); Readln (B[K]) End;
End;
PROCEDURE Kemu (B:M; VAR ... ... ... For K:=1 To 11 Do ... F:=12; ... I:=12 Downto K ... B[I] > Max Then Begin F:=I; Max:= B[I]; M:=A[I]; End;
B[F]:= B[K]; B[K]:=Max; A[F]:=A=[K]; A[K]:=M; End;
Writeln; ... ... VAR ... Kemu (B,A); ... ... ... командалар:’);
For K:=8 To 12 Do Write (A[K]:7); End;
PROCEDURE Juldeger (B:M; ... ... ... ... K:=1 To 3 Do ... ... Clsrcr; ... (негізгі программа)
Autsaider (B,A); Juldeger (B,A); Readln; END.
Нәтижесі: Borland Pascal Version 7. 0 Copyright (c) 1983,92
Komandanin ati: ... ati: ... ati: ... ati: ... ati: Sunda
4
Komandanin ati: Portu
35
Komandanin ati: Runo
21
Komandanin ati: ... ati: ... ati: ... ati: ... ati: Manchestor united
55
Komandanin ati: Barselona
16
Komandanin ati: Arsenal
11
Artta kalgan comandalar: Rino-4, Sunda-6, ... ... ... ... жұмысты жазу барысында Turbo Pascal тілін қолданып
көптеген ... ... ... кейінгі негізгі бөлімде фйлдарға
қолданылатын ... және ... және ... ... жайлы
жазылған. Олардың ішіндегі бөліміндегі ... ... ... ... ... көрсетілген. Есеп шығару барысында қолданылатын
мүмкіндіктерін, қызметші сөздерін есептер ... ... ... және ... қызметтерінің түрлері туралы айтылған. ... ... және ... ... Паскаль типтерінің
түрлеріне салып есептер шығарылды.
Кіріспе бөлімде ... ... ... мен ... мен ... ... ... turbo pascal ортасындағы файлдармен жұмыс, файл
ұғымы, текстік файл, типтелген файл, ... файл ... ... ... отырып, курстық жұмысты толықтырдым. Сонымен қатар, тақырыпқа
сәйкес мысалдар ... ... ... ... ... ... ашып көрсеттім.
Қосымша бөлімде файлдарға функциялар мен процедураларды қолданып,
есептің программасын ... Ол ... шешу ... ... ... ... шақырып және оны өңдеуге болатынын және де көптеген
мүмкіндіктері ... ... ... ... ... ... ... өрістерінің мәндерін өрнектерде қолдану, айнымалыларды қолдана
отырып есептер шешу, мысалдағы процедуралар мен функцияларды қолайлы ... ... ... ... курстық жұмысты жаза отырып теориялық білімім мен қатар
тәжірибелік дағдыны қалыптастырып: ... ... ... мен ... ... ... мен ... сипаттауды, олардың типтерін қолдануды уйрендім. Алдағы уақытта
файлдарға ... ... мен ... ... ... ... ыңғайлы интерфейсі бар программа құруында үлкен роль
атқарады деп ойлаймын.
Қазіргі ... ... ... ... ... ... үйренуді
осы тілден бастайды деп айтуға болады. Turbo Pascal ... ... ... ... компилятор, жөндеуші және жанама ақпараттық
көмектен тұратын біріккен программалау ... бар. Бұл ... ... ... ... ... ... программаны жазып,
өңдеп, түрлендіріп, орындауға мүмкіндік береді.
Сондай-ақ Турбо Паскаль ... ... ... ... ... – бұл өте ... тақырып. Ол болашақта Turbo ... ... ... ... ... деген ойдамын.
ПАЙДАЛАНЫЛҒАН ДЕРЕК КӨЗДЕРІ ТІЗІМІ
1. «Паскаль тілінде программалау» Ғ.Ш. Төйкенов. ... ... ... ... Паскаль для начинающих». БХВ – Петербург 200год.
3. Ө.Н. Мырзабеков «Turbo Pascal программалау тілін 6-9 ... ... ... С.А ... «Turbo Pascal ... 2-е ... ... 2005год.
5. Федорика Ю «Алгоритмы и программы на Turbo Pascal» ... ... ... А.И ... Л,А Марченко Turbo Pascal. Киев ... 2000 ... Л.М ... «PASCAL 7.0 ... ... Москва 200
год.
8. Блашкин И.И., Буров А.А. Новые возможности Turbo Pascal 6.0. СПб.: ... ... П.П. ... ... − мой друг: М.: Компьютер, ЮНИТИ, 1995.-96
б.
10. Зуев Е.А. Язык программирования Turbo Pascal 6.0-М.: ... ... ... Turbo Pascal и объектно-ориентированное программирование.-М.:
Финансы и статистика, 1992.-185 б.
12. Справочник по процедурам и функциям Borland Pascal with Objects 7.0 ... ... ... ... Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо
паскаль.-М.: Изд-во МГТУ, 1990.-580 ... ... В.В. ... ... (в 3-х ... Кн.1. Основы Турбо Паскаля.-
М.: Учебно-инженерный центр «МВТУ-ФЕСТО ДИДАКТИК», 1992.-304 б.
15. Федоров А. ... ... на Borland ... 1994.-144 б.

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 27 бет
Бұл жұмыстың бағасы: 500 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Turbo pascal ортасындағы файлдар22 бет
Turbo pascal программалау тілі туралы8 бет
Turbo Pascal тілі туралы5 бет
"Прикаспийский Центр Сертификаций" ЖШС-нің сынау орталығында кабельді сынау және оған сертификат беру процедуралары47 бет
Delphi бағдарламалық ортасында «Pascal бағдарламалау тілінде файлдармен жұмыс істеу» электрондық оқу құралынжасап шығару19 бет
Delphi және PASCAL тілдерінде массив ұғымын түсіндіру және массивтерді өңдеу69 бет
Delphi мен Pascal-дің байланысы21 бет
Pascal және Си тілінде бағдарламалау29 бет
Pascal тіліндегі айнымалылар типі21 бет
String типті айнымалыға қолданылатын стандартты функциялар мен процедуралар9 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь