База данных Телефонный справочник

@and 1 · Регистрация: 09.02.2010

Студворк — интернет-сервис помощи студентам

помогите составить базу данных "Записная телефонная книга" если это не займет много времени

@Puporev · 01.11.2010, 18:31

Сообщение от and 1

если это не займет много времени

А ты попробуй, и узнаешь сколько это займет времени...

@and 1 · 08.11.2010, 19:45 **[ТС]**

Данная программа может считаться базой данных, записанная через файл записей?

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
Program phone;
Uses CRT;
Label 1;
Type zapis=record
oper,znach,adress:string;
end;
Type Fil=file of zapis;
Var f,h:fil;
data:zapis;
i,y,z:integer;
name,oper1:string;
procedure vvod(data1:zapis;Var f1:fil);
begin
with data1 do
begin
Write('Ф.И.О '); readln(oper);
Write('НОМЕР ТЕЛЕФОНА '); Readln(znach);
write('АДРЕС:');readln(adress);
write(f1,data1);
writeln;
end;end;
procedure vivod(var data1:zapis);
begin
With data1 do
begin
Writeln('Ф.И.О ',oper);
Writeln('НОМЕР ТЕЛЕФОНА ',znach);
writeln('АДРЕС: ',adress);
writeln;
end;end;
Begin
1:Clrscr;
Writeln('Выберите действие');
Writeln('1.Создать телефонную книжку');
Writeln('2.Добавить номер в книжку');
Writeln('3.Удалить номер из книжки');
Writeln('4.Найти номер и адрес абонента');
Writeln('5.Просмотр всего содержимого');
Write('6.Выход ');
Readln(z);
If z=1 then
begin
clrscr;
Write('Введите название т.книжки: '); Readln(name);
Assign(f,name);
Rewrite(f);
Write('Введите количество записей '); Readln(y);
For i:=1 to y do vvod(data,f);
close(f);
goto 1;
end;
If z=2 then
begin
clrscr;
Write('Введите название т.книжки: ');
Readln(name);
Assign(f,name);
Reset(f);
Seek(f,filesize(f));
vvod(data,f);
Close(f);
goto 1;
end;
If z=3 then
begin
clrscr;
Write('Введите название т.книжки: ');
Readln(name);
Assign(f,name); assign(h,'1');
Reset(f);Rewrite(h);
Write('Введите Ф.И.О абонента нoмер которого нужно удалить ');
Readln(oper1);
While not eof(f) do
begin
Read(f,data);
If not (data.oper=oper1) then with data do write(h,data);
end;
Close(f); Close(h);
Erase(f); rename(h,name);
goto 1;
end;
If z=4 then
begin
clrscr;
Write('Введите название т.книжки '); Readln(name);
Assign(f,name);
Write('Введите Ф.И.О '); Readln(oper1);
reset(f);
While not eof(f) do
begin
Read(f,data);
If data.oper=oper1 then vivod(data);
end;
Close(f);
readln;
goto 1;
end;
If z=5 then
begin
clrscr;
Write('Введите название т.книжки: ');Readln(name);
Assign(f,name);
Reset(f);
While not eof(f) do
begin
Read(f,data);
Vivod(data);
End;
readln;
Close(f);
goto 1;
End;
End.

@Puporev · 08.11.2010, 19:50

Да, может.

@and 1 · 10.11.2010, 00:14 **[ТС]**

Опишите пожалуйста строчки, выделенные в программе. Нужно для защиты

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
Program phone;
Uses CRT;
Label 1; // <---
Type zapis=record // <---
oper,znach,adress:string; // <---
end;
Type Fil=file of zapis; // <---
Var f,h:fil; // <---
data:zapis;
i,y,z:integer;
name,oper1:string;
procedure vvod(data1:zapis;Var f1:fil); // <---
begin
with data1 do // <---
begin
Write('F.I.O '); readln(oper);
Write('NOMER TELEFONA'); Readln(znach);
write('ADRES:');readln(adress);
write(f1,data1); // <---
writeln;
end;end;
procedure vivod(var data1:zapis); // <---
begin
With data1 do
begin
Writeln('F.I.O',oper);
Writeln('NOMER TELEFONA',znach);
writeln('ADRES: ',adress);
writeln;
end;end;
Begin
1:Clrscr;
Writeln('Vyberite deistvie');
Writeln('1.Sozdat telefonnuy knigku');
Writeln('2.Dobavit nomer v knigku');
Writeln('3.Udalit nomer iz knigki');
Writeln('4.Naiti nomer i adres abonenta');
Writeln('5.Prosmotr vsego sodergimogo');
Write('6.Vyhod ');
Readln(z);
If z=1 then
begin
clrscr;
Write('Vvedite nazvanie telefonnoi knigki: '); Readln(name);
Assign(f,name); // <---
Rewrite(f); // <---
Write('Vvedite kolichestvo zapisei '); Readln(y);
For i:=1 to y do vvod(data,f); // <---
close(f);
goto 1; // <---
end;
If z=2 then
begin
clrscr;
Write('Vvedite nazvanie telefonnoi knigki: ');
Readln(name);
Assign(f,name); // <---
Reset(f); // <---
Seek(f,filesize(f)); // <---
vvod(data,f);
Close(f);
goto 1;
end;
If z=3 then
begin
clrscr;
Write('Vvedite nazvanie telefonnoi knigki: ');
Readln(name);
Assign(f,name); assign(h,'1');
Reset(f);Rewrite(h);
Write('Vvedite F.I.O. abonenta nomer kotorogo nugno udalit ');
Readln(oper1);
While not eof(f) do
begin
Read(f,data);
If not (data.oper=oper1) then with data do write(h,data);
end;
Close(f); Close(h);
Erase(f); rename(h,name);
goto 1;
end;
If z=4 then
begin
clrscr;
Write('Vvedite nazvanie telefonnoi knigki: '); Readln(name);
Assign(f,name);
Write('Vvedite F.I.O. '); Readln(oper1);
reset(f);
While not eof(f) do
begin
Read(f,data);
If data.oper=oper1 then vivod(data);
end;
Close(f);
readln;
goto 1;
end;
If z=5 then
begin
clrscr;
Write('Vvedite nazvanie telefonnoi knigki: ');Readln(name);
Assign(f,name);
Reset(f);
While not eof(f) do
begin
Read(f,data);
Vivod(data);
End;
readln;
Close(f);
goto 1;
End;
End.

Новые блоги и статьи Все статьи Все блоги /
изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@and 1 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 45

	База данных Телефонный справочник 01.11.2010, 18:21. Показов 2880. Ответов 4 Метки нет (Все метки) помогите составить базу данных "Записная телефонная книга" если это не займет много времени 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	08.11.2010, 19:50
	Да, может. 0