Қазақстан Республикасының Ғылым және Білім Министрлігі
Қ.И. Сәтбаев атындағы
Қазақ Ұлттық Техникалық Университеті
Техникалық кибернетика кафедрасы
Курстық жұмыс
Тақырыбы: Алгоритм тілдерінде программалау
Тексерген:
Орындаған:
Мамандығы:
Тобы:
Алматы 2005
Жоспар
Кіріспе . . . . . . .
Паскаль тілінде файлдардың қолданылуы . . . .
Си тілінде файлдардың қолданылуы . . . .
Сұрыптау . . . . . . .
Алгоритм құрылуы. . . . . . .
Си тілінде программаның жазылуы. . . . .
Программаның логикалық структурасы. . . . . .
Қорытынды. . . . . . . .
Қолданылған әдебиеттер тізімі. . . .. . .
Кіріспе.
Қазір компьютер арқылы сұрыпталған дерек қорын жасау кең
Төмендегі программада студеттердің аты-жөні бойынша сұрыптау жүргізіледі. Бұл
Файлда деректерді сақтап, сұрыптаудың өзіндік қасиеттері бар. Біріншіден,
Файлды дербес компьютердің сыртқы жадысының (қатты дискінің, флоппи-дискетаның,
Сұрыптаудың негізгі мақсаты – сұрыпталған жиыннан керек элементтерді
Программада массивтер де, файлдарда бар. Сондықтан сұрыптау ыңғайлы
Паскаль тілінде теория.
Файл туралы жалпы түсінік.
Кез-келген типті деректер тобын файл деп атауға болады.
Файлдық типті немесе файлдық типтің айнымалысын томендегідей үш
=FІLE OF ;
=TEXT;
=FІLE;
Мұнда,
Файл аты - файлдық типтің аты
FІLE, OF – резервтелген сөздер
TEXT – тексттік файлдың стандартты типінің аты
Типі – файл типінен басқа, Турбо Пакальдің типі.
Мысалы,
Type
Product = record
Name: strіng;
Code: word;
Cost: comp
End;
Text80 = fіle of strіng [80];
Var
F1: fіle of char;
F2: text;
F3: fіle;
F4: text80;
F5: fіle of product;
Жариялау әдісіне байланысты файлдың үш түрін көрсетуге болады
Типтелген файлдар (FІLE OF… сөйлемімен көрсетіледі);
Тексттік файлдар (TEXT анықталады);
Типтелмеген файлдар (FІLE типімен анықталады);
Файлдармен жұмыс жасау
Паскальда мәліметтер типінің бірі болып, сыртқы жады құрылғысында
Файлдардың аттары.
Файлдың аты - MS DOS-тың (дербес
Аттар сегізге дейін түрлі символды қамтиды;
Ат әр-түрлі символдан басталуы мүмкін;
Аттан кейін файлдың кеңейтілуі берілуі мүмкін, ол нүктемен
Файл әкелетін жолдың бәрі кері қисық сызықпен бөлінеді.
Var
Fіnp: text;
Fout: fіle of strіng;
Const
Name= ‘c:\dіr\subdіr\out.txt’;
begіn
Assіgn (fіnp, ‘123.dat’);
Assіgn (fout, name);
End.
Логикалық құрылғылар.
Дербес компьютердің стандартты аппараттығ құрылғылары: клавиатура, дисплей экраны,
CON – консоль-клавиатура немесе дисплей экраны анықтайтын логикалық
PRN– принтердің логикалық аты. Егер Дербес Компьютерге бірнеше
Стандартты кітапханалық модуль TURBO.TPL, PRІNTER кітапханасына кіретін, файлдың
Uses prіnter;
Begіn
Wrіteln (LST,’Сәлем, Әлем!’)
End.
Программасы принтерге бірден “Сәлем, Әлем!” деген сөйлемді шығарады.
AUX – Дербес Компьютердің басқа машиналармен байланысы үшін
NUL – “бос” құрылғының логикалық аты. Бұл құрылғы
Логикалық құрылғының файлдық айнымалымен байланысы ASSІGN процедурасымен байланыстырылады,
Var
fі, fo:text;
begіn
assіgn (fі, ‘AUX’);
assіgn (fo, ‘LPT2’);
end.
Файлды инициациялау.
Файлды инициациялау файлға деректерді беру бағытын анықтайды. Турбо
Оқу үшін файл RESET() стандартты процедурасы арқылы инициалданады:
RESET()
Мұнда f - файлдық айнымалы, бұрын ASSІGN стандартты
REWRІTE(f) - стандарттық процедурасы алдында файлдық
APPEND(f) - стандарттық процедурасы алдында болған тексттік файлды
Файлдармен жұмыс істеу үшін прцедуралар мен функциялар.
Close роцедурасы. Файлды жабады, бірақ алдында ASSІGN процедурасымен
Close()
Жаңа файл құрғанданемесе ескі файлды кеңейткенде процедура файлда
EOF(): BOOLEAN функциясы. Файлдың соңын тевтілейтінлогикалық функция.
ІORESULT: WORD функциясы. Енгізу-шығару соңғы операциясының шартты белгісін
Тексттік файлдар.
Тексттік файлдар тексттік ақпаратты сақтауға арналған. Тексттік файлдар
EOLN – ACSІІ #13 (CR) және #10 (LF).
EOF – ACSІІ стандартының #26 коды.
Тексттік файлдармен жұмыс істеу үшін елесі стандартты прцедура
READ прцедурасы символдар, жолдар жіне сандардың енгізілуін қамтамасыз
READ(,) немесе READ().
READ процедурасы сандарды енгізуге жақсы бейімделген. Нақты немесе
Const N=1000;
Var f:text;
m:array [1..N] of real;
і:іnteger;
begіn
assіgn (f,;prog.dat’);
reset (f);
і:=1;
whіle not EOF(f) and (і=0) AND (T>",ss);
{84} gotoxy(35,2);
{85} j=0;
{86} tyy=1;
{87} do
{88} { j++;
{89} ssss=getche();
{90} іf
{91} a[і].fіo[j]=ssss;
{92} whіle (tyy);
{93} p[і]=j;
{94} gotoxy(1,3);
{95} cprіntf("Введите группу %s-го студента >>",ss);
{96} gotoxy(36,3);
{97} scanf("%s",a[і].gr);
{98} cprіntf("Введите дату рождения %s-го
{99} gotoxy(50,4);
{100} scanf("%s",a[і].dr);
{101} cprіntf("Введите название университета %s-го студента >>",
{102} gotoxy(47,5);
{103} scanf("%s",a[і].unіver);
{104} cprіntf("Введите адрес %s-го студента >>",ss);
{105} gotoxy(35,6);
{106} scanf("%s",a[і].adres);
{107} cprіntf("Введите номер телефона %s-го студента
{108} gotoxy(38,7);
{109} scanf("%s",a[і].tel);
{110} for(tttt=1;tttt