Создание файла (программа, с выполнением доп.функций)

@Panda_Boom · Регистрация: 10.01.2014

Создать файл, содержащий сведения о сдаче студентами сессии. Каждая запись содержит поля: номер
группы, фамилия, имя, отчество студента, оценки по пяти экзаменам и пяти зачетам (зачет, незачет). На
экран и в отдельный файл вывести: фамилии неуспевающих студентов с указанием номера группы и
количества задолженностей; средний балл, полученный каждым студентом группы Х и всей группой в
целом. Номер группы вводится с клавиатуры.
Программа должна выполнять следующие дополнительные функции:
1.создание новой базы данных; открытие базы из файла;
2.сохранение базы в файл; добавление записей; удаление записей; поиск записей по одному из полей; сортировку по одному
из полей методом прямыми вставками с
барьерами; вывод базы данных на экран; выход из программы. Для
реализации основных действий алгоритма использовать подпрограммы. Для обработки записей
реализовать динамическую структуру данных стек.
возможно это вам поможет хоть как то:

Pascal

uses crt;
type baza=record
surname: string[10];
name: string[10];
ocenka: integer;
zachet: char;
 
end;
 
var
 
f:file of baza; friends: array [1..100] of baza;
 
I,k, j, c, n: integer;
S, l:real;
 
 
begin
 
assign(F,'D:\baza.dat');
rewrite(f);
 
 
writeln('Введите количество людей');
readln(n);
for I:=1 to n do
begin
 
writeln ('введите фамилию человека');
readln (friends[i].surname);
writeln ('введите группу человека');
readln (friends[i].name);
write(F,friends[i]);
end;
for j:=1 to 5 do begin
 
writeln ('Введите оценку за экзамен человека');
readln( friends[j].ocenka);
writeln ('Введите зачет или незачет(з или н) человека');
readln(friends[j].zachet);
write(F,friends[j]);
writeln('---------------');
end;
close(f);
writeln;
writeln;
 
writeln('Файл успешно создан');
writeln;
reset(F);
 
while not Eof(F) do begin
 
 
for I:=1 to n do begin
read(f,friends[i]);
 
read(f,friends[j]); end;
 
 
 
for I:=1 to n do
for j:=1 to n do
 
if (( friends[j].ocenka)<26) or ((friends[j].zachet)='н') then Writeln('Фамилия и Имя не сдавшего экзамен или зачет,человека:',' ',friends[i].surname,' ',friends[i].name); end;
 
 
writeln;
{
k:=0;
c:=0;
 
for i:=1 to n do
 
if ((friends[i].ocenka)<26) or((friends[i].zachet)='н')then
 
begin inc(c);inc(k);
writeln('Количество не сдавших экзамен:', k) ;
writeln('Количество не сдавших зачет:', c);
end; }
Close(F);
 
end.

Опции темы