Паскаль програмдау тіліндегі файлдармен жұмыс
; 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нашыңыз;
Add brekpoint… әрекетiн тандаңыз;
Enter пернесiн басыңыз.
Экранға Add brekpoint… (тоқтату нүктесiн қосу) сұхбат терезесi шығады (2.8-сурет).”Line number” (жол нөмері)өрісінде, курсор тұрған жолдвң нөмірін көрсетіп тұрады, ол Exi процедурасын сипаттайтын жолдың басын көрсетеді.
“Ok” батырмасын (сұхбат терезесіндегі) немесе “Enter” пернесін басыңыз.
Редактортерезесіндегі бұл жолбасқа түспен бөлінеді. Енді Ctrl+F9 пернелерін басу арқылы программаны іске қосыңыз. Пернетақтадан бастапқы мәндерді енгізіңіз. Мәліметтерді енгізген соң программа жұмысын тоқтатады және компьютердің экранында қайтадан редактор терезесі шығады. Яғни, біз өзіміздің әрекеттеріміз арқылы программа жұмысын көрсетілген жолда тоқтатуға нұсқау бердік. Жұмысты қайтадан жалғастырву үшін “Ctrl+F9” пернелерін басуымыз керек немесе F7 пернесін пайдаланған тиімді және Exi процедурасының қалай жұмыс істейтінін бақылап көре аламыз.
Бұл әрекеттер, программаның жеке бөліктерімен жұмыс жасағанда (жүріп өткенде) тиімді, себебі үлкен өлшемді программаларды толығымен жүріп өту жалықтырады және керек емес. Олай болса, программалаудың құрылымдылық тәсілін (1.5 тақырып) қолдай отырып бізде бары:
Жеке модульдермен “жұмыс істеу” (программалау) мүмкіндігі.
Бір деңгейдегі “ойша” машиналардың тәуелсіздігі, программаның жекеленген бөліктерін, программашның басқа бөліктеріне әсер етпей тәуелсіз жетілдіруге мүмкіндік береді. Э. Дейкстр атап өткендей: “... программаны жетілдіру, бір түрдегі (ойша) машиналардың басқа қолайлы машиналарға ауысуынан туындайды”.
Құрылымдылық программаның жеке бөліктерімен жұмыс жасау.
Процедура мәтінімен жүріп өткенде құрама операторлардың жұмысына көңіл бөліңіз.
begin
{массив элементтерiн бос орын аркылы жолга жазу}
forj:=1 to BaganSany do
write (FileOut, San[i,j],``);
{j-цикл аякталган сон, курсорды жана жолга кошiру}
writeln(FileOut);
end;
Тоқтату нүктесін алып тастау үшін, келесі әрекеттерді орындаймыз:
Негізгі менюді беслсенділеңіз;
Негізгі менюден Debug ішкі менюін ашыңыз;
Breakpoints пернесін басыңыз.
Enter пернесін басыңыз.
Экранда программаға қойылған барлық тоқтату нүктелерінің тізімі көһрсетілген, Breakpoints… (тоқтату нүктелері) сұхбат терезесі (2.9-сурет)шығады.
Қажетті элементті белгілеңіз;
“Delete” (сұхбат терезесінен) батырмасын немесе “D” (пернетақтадан) пернесін басыңыз.
Белгіленген тоқтату нүктесі тізімнен алынып тасталады. Егер сіз барлық тоқтату нүктесін алып тастағыңыз келсе-- “Clear all” батырмасын басу керек.
Тапсырма
Егер exi ішкі программасындағы write және writeln процедураларындағы бірінші параметр FileOut көрсетілмесеSan массиві қайда жазылған болар еді?
Егер осы параметр тек writeln процедурасында көрсетілмеген болса не өзгереді?
4. Мәтiндiк файлдан мәлiметтердi оқу
Өткен тақырыптарда сіздер, мәліметтерді мәтіндік файлға жазуды үйреніңіздер. Енді оларды қайтадан файлдан қалай оқуға болатынын қарастырамыз.
Ол үшін `mayFile1/in` файлын пайдаланамыз. Мәліметтерді файлға жазу кезіндегідей, біздің файлмызды байланыстыратын айнымалыға атау беруіміз керек. Айталық, ол атауFileln болсын, содан кейін біз оны мәтіндік файл ретінде сипаттауымыз керек. Бұл айнымалыны біз енгізу процедурасында пайдаланатын болғандықтан, сол процедураның жергілікті айнымалысы ретінде сипаттаймыз.
var
Filelnt:text;
Одан кейін біз программада, “мәтіндік типті ”Fileln айнымалысы, біздің
`mayFile1.in` атауымен берілген нақтылы файлмызды белгілейтіндігін көрсетуіміз керек. Ол үшін assing(NameVar,NameFile)-процедурасын қолданады.
Енді файлдан мәліметтерді оқу үшін, берілген файлды ашуымыз керек. Ол үшін,reset(NameVar)—процедурасында қолданады, мұндағы NameVar-сіздің файлды белгілеуге берген айнымалыңыздың атауы, біздің жағдайымызда, ол NameVar-Fileln. Reset(NameVar)-процедурасы, мәліметтерді оқуға файлды ашады және курсорды файлдың басына орналастырадв. Егер ондай жоқ болса, қателік туралы хабарлама береді. Енді мәліметтерді файлдан оқуға барлығы дайын болды. Ол үшін өзімізге бұрынан таныс Read() және Readln() процедураларын пайдаланамыз. Мәл
| |  скачать работу |
Паскаль програмдау тіліндегі файлдармен жұмыс | 
