Записи для работы с комбинациями разных типов в Pascal, страница 3

end;

Begin

ClrScr;

Assign (f,'phonefile.dat');

Rewrite (f);

With note Do

Begin

name:='AA';

phone:='555';

write (f, note);

name:='BBB';

phone:='444';

Write (f,note);

name:='CC';

phone:='333';

Write (f, note);

name:='DDD';

phone:='2222';

Write (f, note);

name:='EE';

phone:= '111';

Write (f, note);

End;

name:='AA';

phone:='555';

Close (f);

Reset (f);

g:=n mod 4+1;

a.c:=n;

a.d:=10*n;

Writeln (a.c,' ',a.d);

Read (f,note);

For i:=g to 4 Do

With note Do

Begin

Writeln (name , ' ',phone);

Read(f,note);

End;

Write (note.phone);

Writeln (name);

End.

Вывод:

30 30

AA 555

444AA

Задание 2

Создать файл, содержащий следующую информацию о студентах: ФИО, Телефон, Год рождения, Балл по математике

Блок-схема:

Программа:

Type

tpStudent = Record

            FullName:String;

            TelephoneNumber:String;

            BirthYear:Integer;

            Mark:Integer;

End;

Var

DataBase:File of tpStudent;

CurrentStudent : tpStudent;

a, Number : Integer;

Begin

Assign (DataBase, ‘data.txt’);

Rewrite (DataBase);

Write (‘Enter the number of Students:’);

ReadLn (Number);

For a:=1 To Number Do

Begin

            Write (‘Full Name: ’);

            ReadLn (CurrentStudent.FullName);

            Write (‘Telephone Number: ’);

            ReadLn (CurrentStudent.TelephoneNumber);

            Write (‘Birth Year: ’);

            ReadLn (CurrentStudent.BirthYear);

            Write (‘Math Mark: ’);

            ReadLn (CurrentStudent.Mark);

            Write (DataBase, CurrentStudent);

End;

Close (DataBase);

End.