Зертханалық жұмыс № 7

Жұмыстың тақырыбы: Мәтіндік файлдармен жұмыс

Жұмыс мақсаты: Delphi ортасында мәтіндік файлдармен жұмыс орындау

Орындалу уақыты: 4 сағат.

1 Зертханалық жұмыстың жүру тәртібі:

1.1 Зертхана жұмысының тақырыбына сәйкес теориялық материалдарды меңгеру

1.2 Төменде келтірілген бақылау сұрақтарына жауап беру қажет:

1. Object Pascal деректер файлының неше типін қолдайды?

2. Бір ізді, ретті файлдарды құрастыру әдістері.

3. Бақарушы символдар деген не?

4. Файл нұсқаушысы деген не?

5. MyData.txt файлымен келесі әрекеттерді орындауға Object Pascal кодын жаз:

a) енгізу режимінде файлды ашу;

б) шығару режимінде ескі деректерді өшіріп файлды ашу;

с) шығару режимінде ескі деректерді өшірмей файлды ашу;

6. Келесі фрагменттердің арасындағы айырмашылықты түсіндір:

а) Read(inFile, intVar1); Read(inFile, intVar2); және

б) Read(inFile, intVar1, intVar2);

7. CloseFile() үрдісі қандай әрекет орындайды?

8. Eof()және Eoln() операцияларының әрекеттерін түсіндір.

9. Read() және Readln() үрдістерін, олардың айырмашылықтарын түсіндір?

10. AssignFile() үрдісі қандай әрекет орындайды?

11. Append() үрдісі қандай әрекет орындайды?

Тапсырма

2. Мысалдар

Мысал 2.1. d дискісінде орналасқан exam1.txt-мәтіндік файлды оқып, оны TtfrmTextIO формадағы Memo1 компонентіне шығарып жаңадан names.txt файлына exam1.txt файлындағы деректерден фамилиялар тізімін жазу керек.

Бағдарламадан үзінді:

...

procedure TTfrmTextIO.Button1Click(Sender: TObject);

var

infile:TextFile; /түбіргі каталогтағы мәтіндік файл

outFile:textfile; /бағдарлама нәтижесінде шығатын мәтіндік файл

lastname:String[10];

examscore:integer; /

begin

assignFile(inFile, 'd:\exam1.txt'); /түбіргі каталогтағы мәтіндік файлмен байланысу

assignfile(outfile, 'd:\names.txt'); /нәтижедегі файлмен байланыстыру

Reset(inFile); /тіүбіргі каталогатағы файлды оқу үшін аші

rewrite(outfile); /жаңа файл жасап оны ашу

Writeln(outFile, 'Фамилия');

Writeln(outFile, '-------'); /

Memo1.Clear;

Memo1.Lines.Add('студент экзамен');

Memo1.Lines.Add('------- -------');

while not (eof(infile)) do begin

readln(inFile, lastname, examscore);

writeln(outFile, Trim(lastname));

memo1.Lines.Add(lastName+intToStr(examScore));

end;

memo1.Lines.Add('');

memo1.Lines.Add('создан файл d:\names.txt');

memo1.Lines.Add('программа завершена');

closefile(inFile); /түбіргі каталогтағы файлды жабу

closefile(outFile); /нәтижеде пайда болған файлды жабу

end; end.

Әдебиеттер Мазмұны

Кіріспе 3

Зертханалық жұмыс № 1 5

Зертханалық жұмыс № 2 8

Зертханалық жұмыс № 3 11

1. Есептің шартына сәйкес блок-схемасын құрастырып, енгізілуге тиісті деректердің анықталу аймағын ескеріп, бағдарлама құрастыр. 13

Зертханалық жұмыс № 4 18

№ вар. 19

1 19

2 19

3 19

4 19

5 19

6 19

7 19

8 19

9 19

10 19

Қайталау операторының түрі 19

a 19

b 19

a 19

b 19

a 19

b 19

b 19

a 19

a 19

b 19

№ вар. 19

11 19

12 19

13 19

14 19

15 19

16 19

17 19

18 19

19 19

20 19

Қайталау операторының түрі 19

a 19

b 19

a 19

b 19

a 19

b 19

b 19

a 19

a 19

b 19

Зертханалық жұмыс № 5 23

1.2Төменде келтірілген бақылау сұрақтарына жауап беру қажет: 23

1. Массив деген не? 23

2. Массив елементтерін сипаттау үшін қандай операторлар қолданылады?. 23

