Помогите решить задачу...я не шарю в паскале, а ответ надо позарез...
Создать файл, с N записями (N> 5). Программа должна выполнять следующие действия: • дополнять существующий файл новыми данными • осуществлять просмотр данных файла. • осуществить просмотр данных файла, которые отвечают критериям отбора из представленной ниже таблицы 2
таблицы 2 Описание полей записи: Номер записи, фамилия студента, название предмета, дата оценка. Критерий отбора: вывести информацию о студентах, получивших оценку ... по предмету ...
Добавлено (27.02.11, 13:59) --------------------------------------------- Вот пример. Пример 2. Создать файл записей, который содержит информацию об автомобилях: модель, цвет, год выпуска, фамилия владельца. Вывести содержимое файла на экран. Вывести на экран информацию об авто, год выпуска которых не превышает введенного. Программа решения данной задачи.
type avto=record model:string; color:string; rik:integer; vlasnuk:string; end; var f:file of avto; a1:avto; i,n:integer; nf:string; begin writeln('Введіть кількість авто'); readln(n); writeln('Введіть назву файла'); readln(nf); assign(f,nf); rewrite(f); for i:=1 to n do begin writeln('Введіть модель авто, колір, рік випуску, прізвище власника'); readln(a1.model); readln(a1.color); readln(a1.rik); readln(a1.vlasnuk); write(f,a1); end; close(f); writeln(' Модель авто Колір Рік Власник'); writeln('---------------------------------------------------------'); reset(f); for i:=1 to n do begin read(f,a1); writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20); end; close(f); writeln('Vvedite rik'); readln(k); reset(f); writeln(' model avto colir rik vlasnuk'); writeln('--------------------------------------------------'); while not eof(f) do begin read(f,a1); if a1.rik<k then writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20); end; readln end.
