Turbo pascal ортасындағы файлдар

МАЗМҰНЫ

КІРІСПЕ 3

І. TURBO PASCAL ОРТАСЫНДАҒЫ ФАЙЛДАР
1.1. Файл. программистердің сүйікті сөзі. 4
1.2. Файлдық тип. 7
1.3. Типтелген файлдар 9

ІІ. ФАЙЛДАРМЕН ЖҰМЫС ЖАСАЙТЫН ПРОЦЕДУРАЛАР ЖӘНЕ ФУНКЦИЯЛАР
2.1. Файлдармен жұмыс жасайтын процедуралар және функциялар 15

2.2 Текстік файлдармен жұмыс жасайтын процедуралар және функциялар 23
ҚОРЫТЫНДЫ 24

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР 25

ҚОСЫМША 26
КІРІСПЕ
60-70 жылдарда Н.Вирт ойлап шығарған Паскаль тілі қазіргі кезде дүние жүзінде кең тараған программалау тіліне айналды. Қаз Қазіргі кезде Паскаль тілі қолданбалы программалар жазу үшін және жүйелі прораммалау тілі ретінде де кеңінен қолданылады. Паскаль тілі бұрын құрылған (Фортран, Алгол және тағы басқалары) программалау тілдерінен маңызды ерекшелігі ол құрылымдық программалық идеясын өмірге біртіндеп енгізу. Паскаль тілінің тағы бір ерекшелігі ол деректер құрлымының концепциясының алгоритм түсінігімен қатар программалаудың негізінде жатқан фундаментальды түсініктер қатарына кіруі.
Паскаль тілініњ шыѓу тарихына тоќталатын болсаќ. Алгоритмдік тіл АЛГОЛ 1950-60 жылдары шыќќан. Паскаль тілі осы АЛГОЛ-дыњ м±рагері болып табылады. Б±нда енгізу жєне шыѓару процедуралары бар жєне АЛГОЛ тіліне ќараѓанда м‰мкіндігі µте кµп.
BORLAND фирмасыныњ TURBO PASCAL тіл стандартыныњ кењейтілген т‰рі болып табылады. Сонымен ќатар программа ќ±рылуыныњ процесін жылдамдататын жєне жењілдететін интегрерленген ортасы бар. TURBO PASCAL пайда болѓанѓа шейін б±л программалыќ µнім ( алты) версиядан µтті.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР.
1.Ғ.Ш.Тойкенов Паскаль тілінде программалау. Алматы “Дәнекер” 2001 жыл.
2.В.Э.Фигурнов IBM PC для пользователя. Москва “Инфра-М” 1996 год.
3.Е.А.Бурин. Программирование на языке TURBO-PASCAL. Алматы 2000 год.
4.А.И.Марченко Л.А.Марченко. TURBO PASCAL. Киев “Век+” 2000 год.
5.В.И.Грызлов. Т.П.Грызлова. TURBO PASCAL. Москва, ДМК, 1999 год.
6.Н.Б.Культин. “ Программирование в TURBO PASCAL 7.0 и Delphi.”
Санкт-Петербург.1997 год.
7.Л.М.Климова. PASCAL 7.0. Практическое программирование. Москва. 2000 год.
        
        МАЗМҰНЫ
