@wladimier

написАть программу обработки базы данных, с информацией о студентах (считывается из файла):
-фамилия
-имя
-группа
-номер зачётки
-количество выполненых лабораторных работ
-рейтинг
Программа должна выполнять:
-занесение информации о студенте из файла(!)
-удаление информации о студенте из файла(!)
-вывод информации из файла на экран
-сортировка файла по указаному пользователем полю(группа, фамилия, рейтинг...)
-поиск фамилий студентов указаной пользователем группы, которые выполнили заданое количество лабораторных работ

(если возможно, с процедурами)

Добавлено через 14 часов 56 минут
если у кого-то есть хоть какие-то идеи насчёт хоть какой-то функции программы, напишите хоть что-то пожалуйста!

Добавлено через 12 часов 21 минуту
кто-то знает, как записать/дописать инфоормацию в файл?

Добавлено через 17 часов 10 минут
забыл написАть:
данные сохранять в типизированых файлах,для организации интерфейса в виде меню использовать модульCRT

0

@wladimier

uses crt;

type
vid=array [1..4,1..4] of byte;
fayl=record
nom:integer;
name:string;
end;

var
ch:char;
r:vid;
base,base1: file of fayl;
{Џа®жҐ¤га* ўЁўҐ¤Ґ**п i*д®а¬*жiх}
Procedure Info;
begin
writeln('F1 - ѓҐ*Ґагў*вЁ ўi¤*®иҐ**п');
writeln('F2 - ‚ЁўҐбвЁ ўi¤*®иҐ**п ** ҐЄа**');
writeln('F3 - ‡*ЇЁб*вЁ ўi¤*®иҐ**п г д*©«');
writeln('F4 - ЏҐаҐЈ«п*гвЁ ¤**i § д*©«г § ўi¤*®иҐ**п¬Ё');
writeln('F5 - ‚Ё§**зЁвЁ зЁ у ўi¤*®иҐ**п **вЁва**§ЁвЁў*Ё¬');
writeln('F6 - ЏҐаҐЈ«п*гвЁ ¤**i § д*©«г § १г«мв*в*¬Ё');
writeln('F10 - ‚Ёеi¤');
writeln;
end;
{Џа®жҐ¤га* ЈҐ*Ґагў***п ў?¤*®иҐ**п}
Procedure Gen(var r:vid);
var i,j:byte;
begin
clrscr;
info;
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
r[i,j]:=random(2);
writeln('‚i¤*®иҐ**п §ЈҐ*Ґа®ў**Ґ! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
end;
{Џа®жҐ¤га* ўЁўҐ¤Ґ**п ў?¤*®иҐ**п}
Procedure Vyved(r:vid);
var i,j:byte;
begin
clrscr;
info;
writeln('R | 1 2 3 4');
writeln('________________________');
for i:=1 to 4 do
begin
write(i,' |');
for j:=1 to 4 do
write(r[i,j]:5);
writeln;
writeln('________________________');
end;
writeln('‚i¤*®иҐ**п ўЁўҐ¤Ґ*®! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
end;
{Џа®жҐ¤га* §*ЇЁбг г д*©«}
Procedure Zapys(r:vid);
var i:integer;
f,f1:string;
tx: text;
fl: fayl;
begin
clrscr;
info;
assign(base,'c:\laby\pas\14\base.dat');
reset(base);
i:=filesize(base);
seek(base,i);
str(i,f1);
fl.nom:=i;
fl.name:='vid'+f1+'.txt';
write(base,fl);
close(base);
f:='c:\laby\pas\14\vid'+f1+'.txt';
assign(tx,f);
rewrite(tx);
for i:=1 to 4 do begin
write(tx,r[i,1],' ',r[i,2],' ',r[i,3],' ',r[i,4]);
writeln(tx); end;
close(tx);
writeln('‚i¤*®иҐ**п §*ЇЁб**®! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
end;
{Џа®жҐ¤га* ЇҐаҐЈ«п¤г д*©«iў § ўi¤*®иҐ**п¬Ё}
Procedure Pereg1;
var fl:fayl;
i,n1,n2,n3,n4,a:integer;
f,f1:string;
tx: text;
begin
clrscr;
info;
assign(base,'c:\laby\pas\14\base.dat');
reset(base);
writeln('‘ЇЁб®Є д*©«iў:');
while not EOF(base) do
begin
read(base,fl);
writeln(fl.nom,' - ',fl.name);
end;
write('‚ўҐ¤iвм *®¬Ґа д*©«* пЄЁ© Ў*¦*у⥠ЇҐаҐЈ«п*гвЁ: ');
readln(a);
seek(base,0);
while not EOF(base) do
begin
read(base,fl);
if fl.nom=a
then
begin
str(a,f1);
f:='c:\laby\pas\14\vid'+f1+'.txt';
assign(tx,f);
reset(tx);
writeln('R і 1 2 3 4');
writeln('________________________');
for i:=1 to 4 do
begin
write(i,' і');
read(tx,n1,n2,n3,n4);
write(n1:5,n2:5,n3:5,n4:5);

writeln;
writeln('________________________');
end;
close(tx)
end;
end;
close(base);
writeln('‚i¤*®иҐ**п ўЁўҐ¤Ґ*®! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
end;
{Џа®жҐ¤га* ЇҐаҐўiаЄЁ ** **вЁва**§ЁвЁў*iбвм}
Procedure Perevir;
var fl: fayl;
a,i,j,b,x1,x2,x3,c:integer;
r:vid;
f,f1,f2:string;
tx:text;
begin
clrscr;
info;
assign(base,'c:\laby\pas\14\base.dat');
reset(base);
writeln('‘ЇЁб®Є д*©«iў:');
while not EOF(base) do
begin
read(base,fl);
writeln(fl.nom,' - ',fl.name);
end;
write('‚ўҐ¤iвм *®¬Ґа д*©«* пЄЁ© Ў*¦*у⥠ЇҐаҐўiаЁвЁ ** **вЁва**§ЁвЁў*iбвм: ');
readln(a);
seek(base,0);
while not EOF(base) do
begin
read(base,fl);
if fl.nom=a
then
begin
str(a,f1);
f:='c:\laby\pas\14\vid'+f1+'.txt';
assign(tx,f);
reset(tx);
for i:=1 to 4 do
for j:=1 to 4 do
read(tx,r[i,j]);
close(tx);
{ЏҐаҐў?аЄ* ** **вЁва**§ЁвЁў*?бвм}
for i:=1 to 4 do
for j:=1 to 4 do
begin
x1:=i;
x2:=j;
if r[x1,x2]=1
then
for b:=1 to 4 do
begin
x3:=b;
if r[x2,x3]=1
then
if r[x1,x3]=1
then
begin
write('‚ўҐ¤iвм **§ўг д*©«г ў пЄЁ© §*ЇЁб*⨠१г«мв*в: ');
readln(f2);
assign(base,'c:\laby\pas\14\base1.dat');
reset(base);
c:=filesize(base);
seek(base,c);
fl.nom:=c;
fl.name:=f2;
write(base,fl);
close(base);
f:='c:\laby\pas\14\'+f2;
assign(tx,f);
rewrite(tx);
write(tx,'‚i¤*®иҐ**п § д*©«г *Ґ **вЁва**§ЁвЁў*Ґ');
close(tx);
writeln('‚i¤*®иҐ**п §*ЇЁб**®! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
exit;
end;
end;
end;
end;
end;
write('‚ўҐ¤iвм **§ўг д*©«г ў пЄЁ© §*ЇЁб*⨠१г«мв*в: ');
readln(f2);
assign(base,'c:\laby\pas\14\base1.dat');
reset(base);
c:=filesize(base);
seek(base,c);
fl.nom:=c;
fl.name:=f2;
write(base,fl);
close(base);
f:='c:\laby\pas\14\'+f2;
assign(tx,f);
rewrite(tx);
write(tx,'‚i¤*®иҐ**п **вЁва**§ЁвЁў*Ґ');
close(tx);
writeln('‚i¤*®иҐ**п §*ЇЁб**®! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
end;
{Џа®жҐ¤га* ЇҐаҐЈ«п¤г १г«мв*вi}
Procedure Pereg2;
var fl:fayl;
i,n1,n2,n3,n4,a:integer;
f,f1:string;
tx: text;
begin
clrscr;
info;
assign(base,'c:\laby\pas\14\base1.dat');
reset(base);
writeln('‘ЇЁб®Є д*©«iў:');
while not EOF(base) do
begin
read(base,fl);
writeln(fl.nom,' - ',fl.name);
end;
write('‚ўҐ¤iвм *®¬Ґа д*©«* пЄЁ© Ў*¦*у⥠ЇҐаҐЈ«п*гвЁ: ');
readln(a);
writeln;
seek(base,0);
while not EOF(base) do
begin
read(base,fl);
if fl.nom=a
then
begin
str(a,f1);
f:='c:\laby\pas\14\'+fl.name;
assign(tx,f);
reset(tx);
read(tx,f);
writeln('@@@@ ',f,' @@@@');
close(tx)
end;
end;
close(base);
writeln;
writeln('ђҐ§г«мв*в ўЁўҐ¤Ґ*®! ‚ЁЎҐаiвм **бвгЇ*г ®ЇҐа*жiо!');
end;
{Ћб*®ў** Їа®Ја*¬*}
begin
clrscr;
info;
repeat
ch := readkey;
if ch=#0
then
begin
ch:=readkey;
case ch of
#59: Gen(r);
#60: Vyved(r);
#61: Zapys(r);
#62: Pereg1;
#63: Perevir;
#64: Pereg2;
end;
end;
until ch=#68;
end.


(через freepascal)

0