Помогите решить задачу...я не шарю в паскале, а ответ надо позарез... за задачу отправлю 15 грн. на любой мобильный оператор...
Создать файл, с N записями (N> 5). Программа должна выполнять следующие действия: • дополнять существующий файл новыми данными • осуществлять просмотр данных файла. • осуществить просмотр данных файла, которые отвечают критериям отбора из представленной ниже таблицы 2
таблица 2 Описание полей записи: Номер записи, фамилия студента, название предмета, дата оценка. Критерий отбора: вывести информацию о студентах, получивших оценку ... по предмету ...
Вот пример. Пример 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.
Сообщение отредактировал _kek$ik_ - Четверг, 03.03.2011, 05:24
