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

База Данных (не запускаеться прога)

14.12.2009, 22:58. Просмотров 379. Ответов 0
Метки нет (Все метки)

Есть программа по работе с БД
Вывод, добавление записи, удаление записи, сортировка и поиск
Но проблема в том, что программа не запускается, и я не могу понять почему
Написано все вроде правильно, но когда запускаю пишет "Ошибка 200. Деление на ноль"
В чем проблема?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses crt;
 
type student = record
     surname, name, group: string[25];
     nomz, labs, rate: integer;
end;
 
students = array [1..10] of student;
 
var mas: students;
    f: file of student;
    i, n: byte;
    chose: char;
{=======Procedura 4teHia Faila=======}
procedure ReadF(var a: students);
var i: byte;
begin
reset(f);
for i:=1 to filesize(f) do
Read(f,a[i]);
close(f);
end;
{=======Procedura 3apici Faila=======}
procedure WriteF(var a: students);
var i: byte;
begin
rewrite(f);
for i:=1 to n do
write(f, a[i]);
close(f);
end;
{=======procedura DobaBJIeHia 3aIIici=======}
procedure Add(var a: students);
var i: byte;
    surname, name, group: string[25];
    nomz, labs, rate: integer;
begin
ReadF(a);
inc(n);
writeln('BBEDITE FAMILIY');
readln(a[n].surname);
writeln('BBEDITE IMA');
readln(a[n].name);
writeln('BBEDITE GPYIIY');
readln(a[n].group);
writeln('BBEDITE Homep 3a4.');
readln(a[n].nomz);
writeln('BBEDITE K-CTBO LAB');
readln(a[n].labs);
writeln('BBEDITE REITING');
readln(a[n].rate);
end;
{=======Procedura YDAJIEHIA 3aIIici=======}
procedure Delete(var a: students);
var surname: string[25];
    i, k, count: byte;
begin
clrscr;
ReadF(a);
write('BBEDITE FAMIJIIY Studenta KOTOPUY BU XOTITE YDALIT');
readln(surname);
count:=0;
repeat
inc(count);
k:=0;
for i:=1 to n do
if a[i].surname=surname then
begin
k:=i;
break;
end; writeln;
if k=0 then
begin
write('3AIIiCb C TAKOI FAMILIEI HE HAIDEHA');
repeat until Keypressed;
exit;
end
else
begin
for i:=k to n-1 do
a[i]:=a[i+1];
dec(n);
write('3aIIiCb YDAJIEHA');
end;
writeF(a);
repeat until KeyPressed;
until count=n;
end;
Добавлено через 16 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
{=======Procedura BIBODA=======}
procedure Output(a: students);
var i: byte;
begin
clrscr;
ReadF(a);
if n=0 then
begin
writeln('FAIJI IIycT');
repeat until KeyPressed;
exit;
end;
writeln('FAMILIA        IMA     GRYPA   NomerZa4        LABs    REITING');
writeln;
for i:=1 to n do
begin
writeln(a[i].surname:5, a[i].name:5, a[i].group:5, a[i].nomz:5, a[i].labs:5, a[i].rate:5);
end;
repeat until Keypressed;
end;
{Procedura CoPTIPOBKI=======}
procedure Sort(var a: students);
var i, count: byte;
    chose: char;
    lip: student;
begin
clrscr;
ReadF(a);
if n=0 then
begin
write('FAIJI IIycT');
repeat until keypressed;
exit;
end;
writeln('1. Familii');
writeln('2. ImeHa');
writeln('3. Gpypi');
writeln('4. Nomer Za4.');
writeln('5. Lab poboti');
writeln('6. Reiting');
repeat
chose:=readKey;
until (chose in ['1'..'6']);
repeat
count:=0;
for i:=1 to n-1 do
if ((chose='1') and (a[i].surname>a[i+1].surname)) or
   ((chose='2') and (a[i].name>a[i+1].name)) or
   ((chose='3') and (a[i].group>a[i+1].group)) or
   ((chose='4') and (a[i].nomz>a[i+1].nomz)) or
   ((chose='5') and (a[i].labs>a[i+1].labs)) or
   ((chose='6') and (a[i].rate>a[i+1].rate)) then
begin
lip:=a[i];
a[i]:=a[i+1];
a[i+1]:=lip;
inc(count);
end;
until count=0;
clrscr;
write('FaiJI OTCOPTOPOBAHO');
repeat until Keypressed;
writeF(a);
end;
{=======Procedura Poicka IIo rpyIIe=======}
procedure Search(a: students);
var i: byte;
    group: string[25];
begin
clrscr;
readF(a);
write('BBEDITE GRYIIIIy');
readln(group);
clrscr;
for i:=1 to n do
if a[i].group=group then
begin
writeln(a[i].surname:5, a[i].name);
writeln;
end;
repeat until keypressed;
end;
 
{=======IIpogramma=======}
 
Begin
assign(f,'data.dat');
reset(f);
if IOResult <> 0 then
begin
rewrite(f);
end;
n:=filesize(f);
close(f);
 
repeat
clrscr;
writeln('1. BIBOD BAZI');
writeln('2. DOBABITb 3AIIiCb');
writeln('3. YDAJIiTb 3AIIiCb');
writeln('4. COPTIPOBKA');
writeln('5. IIOICK CTUDEHTA');
writeln('6. BIXOD');
 
repeat
chose:=readkey;
until (chose in ['1'..'6']);
case chose of
'1': Output(mas);
'2': Add(mas);
'3': Delete(mas);
'4': Sort(mas);
'5': Search(mas);
end;
until chose='6';
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2009, 22:58
Ответы с готовыми решениями:

Не работает прога. База данных. Delphi
Помогите исправить ошибки в проге. Она не запускается корректно. И еще мне нужно создать связи...

База данных, основанная на службах vs База данных SQL Server
Доброго времени суток. Делал я, значит, Data Access Layer для ASP.NET MVC проекта. Создал обычную...

Оптовая база: База данных!
Для оптовой базы требуется разработать информационную систему, позво- ляющую обрабатывать данные...

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2009, 22:58

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

прога тима системы данных
написал прогу но не могу найти ошибку вроде все правильно написал помогите ее найти

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

Как подключиться к базе данных на Wpf. База данных Sql Server
Раньше работал с Windows Worms, и то не долго. Щас хочу перейти на WPF. Я в этом деле еще...

Не открывается база данных Access , пишет неразпознаваемый формат базы данных
Не открывается база данных Access , пишет неразпознаваемый формат базы данных,что делать

База данных по учету ремонтов компьютерного оборудования: схема данных
Здравствуйте, форумчане! Составил схему данных. Вроде бы на данный этап учел всё необходимое. ...

База данных Строительство - подсчет числовых данных, выведенных в webbrowser
Помогите пожалуйста посчитать денежные данные, которые выводятся в webbrowser. Вот такой код...


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

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

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