Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 1
Регистрация: 14.12.2011
Сообщений: 4
1

написАть программу обработки базы данных, с информацией о студентах

16.12.2011, 18:23. Просмотров 2229. Ответов 1
Метки нет (Все метки)

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

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

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

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

Добавлено через 17 часов 10 минут
забыл написАть:
данные сохранять в типизированых файлах,для организации интерфейса в виде меню использовать модульCRT
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2011, 18:23
Ответы с готовыми решениями:

Написать программу Формирования базы данных
1)Написать программу Формирования базы данных , которая содержит сведения за месяц о пропусках...

Написать программу создания базы данных
КАК написать программу создания базы данных структура которой название топлива день, месяц, год...

Составить программу для ввода данных о студентах, проживающих в общежитии, и записи этих данных в файл
Работа с комбинированными данными: Необходимо составить программу для ввода данных о студентах,...

Записи. Ввод с клавиатуры массива записей со сведениями о студентах. Вывод данных о студентах двоечниках. Сортировка по алфавиту
Напишите программу :gsorry: :-* Описать запись с именем STUDENT, содержащую следующие поля:...

1
0 / 0 / 1
Регистрация: 14.12.2011
Сообщений: 4
21.12.2011, 20:31  [ТС] 2
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2011, 20:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать программу, которая создает файл записей со следующей информацией о жителях некоторого города
Написать программу, которая создает файл записей со следующей информацией о жителях некоторого...

Создать систему обработки данных однотабличной базы
всем здруствуйте помогите с некоторыми аспектами я уже разобрался.Создать систему обработки данных...

Доработать систему обработки данных однотабличной базы
Помогите с дописать модуль Unit DataBase; Interface const MAXNUMBER=11; MAXNAME=25; ...

Составить программу, которая организует ввод данных о студентах
Составить программу, которая организует ввод данных о студентах: ФИО, адре проживания, пол,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.