модулі та робота з файлами в Паскаль

Робота з файлами.

Теоретичні відомості

Файл – це сукупність даних однакового типу. Таке визначення

збігається з визначенням масиву, але, на відміну від останнього, файл

зберігають на диску, кількість даних у файлі при його описуванні не

вказується, елементи файла не мають індексів, що ускоаднює роботу з ними.

Опис файлового типу має вигляд:

Type <ім'я типу> = File of <тип компонент>;

Процедури і функції для роботи з файлами:

Assign – зв'язує деякий зовнішній файл на диску з файловою змінною.

Reset – відкриває уже раніше створений файл данних на диску, ім'я якого

було перед цим пов'язане процедурою Assign.

Rewrite – створює новий файл і відкриває його. Якщо файл вже існує вміст

знищується, а сам файл відкривається знову.

Close – закриває файл, який зв'язаний з файловою змінною.

Eof – набуває значення true, якщо досягнуто кінець файла, інакше набуває

значення false.

IOResult – використовується для пошуку помилок, які виникають при роботі

з файлами.

Індивідуальне завдання

Задача 1.

Написати програму контролю знань студентів з літератури.

Оформити файл відповідей та файл питань.

Задача 2.

Написати програму що виводить на екран студентів, що набрали прохідний бал

не нижче 8.

Задача 1:

program zavd1;

uses

crt;

const

qfile='quest.txt';

afile='ansver.txt';

var

f1,f2:text;

i,k:integer;

name,ansv:string;

begin

clrscr;

assign(f1,qfile);

assign(f2,afile);

rewrite(f2);

reset(f1);

write('Введіть своє ім`я, групу :');

readln(name);

writeln(f2,name);

while not eof(f1) do begin

readln(f1,name);

writeln(name);

write('Ваша відповідь :');

readln(name);

writeln(f2,name);

readln(f1,ansv);

if ansv=name then k:=k+1;

i:=i+1;

end;

writeln(f2,'Всього питань :');

writeln(f2,i);

writeln(f2,'Правильних питань :');

writeln(f2,k);

close(f1);

close(f2);

end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

Вміст файлу протоколу:

Бригіда e02

толстой

поет

да

Всього питань :

3

Правильних питань :

2

Задача 2:

program typefiles;

uses

crt;

const

kolocenok=2;

type

abiturient=record

fio:string;

marks:array [1..kolocenok] of integer;

end;

var

ser,i,j,k:integer;

abit: array [1..40] of abiturient;

temp: abiturient;

begin

clrscr;

write('Введiть кiлькiсть абiтурiентiв: ');

readln(k);

for i:=1 to k do begin

writeln('абiтурiент ',i,':');

write('im`я: ');

readln(temp.fio);

writeln('Введiть оцiнки: ');

for j:=1 to kolocenok do readln(temp.marks[j]);

abit[i]:=temp;

end;

clrscr;

for i:=1 to k do begin

writeln('абiтурiент ',i,':');

write('im`я: ',abit[i].fio);

write(' мае оцiнки: ');

ser:=0;

for j:=1 to kolocenok do begin

write(abit[i].marks[j],', ');

ser:=ser+abit[i].marks[j];

end;

writeln;

if ser>8 then writeln(' З А Ч И С Л Е Н И Й ! ');

writeln;

end;

end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

абiтурiент 1:

im`я: Саша мае оцiнки: 4, 5,

З А Ч И С Л Е Н И Й !

абiтурiент 2:

im`я: Петро мае оцiнки: 3, 4,

абiтурiент 3:

im`я: Олег мае оцiнки: 4, 2,

абiтурiент 4:

im`я: Микола мае оцiнки: 2, 2,

Висновок:поглибив знання, вміння та навички розробки з використанням

текстових та типизованих файлів, закріпив свої знання в області записів та

типизованих файлів.