3. Бірөлшемді массив деген не? 23

4. Массив элементтерін өңдеуге қолданылған қайталау операторы және оның ерекшелігі. 23

5. Массив элементтерін енгізу ерекшеліктері және амалдары. 23

6. Массив элементтерін шығару ерекшеліктері және амалдары. 23

7. Қабатталған цикл деген не? 23

8. Ішкі цикл деген не? 23

9. Параметрлі циклдің дұрыс жазылған құрылымын анықта: 23

А тобының есебі: кестеде келтірілген есептік формуланы ескеріп, төменде келтірілген тапсырмаларды ретіне сәйкес (кесте-8) орында: 24

1. Берілген өрнекке байланысты сандық тізбектің элементтерінің санын, шамасын анықта; 24

2. Сандық тізбектің ең кіші элементін және оның реттік нөмірін анықта; 24

3. Сандық тізбектің ең үлкен элементін және оның реттік нөмірін анықта; 24

4. Сандық тізбектің барлық элементтерінің қосындысын есепте; 24

5. Сандық тізбектің барлық көбейтіндісін қосындысын есепте; 24

6. Сандық тізбектің элементтерін кему ретімен орналастыр; 24

7. Сандық тізбектің элементтерін өсу ретімен орналастыр. 24

А тобы Кесте 8 24

Вариант 24

Есептің орындалу реті 24

Математикалық өрнек 24

Берілгені 24

1 24

1,7,4,2,3,5,6 24

24

x₁=0,53; x₂=0,69; 24

i=3,4,…,30 24

2 24

1,2,3,4,5,6,7 24

24

₁=9,385; 24

₂=5,03; 24

k=3,4,…,25 24

3 24

1,7,6,2,3,4,5 24

24

₁=2,75; 24

₂=3,01; 24

₃=1,56; 24

j=4,5,…,25 24

4 24

1,3,5,6,4,7,2 24

24

z₁=0,05; 24

z₂=0,17; 24

m=3,4,…,25 24

5 24

1,5,3,2,7,4,6 24

24

f_i=3,33; 24

_f2=0,56; 24

i=3,4,…,15 24

6 24

1,3,5,7,2,4,6 24

24

c₁=1,17; 24

c₂=-0,85; 24

n=3,4,…,15 24

7 24

1,3,5,6,2,4,7 24

24

d₁=0,35; 24

i=1,2,…,15 24

8 25

1,2,6,4,3,5,7 25

25

q₁=-0,75; 25

q₂=0,05; 25

k=2,3,…,15 25

9 25

1,4,7,2,3,4,5 25

25

s₁=1,05; 25

s₂=1,4; 25

i=3,4,…,15 25

10 25

1,7,2,5,3,4,6 25

25

x₁=0,20; 25

x₂=0,97; 25

i=3,4,…,15 25

11 25

1,6,2,5,4,7,3 25

25

z₁=1,35; 25

z₂=2,56; 25

k=3,4,5,…,15 25

12 25

1,7,2,3,4,5,6 25

25

s₁=1,07; 25

s₂=1,6; 25

i=3,4,…,15 25

13 25

1,4,6,2,3,5,7 25

25

x₁=3,02; 25

x₂=3,42; 25

i=3,4,5,…,15 25

14 25

1,7,6,4,3,2,5 25

25

y₁=0,21; 25

y₂=0,71; 25

i=3,4,5,…,15 25

15 25

1,4,5,7,3,6,2 25

25

x₁=2,15; 25

x₂=3,75; 25

n=2,3,…,15 25

16 25

1,7,4,6,2,3,5 25

25

x₁=1,05; 25

x₂=1,75; 25

k=3,4,5,…,14 25

17 25

1,6,3,5,7,4,2 25

25

q₁=1,08; 25

q₂=2,05; 25

k=2,3,4,…,15 25

18 25

1,7,5,6,4,2,3 25

25

b₁=2,85; 25

b₂=3,25; 25

j=3,4,5,…,15 25

19 25

1,6,3,5,7,2,4 25

25

z₁ =2,17; 25

z₂=3,02; 25

z₃=1,58; 25

k=4,5,…,15 25

20 25

1,7,2,3,5,4,6 25

25

m₁=1,75; 25

m₂=1,4; 25

k=2,3,…,12 25

В тобы Кесте 9 25

Зертханалық жұмыс № 6 37

Зертханалық жұмыс № 7 41

Әдебиеттер 43

Мазмұны 43