Программирование 9 класс 2017-2018 учебный год

Дополнительные материалы и ссылки

Урок 23    21.04.2018

 

 

Тема урока: Типизированные файлы

1.    Программа 1  читает двоичный файл (исполняемый файл программы)  по байтам и выводит прочитанные байты и, символы, ASCII-коды которых соответствуют этим байтам,  на экран

 

 

Рисунок 1 Исходный текст программы 1

 

Рисунок 2 Результат работы программы 1

 

 

1.    Программа 2,читает из двоичного файла байт под номером 2 (счет идет с нуля) и выводит на экран прочитанный байт, символ, ASCII-код которого равен этому байту и положение указателя чтения.

Использует процедуру

Seek(<файловая переменная>,<позиция>)

И функцию

FilePos(<файловая переменная>)

 

 

File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help

┌──────── F:\projects\1436\..\Программирование9\ПРограммы\18042102.pas ──1─────┐

│╔═[■]════ F:\projects\1436..Программирование9\ПРограммы\18042103.pas ═══2═[↑]═╗

│║program p18042101;                                                          

│║var                                                                          

│║        b:byte;                                                             

│║        f:file of byte;                                                     

│║        i:integer;                                                           

│║        fn:string;                                                          

│║begin                                                                       

│║        Readln(fn);                                                          

│║        Assign(f,fn);                                                       

│║        Reset(f);                                                           

│║        Seek(f,2);                                                          

│║        Read(f,b);                                                          

│║        Writeln(i,' ',b,' ',chr(b),' ',FilePos(f));                         

│║end.                                                                        

│║                                                                             

│║                                                                            

┌║                                                                            

│║                                                                             

│║                                                                            

│║                                                                            

│╚══════ 11:17 ◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘

 

 

Рисунок 3 Исходный текст программы 2

 

 

 

Рисунок 4 Результат работы программы 2

 

 

3. Программа 3, записывает в файл целые числа от 1 до 10

 

File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help

┌──────── F:\projects\1436\..\Программирование9\ПРограммы\18042102.pas ──1─────┐

│┌─[■]──── F:\projects\1436..Программирование9\ПРограммы\18042104.pas ───2─[]─┐

││program p18042101;                                                          

││var                                                                          

││        b:byte;                                                             

││        f:file of integer;                                                  

││        i:integer;                                                           

││        fn:string;                                                          

││begin                                                                       

││        Readln(fn);                                                          

││        Assign(f,fn);                                                       

││        Rewrite(f);                                                         

││        for i:=1 to 10 do                                                    

││                Write(f,i);                                                 

││        Close(f);                                                           

││end.                                                                         

││                                                                            

││                                                                            

┌│                                                                            

││                                                                            

││                                                                            

││                                                                             ­

│└────── 14:1 ─■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒┘

 F1 Help  Cursor Move  Shift+Cursor Size  ─┘ Done  Esc Cancel

 

Рисунок 5 Исходный текст программы 3

 

 

 

Рисунок 6 Содержание созданного файла

 

 

4. Программа 4, читает из файла целые числа от 1 до 10 и выводит их на экран

 

 

 

File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help

┌──────── F:\projects\1436\..\Программирование9\ПРограммы\18042102.pas ──1─────┐

│╔═[■]════ F:\projects\1436..Программирование9\ПРограммы\18042104.pas ═══2═[]═╗

│║program p18042104;                                                          

│║var                                                                         

│║        b:integer;                                                          

│║        f:file of integer;                                                  

│║        i:integer;                                                          

│║        fn:string;                                                          

│║begin                                                                        

│║        Readln(fn);                                                         

│║        Assign(f,fn);                                                       

│║        Reset(f);                                                            

│║        for i:=1 to 10 do                                                   

│║                begin                                                       

│║                        Read(f,b);                                           

│║                        Writeln(b);                                         

│║                end;                                                        

│║        Close(f);                                                            

║end.                                                                        

│║                                                                            

│║                                                                             

│║                                                                             ­

│╚══════ 15:21 ■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒┘

 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local

Menu

 

Рисунок 7 Исходный текст программы 4

 

 

Рисунок 8 Результат работы программы 4

 

 

Running "f:\projects\1436\2017-2018\Программирование9\ПРограммы\18042101.exe "

18042101.txt

1 1

2 0

3 2 ☻

4 0

5 3 ♥

6 0

7 4 ♦

8 0

9 5 ♣

10 0

11 6 ♠

12 0

13 7

14 0

15 8

 

Рисунок 9 Результат результат чтения файла целых чисел побайтово программой 1