Создать запись студент, с полями : Ф.И.О, возраст. Всё записать в файл 1.txt и перезаписать в файл 2.txt.

Решение 1.

Всё очень просто: сперва описываем переменную типа запись Tstudent, в секции VAR определяем переменную STUDENT доступ к полям получаем с помощью записи типа student.LastName заполняем все данные, и записываем сперва в файл 1.txt, затем в 2.txt.

program stud;

Type

Tstudent = Record

LastName : string; //имя

Nam : string; // фамилия

NameFather : string; // отчество

Year : string; // возраст нет ограничений на данные

End; // можно описать а как число

Var

Student : Tstudent; // переменная куда всё записывается

F : file of Tstudent; // переменная файл

Begin

Write('Name student: '); // заполняем данные о студенте

Readln(student.Nam);

Write('Last Name : ');

REadln(student.LastName);

Write('NameFather :');

Readln(student.NameFather);

Write('Year : ');

Readln(student.year);

assign(f,'1.txt'); // записываем в файл 1.txt

Rewrite(f);

write(f,Student);

close(f);

Assign(f,'2.txt'); // записываем файл 2.txt

Rewrite(f);

Write(f,Student);

close(f);

end.

Скачать решение.

Решение выше выполняется 1 раз, можно добавить в задачу цикл.

program stud;

Type

Tstudent = Record

LastName : string; //имя

Nam : string; // фамилия

NameFather : string; // отчество

Year : string; // возраст нет ограничений на данные

End; // можно описать а как число

Var

Student : Tstudent; // переменная куда всё записывается

F, f1 : file of Tstudent; // переменная файл

y : char;

Begin

assign(f, '1.txt'); //связываем файловую переменную с файлом

assign(f1, '2.txt');

rewrite(f); // открываем оба файла на запись

rewrite(f1);

repeat

Write('Name student: '); // заполняем данные о студенте

Readln(student.Nam);

Write('Last Name : ');

REadln(student.LastName);

Write('NameFather :');

Readln(student.NameFather);

Write('Year : ');

Readln(student.year);

write(f,Student);

Write(f1,Student);

writeln('Закончить? "д", "y" ');

readln(y);

until (y = 'y') or (y = 'д');

close(f); // закрываем файлы

close(f1);

end.

Теперь в задаче можно ввести записи о нескольких студентах. Скачать решение.