Основы программирования. Файлы. Рекурсия - 11 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

13
read(f,x);
x:=x*x;
write(f1,x);
end;
Close(f1);
Close(f);
end;
Пример 3. На диске хранится файл 'group.dat', содержащий записи о студен-
тах. Каждая запись состоит из следующих полей: имя студента (типа
string[30]), курс и группа. Требуется найти запись о студенте Иванове и пере-
вести его в 10 группу.
Данный пример иллюстрирует использование типизированных файлов для
программирования простейших баз данных.
Решение.
const name = 'group.dat';
type
Student = record
name: string[30];
course,group: integer;
end;
var
f: file of Student;
s: Student;
begin
Assign(f,name);
Reset(f);
ind:=-1;
for i:=0 to FileSize(f)-1 do // поиск
begin
read(f,s);
if s.name = 'Иванов' then
begin
s.group:=10;
Seek(f,i);
write(f,s);
break;
end;
end;
Close(f);
end.

Страницы