|КІРІСПЕ |3 ... TURBO PASCAL ... ... | |
| |1.1. ... ... сүйікті сөзі. |4 |
| |1.2. ... тип. |7 |
| |1.3. ... ... |9 ... ФАЙЛДАРМЕН ЖҰМЫС ЖАСАЙТЫН ПРОЦЕДУРАЛАР ЖӘНЕ ФУНКЦИЯЛАР | |
| |2.1. ... ... ... ... және ... |15 |
| | | | |
| |2.2 ... ... жұмыс жасайтын процедуралар және |23 |
| | ... | ... |24 ... ... |25 ... |26 ... жылдарда Н.Вирт ойлап шығарған Паскаль тілі қазіргі кезде дүние
жүзінде кең тараған программалау ... ... Қаз ... ... Паскаль
тілі қолданбалы программалар жазу үшін және жүйелі прораммалау тілі ретінде
де кеңінен қолданылады. Паскаль тілі ... ... ... ... ... ... программалау тілдерінен маңызды ерекшелігі ол құрылымдық
программалық идеясын өмірге ... ... ... ... тағы ... ол ... құрлымының концепциясының алгоритм түсінігімен қатар
программалаудың негізінде жатқан фундаментальды ... ... ... ... шыѓу ... тоќталатын болсаќ. Алгоритмдік тіл АЛГОЛ
1950-60 жылдары шыќќан. Паскаль тілі осы ... ... ... ... ... жєне ... ... бар жєне АЛГОЛ тіліне
ќараѓанда м‰мкіндігі µте кµп.
BORLAND фирмасыныњ TURBO PASCAL тіл стандартыныњ ... ... ... ... ... ... ... процесін
жылдамдататын жєне жењілдететін интегрерленген ортасы бар. TURBO PASCAL
пайда болѓанѓа ... б±л ... µнім ( ... ... ... TURBO PASCAL ОРТАСЫНДАҒЫ ФАЙЛДАР
1.1. Файл- программистердің сүйікті ... ... ... ... типті элементтердің тізбектелуін
ұсынады. Сонымен ... ... ... жиі ... ... ... файлдармен өзара қарым-қатынастағы программалардың бастапқы 3
түрін қарастырамыз:оқылу,жазылу, файлдардың оқылу және жазылуы.
Файлдың оқылуы дегеніміз- олар ... ... ... сыртқы
файлдарға деректерді енгізуді түсіндіреді. Деректер сыртқы файлда тұратын
программаларға енеді.
Файлдың ... ... ... ... ... файлды ашу (RESET операторы), файлдағы программаға
тиісті енгізетін (READ операторы), оқылған файлды жабу (CLOSE ... ... ... ... дәл осы ... де ... оқылады. Оқылатын файлдың жалпы үлгісі:
RESET(1 аты);
….
READ(1 аты, ... ... көп ... ... ... бар ... ЭВМ ... қолданатын бірнеше аргументтер RESET
операторында да ... ... ... ... 2’, ... ... ... бірнеше
аргументтерді қарастырсақ:
имя1-айнымалы файл, кәдімгі программаларда қолданылатын файл. Ол
әсіресе ... ... ... ...... файл аты, дискіде сақталады.
имя3- физикалық файлдың ... ... ... ... PAS, бір ... қолданылатын DAT. Мұнда қысқартылған сөзде
аргумент көрсетілмеуі мүмкін DAT;
имя 4- ... ... ... ... мәнді қабылдайды, дискідегі
файлдармен тең жүйеде байланысады. ... ... ... ... онда ... айнымалы типті жариялау керек. ЭВМ –де байтпен
есептелетін типтердің айырмашылығы әртүрлі болады. Мысалы: блок 512 ... ... ал бір ... ... бір ... алады.
Файлда оқылатын мәліметтер, READ операторына енетін барлық қарапайым
операторларды белгілері ... ... Егер READ ... енетін
түрін атап айтсақ, не болмаса мәліметтерді клавиатурадан енгізсек, ал READ
(имя1, параметрі)-дегі мәліметттер дискіде ... ... ... ... ... әрбір айнымалының мәнін бір элемент қабылдайды. Осы
белгіден кейін ... ... ... ... ... ... ... соңғы файлға кіретін белгілер, ... ... ... ... ... кіріктірме функция:
EOF(имя1);
ол ақиқат мәндерді қабылдай отырып, файл соңына жету үшін ... ... ... операторды логикалық теңсіздіктер мен
жиліктерді пайдалануына болады, мысалы:
while not EOF (имя1) do
begin
….
end.
Әзірше файл соңына жету үшін ... ... ... ... ... ... ... бөлігінде файл элементтері сақталады. Файлдың соңғы жолында
анықталған циклдік оператор
While not ... ... ... айналымда жаңа жолдық файл- READLN(имя1)операторы қолданылады.
Файлдың жазылуы дегеніміз – Жиі ... ... ... ... де сыртқы файлда да жазылады. Жазылатын файлдың жалпы үлгісі:
Rewrite(имя1);

Write(имя1 параметрі);

CLOSE(имя1);
Кейбір кішкене ЭВМ версиясында кездесетін бірнеше аргументтер REWRITE
операторында да болуы ... ... REWRITE ... ... ... ... аргументтерді атап өтсек: имя1- айнымалы ... ... ... файл. Ол әсіресе физикалық түрде ... ... ... физикалық файл кеңейтпесі. Кез-келген 3 символмен бағыттауға
болады, ... DAT ... де ... ... ... ... құрылған файл.
имя4- барлық айнымалы типте құрылған файл өлшемін білдіреді.
Файлда жазылған мәліметтерді ... ... ... ... операторы. Осы WRITE шығару операторы ... ... ... ... жаза отырып, оларды ретімен экранға шығарады.
Мысал ретінде мына бір программаны қарастырайық:
мәліметтер жазылған файл. Осы программмадағы ... А және В ... ... ... аты D2.PAS ... ... ... A21(input, output);
var
F2:text;
L2:integer;
B:real;
A:integer;
begin
L2:=1;
A:=510;
B:=16.2
Rewrite (F2,’A=’,A:3,’ ‘: 5,’B=’, B:4:1);
Close(F2);
end.
мұндағы F2-файлдық айнымалы REWRITE ... ... ... ... ... форматына сәйкес жолдық символдарды шығарады. CLOSE операторы
жазылған файлдарды жабады.
Файлдың ... және ... ... атқаратын әртүрлі қызметтері
болуы шарт: кейде мәліметтерді бір файлдан оқуға және ... ... ... бір файлдан өшіреді. Файлдың ... және ... ... ... бағыттайды немесе оларды жабады.
Файлды оқу және жазу кезінде, келесі файлдарды қолданарда бір ... бір ... ... ... Жұмысқа қажетті пайда болатын файлдың
оқылуы және жазылуы кезінде алдымен ашу, ондағы ... ... оны ... ... ... ... ашып, ондағы келесі мәліметтер өңделген соң оны
жабады.
1.2. Файлдық тип
Файлдық тип - ... ... тип ... ... ... тип
болатын структуралық типтен басқа кез-келген тип болатын сызықты тізбектен
тұрады. Компоненттер саны файлдық типті хабарлауда бекітілмейді. Файлдың
әрбір ... 0-ден ... ... ... ... 3 түрі бар:
типтелген, типтелмегн және текстік. ... ... ... ол ... ... ... айнымалы. Файлдық тип типті
сипаттаудың келесі көрсетілген операторларының көмегімен сипатталады:
TYPЕ TF=FILE OF тип
Файлдық айнымалыны қолданудың алдында ол ASSIGN ... ... ... ... ... керек. Әдетте сыртқы файл сыртқы есте
сақтау құрылғысындағы (СЕСҚ) аты ... ... ... ... ... ... ... сыртқы құрылғыда болуы мүмкін. Сыртқы файлдарда
файлдарға жазылған ақпарат сақталады ... олар ... ... ... ... ... атқарады. Сыртқы файлмен байланыс орнатылғаннан кейін
файлдық айнымалыны енгізу ... ... ... ... үшін ... ... ... Бар файлды RESET процедурасының көмегімен ашуға
болады, ал жаңа файлды REWRITE ... ... ... ашуға
болады. Файлдарға қатынау әдетте жүйелік түрде ... ... ... READ ... оқылған кезде немесе стандартты
WRITE процедурасының көмегімен жазылған кезде, файлдың ... ... ... ... ... ... ... READ және WRITE
процедураларынан басқа да, END-OF-FILE жағдайы ... ... ... ... тыс ... ... әрекет етілген кезде) TRUE мәнін
қабылдайтын EOF логикалық функциясы да жиі қолданылады. EOF ... ... NAME ... EOF ... ... файлдың аты
көрсетіледі. Програма файлмен жұмысын аяқтағаннан ... ол ... ... ... ... Файл жабылғаннан кейін онымен
байланысқан ... файл ... ... ... ... ... сыртқы файлмен байланыстырыла алады. Енгізу-шығарудың стандартты
функциялары мен процедураларына қатынаған кезде қателерді тексеру ... ... ... Қате ... жағдайда, экранға қате туралы
хабар беріледі және программа өзінің орындалуын тоқтатады. ... ... ... ... ... көмегімен қосуға
{$I+} немесе алып тастауға{$I} болады. Тексеруді алып тастаған кезде енгізу-
шығарудың қателері программаның тоқталуына әкелмейді. Бұл жағдайда ... ... ... ... ... үшін бүтін сан қайтаратын
IORESULT стандартты функциясы қолданылады. Егер бұл функцияның ... ... тең ... онда ... енгізу-шығару операциясы ойдағыдай аяқталған.
Кері жағдайда бұл сан қатенің кодын көрсетеді. (олардың ... ... ... ... ... ... оперцияларды негізгі 4
топқа бөлуге ... ... және ... ... ... ... ... файлдар
Барлық типтелген файлдардың элементтері бірдей типті болуы керек, ал
типтелген файл әр түрлі болуы мүмкін. ... емес ... ... TF1=file of ... of Real;
End;
TF2:file of TFR;
Типтелген файлдармен жұмыс жасайтын ... және ... ... оқу тек Read ... ал ... ... ... файл үшін Read және Write процедурасы келесі форматпен
көрсетіледі.
Read (файл аты және тізімі)
Write (файл аты және ... қосу ... ... ... және функциялар
белгіленген.
FilePos- файлда көрсетілген позицияның ағымдағы номерін ... ... ... ... ... ... ... қайтарады (санау кезінде файл
элементтерінің саны бірден бастап номерленеді).
Seek-файлдағы ... ... ... ... номердегі
элементпен алмастырады.
Truncate- файл өлшемі ағымдағы ... ... ... ... ... ... барлық элементтер өшіріледі, ... ... ... соңы ... ... (Eof(f)=True).
Типтелген файлдың элементтеріне тікелей қосу жұмысында файлды електен
өткізу программасын ... ... жай ... ... ... ... біз физикалық файлға енетін символдар ''енгіземіз '', содан кейін
физикалық файл BYTE ... ... ... ... ... ... ASCII кодының баспасы шығады.
Program CharToByte;
Uses Crt;
Var
FC:file of Char;
FB:file of Byte;
Ch: Char;
B:Byte;
Begin
ClrScr;
Assign (FC,’Test.Dat’);
Rewrite (FC);
For Ch:='0' to '9' ... ... Ch:='A' to 'J' ... ... (FC);
Assign (FB,’Test.Dat’);
Reset (FB);
While 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, TRUNCATE, FILES FILEPOS.
SEEK процедурасы ... ... ... ... жылжытуға
арналған және форматы төмендегідей:
SEEK (F,NUM);
мұндағы F- файлдық айнымалының аты, NUM- файлдың ... ... ... реттік номерін көрсететін LONGINT типті өрнек.
TRUNCATE процедурасы ... ... ... ... ... соңына дейін алып тастауға арналған және форматы төмендегідей:
TRUNCATE (F);
мұндағы F-файлдық айнымалының аты.
FILESIZE ... ... ... ... ... және форматы төмендегідей:
FILESIZE (F);
мұндағы F- файлдық айнымалының аты.
PROGRAM операторында F1 және F2 екі файлы ... REWRITE ... ... F2 ... жазуға ашылады. WHILE циклінде F1
файлынан R (фамилиясы және ... ... ... ... WRITE (F2,R) ... көмегімен R жазуы Ғ2 файлына
жазылады.Процесс бастапқы файл үшін ... ... ... файл ... ... алфавит бойынша сұрыптауға мүмкіндік
беретін келесі программаның бастапқы файлы ретінде пайдалана ... ... [1..10] of ... of ... [1..100] of Stud;
N,I,J;Integer;
BEGIN
Reset (F2);
N:=0;
While not Eof (F2);
BEGIN
N:=N+1;
Read (F2,St [N]);
End;
For I:=1 To N-1 ... J:=I+1 To N ... St [I]. Fam>St [J]. Fam ... ... [J]:=St ... ('1-ші ... студенттері:’);
For I:=1 TO N DO
With St [I] DO
Begin
Write (I,':', Fam,' :', Matan:2);
Writeln (Fiz:2, Ist:2, Alg:2);
End;
End.
II. ФАЙЛДАРМЕН ЖҰМЫС ЖАСАУҒА АРНАЛҒАН ... МЕН ... ... ... жасауға арналған процедуралар мен функциялар
ASSIGN және CLOSE процедуралары.
Файлмен жұмыс алдында оның атын файлдық айнымалымен байланыстырып алу
үшін ASSIGN процедурасы қолданылады:
Assign(X,N);
мұндағы: X - ... ... - ... файлдың аты.
Жоғарыдағы процедураның орындалу нәтижесінде компьютер ... ... ... файлдың атын файлдық айнымалыға бepiп (X:=N), әрі ... ... ... ... атын X деп алып ... ... файлға қолданған файлдық айнымалыны екінші бір файлды ашуға Assign
процедурасында қолдану үшін ... ... ... ... файлды жабу керек
немесе екінші ашылатын ... ... ... ... ... ... жабу үшін CLOSE ... қолданылады.
CLOSE(X);
мұндағы: X - файлдық айнымалы.
ASSIGN және CLOSE процедураларын ... ... ... ... ... жауып, екінші файлдың атын қайтадан X
файлдық ... ... N); ... ашылатын N файлының атын беру
........................................................
Close(X); //X файлын жабу
Assign(X,M); ... ... ... М файлының атын беру
ә) бірінші ашылған файлды жаппай-ақ екінші файлдың атын ... ... ... айнымалыға беру:
Assign(X,N); ... ... N ... атын ... ... ... М файлыныңатын беру
.........................................
Close(X); ...........................
ASSIGN процедурасының көмегімен файлдың атын файлдық айнымалымен
байланыстырғаннан кейін, ... ... ... ... ... ... ... жаңа файл жазу
2. Дискіде бар файлдың мәліметтерін өшіріп, басқа мәліметтер жазу;
3. ... ... ... ... атын ... Файлды дискіден өшіру;
6. Файлдан берілген элементті іздеп табу;
7. Файл элементтерін өзгерту;
8. ... жаңа ... ... Бір ... ... екінші бір файлға көшіріп жазу т.б..
REWRITE процедурасы.
Дискіден бос орын ... жаңа файл ... ... үшін ... ... ... ... орындалу нәтижесінде жаңа бос
файл ашылып арнаулы файлдық сілтеме-көрсеткіш файлдың басына ... да ... 0 ... ... әрі ... ... жаңа ... сол жерден бастап ендіріледі. Бұл процедураның
көмегімен дискіде бұрыннан бар файл ашылып жазылған ... ескі ... ... де ... жаңа мәліметтер жазылады, жалпы жазылуы:
REWRITE(X);
мұндағы: X - дискіге жазылатын файл аты.
Жаңа файлдың ішіне ... READ және WRITE ... ... ... ... жазылатын текстік мәлімет
Read(Y); // Ү - ... ... ... ... файлда сақталып жазылып қалуы үшін WRITE
процедурасы қолданылады:
WRITEfX, Ү); //Ү ... мәні X ... ... файл жазу ... ... String;
BEGIN Write('файл атын енгіз:');
Readln(N); {жазылатын файлдың атын енгізу}
{файлдыңатын файлдык, айнымалымен байланыстыру:}
Assign(X.N);
Rewrite(X); {дискіден X ... жаңа файл жазу үшін ... ... ...... ... ... Ү); {X файлында Үайнымалысының мәнін сақтап жазу}
Close(X);
Readln ... ... бар ... ашу үшін стандартты RESET процедурасы қолданылады.
Бұл процедура дискідегі файлды оқуға дайындап ... да, ... ... ... ... ... ... 0 нөмірлі
элементке). Егер файлдық айнымалы дискіде жоқ файл атын ... ... ... ... ... жазылуы:
RESET(X); //X - дискіден ашылатын файл аты.
Ашылған файлдағы айнымалылар мәндерін оқу үшін READ ... ... ... Ү); //X ... ... Ү - файлдағы айнымалы
Файлдағы айнымалылардың мәндерін ... ... үшін ... ... ... жазылуы:
WRITE(Y); //Ү - файлдағы айнымалы
Ашылған файлға қайтадан жаңа ... READ және ... ... ... ... оқу ... X:Text;
Y,N:String;
BEGIN Readln(N); {оқылатын файлдың атын ... ... ... ... ... ... файлдардың элементтерін оқу ушін BLOCKREAD процедурасы
қолданылады, жазылуы:
BLOCKREAD(X, Y, B, ... - ... ... - ... ... - ... ... мәліметтер көлемі(байт),
N - процедура орындалып болғандағы өңделген мәліметтер ... ... ... ... ... файлдардың енгізілген ... ... ... ... ету үшін ... процедурасы қолданылады. Бұл
процедура параметрлері дәл ... ... ... Y, B, ... ... файлдың соңына жаңа мәліметтер ендіру үшін APPEND процедурасы
қолданылады. Процедураның орындалу нәтижесінде дискідегі файл ... ... ... сілтеме-көрсеткіш файлдың ең соңына барып орналасады(соңғы
нөмірлі элементтен кейін). Әрі ... ... ... жаңа мәліметтерді
Reset, Rewrite процедураларының көмегімен ашылған файлдардағыдай ендіреді,
жазылуы:
APPEND(X);
мұндағы: X - Text-типті файлдық ... ... ішкі ... ... ... енгізілген мәліметтердің дискіде
сақталуын қамтамасыз ету үшін FLUSH ... ... ... тек Rewrite немесе Append процедураларының көмегімен ашылған
текстік файлдарда ғана пайдаланады, жазылуы:
FLUSH(X);
мұндағы: X - ... ... ... ... көрсетілген компонентінен бастап соңына дейін өшіру үшін
TRUNCATE процедурасы қолданылады. Бұл ... типі ... ... ... X - типі ... ... айнымалы.
RENAME процедурасы.
Дискідегі кез-келген ашылмаған файлдың атын ... үшін ... ... ... ... X – ... ... New - файлдың жаңа аты.
ERASE процедурасы.
Дискідегі кез-келген ашылмаған файлды өшіру. үшін ERASE ... ... ... ... X ... өшіру
FILESIZE функииясы.
FILESIZE(X) - X файлының элементтерінің санын анықтау функциясы. Бұл
функцияны да текстік файлдарға қолдануға болмайды.
FILEPOS ... - X ... ... деп ... ... реттік
нөмірін анықтау функциясы. Бұл функцияны да текстік ... ... ... - файлдық сілтеме-көрсеткішті N нөмірлі элементіне апаратын
процедура. Процедураны қолданғанда ... 1-ші ... ... ... тең ... ... ... Бұл процедураны текстік файлдарға қолдануға
болмайды.
EOLN, EOF және IORESULT логикалык функциялары.
EOLN(X) - Егер файлдық ... ... ... ... онда ... ... ... болады.
EOF(X) - Егер файлдық сілтеме - көрсеткіштің позициясы X файлының
соңында болса, онда ... ... ... болады.
IORESULT - Егер файл қатесіз дұрыс ашылса, онда функция нәтижесі 0-ге
тең болады.
SEEKEOLN, SEEKEOF логикалык функциялары.
SEEKEOLN(X) - Егер ... ... ... кездесетін
барлық бос орын мен табуляция символдарын жіберіп қатардың соңына барып
орналасса, онда нәтиже ... ... - Егер ... ... ... ... ... орын мен табуляция символдарын жіберіп файлдың соңына ... ... ... ... болады.
. 2.2 Текстік файлдармен жұмыс жасайтын процедуралар және ... ... ... элемент қосуға ашады.
Flush- текстік файлға буфер шығарады.
Readln-Read сияқты жұмыс жасайды, бірақ ... ... ... жаңа ... ... ... Eof ... қайтарады.(файл соңы).
SeekEoln-текстік файлға Eoln жағдайын қайтарады.(жолдың соңы).
SetTextBuf- текстк файлға енгізу/шығару буферін қояды.
Writeln- Write сияқты жұмыс ... ... жаңа ... ... деген сөз- есептеуіш деген мағынаны білдіреді. Мыңдаған
жылдар бұрын санау үшін, санағыш ... ... т.б ... ... ... шот қолданыла бастады.
1642 жылы Блез ... ... ... ... ... ойлап тапты,ал 1673 жылы Готфрид Вильгельм Лейбнец арифметикалық
төрт амалды механикамен орындайтын арифмометрді жоспарлады.
Microsoft ... үшін IBM ... ... ... көп
мақсатты операциялық жүйелер даярлау жұмысын қолға алды, солардың бірі
Windows ... ... ... ... ... ... ... қатар іске қосыла
бастаған Windows графикалық ортасының жаңа версиясы Windows 3.1 ... ... ... ... ... ... ... шығара
бастады.
Енді өз тақырыбыма тоқталар болсам :
Файл деп- ... ... түрі ... ... болып келетін
тізбектерді айтамыз. Файл ретінде программалар, құжаттардың ... ... ... ... т.б сақтауға болады.
Кез-келген файлдың өлшемін өзгертіп ... ... ... ... ... ... ... жазуға болады.
Файлдың үш түрі бар: текстік, типтелген, типтелмеген.
Курстық жұмысымды аяқтай ... файл ... ... оның түрлерін кең
көлемле түсіндім деп ойлаймын.Келешекте бұл ... ... ... ... көп ... ... деп ойлаймын және жалпы курстық жұмыс жазу
барысында алдыма қойған міндеттеріме толық көз жеткізе білдім деп ... ... ... ... ... Алматы “Дәнекер” 2001 жыл.
2.В.Э.Фигурнов IBM PC для пользователя. Москва “Инфра-М” 1996 ... ... на ... ... ... 2000 год.
4.А.И.Марченко Л.А.Марченко. TURBO PASCAL. Киев “Век+” 2000 год.
5.В.И.Грызлов. Т.П.Грызлова. TURBO PASCAL. ... ДМК, 1999 ...... в TURBO PASCAL 7.0 и ... год.
7.Л.М.Климова. PASCAL 7.0. Практическое программирование. Москва. 2000
год.
ҚОСЫМША
ҚОСЫМША
Program BookPhone; {Абонент туралы мәлімет}
Uses Crt;
Type
StFio=string[20];
StPhone=string[10];
RecBook=record {Абонент туралы ... ... ... номері}
End;
Var
BookFile:file of RecBook; {RecBook файлы үшін жазба айнымалысы}
Work:RecBook; {Жазбаны ашуға арналған айнымалы}
Vid:byte;
End_Menu:boolean;
Name:string[12];
Procedure Name_File; {Мәліметтер файлының атын енгізу}
Begin
Write ... ... ... файлының атын енгіз>’);
Readln(Name);
End;
Procedure AddRec; {Файлға жазба қосу}
Begin
Writeln (‘Жазба енгізу № ‘,FilePos(BookFile)+1);
With Work do
Begin
Write (‘Фамилиясын енгіз:’);
Readln(Fio); {Фамилиясының енгізілуі}
Write ... ... ... (Phone); ... ... енгізілуі}
Write (BookFile,Work); {Work айнымалысына файл мағынасын жазу:
аты ... және ... ... ... ... файл мәліметтерінің құрылуы}
Var
Ind,Count:integer;
Begin
Name_File;
Assign (BookFile,Name); {Жазба үшін жаңа файл ашу}
Rewrite (BookFile);
Writeln (‘Файл жазбасының құрылуы’,Name);
Write ... ... ... ... Ind:=1 to Count ... (‘Телефон анықтамасында мәліметтер файлының құрылуы аяқталды’);
Writeln (‘Файл ... ... ... Output; {Экраға ағымдық жазбаны енгізу}
Begin
Read(BookFile,Work);
With Work do
Begin
Write (‘Жазба № ’,FilePos(BookFile),’:’);
Writeln(‘ФИО:’,FIO,’Телефон:’,Phone);
End;
End;
Procedure OutputAllRec; {Файлдың барлық жазбаларын экранға шығару}
Begin
Name_File;
Assign(BookFile,Name);
{SI-} {Қатерлі стандартты өңдеуді алып ... ... ... өңдеуді іске қосу}
if Ioresult=0 then
begin
Seek(BookFile,0); {Бірінші жазбаға орнату}
Writeln (‘*** ... ... ... ... ... файл ... UpdateRec;
Var
NumRec:LongInt;
Begin
Name_File;
Assign(BookFile,Name); {Жазба үшін жаңа файл ашу}
{SI-}
Reset(BookFile);
{SI+}
if Ioresult=0 then
begin
Write (‘Өзгертілген жазбаның номерін көрсет:’);
Readln(NumRec);
Seek(BookFile,NumRec-1); {Жазбаның номері ... ... ... ... ... ... ... позицияға қайту}
Seek(BookFile,NumRec-1); {Жазбаны шығару немесе келксіге
ауыстыру}
Writeln (‘Жаңа белгі ... ... ... файл ... FindFio; ... ... ... телефон номерін анықтау}
Var
BookFile:file of RecBook;
Work:RecBook;
Maska:StFio;
Rez_Find:boolean;
CountRec:integer;
Begin
Name_file;
Assign(Bookfile,Name);
{SI-}
Reset(BookFile);
{SI+}
if Ioresult=0 then
begin
Write (‘Іздеу үшін фамилиясын енгізіңіз:’);
Readln(Maska);
Rez_Find:=False;
CountRec:=0;
While(not Eof(BookFile)) do ... ... ... ... қарап шығу}
Begin
Read(Bookfile,Work);
With Work do
If Pos(Maska,Fio)0 then
Begin {Фамилиясы көрсетілген абоненттік жазбалары
табылды}
Rez_Find:=True;
Inc(CountRec);
Writeln(‘аты-жөні:’,Rec,’телефон:’,Phone);
End;
End;
If Rez_Find ... үшін ... ... Maska фамилиясымен абонент жоқ‘);
Close(Bookfile);
End
Else
Writeln(‘Дискте ‘+Name+’атты файл жоқ’);
End;
Begin {Негізгі программа}
ClrScr;
End_Menu:=False;
Repeat {Меню көрсеткішін қайталау End_Menu=False}
Writeln(‘*****Телефон анықтамасы*****’);
Writeln(‘*****Жұмыс түрін таңдаңыз:*****’);
Writeln(‘*****1-Жаңа файл ашу*****’);
Writeln(‘*****2-Анықтама тізімін қарау*****’);
Writeln(‘*****3-Жазбаны ... ... ... ... ... Vid of ... ... қарай әртүрлі процедураларды шақыру}
1:Creat_Book_Phone;
2:OutPutAllRec;
3:UpdateRec;
4:AddRecToEnd;
5:FindFio;
0:End_Menu:=True;
end;
Writeln(‘Жалғастыру үшін Enter пернесін басыңыз’);
Readln;
ClrScr;
Until End_Menu; {Бұдан кейін меню шақырмаңыз}
End.
Блок схемасы.
-----------------------
Соны
Дисплей
Негізгі программанын денесі
Procedure ... ... ... ... Create_Book_Phone_
Procedure AddRec
Procedure Name_File
Айнымалылардың сипаттал
уы
Басы

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









Ұқсас жұмыстар
Тақырыб Бет саны
Типтелген файл20 бет
Файлдарға қолданылатын функциялар мен процедуралар turbo pascal27 бет
Turbo Pascal жүйесінде файлдармен жұмысты ұйымдастыру технологиясы15 бет
Turbo Pascal 7.0 интегралдық программалау ортасын пайдалану43 бет
Turbo Pascal тілінің негізгі элементтері22 бет
Turbo Pascal тілінің сипаттамасы4 бет
Айнымалылар, файлдар атауларын таңдау және оларға берілетін түсініктеме. Программалау стилі, деректерді енгізу және шығару18 бет
Нысанды-бағдарланған программалаудың негізгі принциптері5 бет
Этика және мораль4 бет
60-80 жылдардағы ортасындағы Қазақстандағы нақты социализм12 бет


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


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

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

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

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

Email: info@stud.kz

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

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