![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
N!K!t@ |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
Подскажите пожалуйста!
Нужно создать Базу данных, например, автостоянки или регистратуры Файл создаю, когда открываю, выводит в виде (запись)(запись2)(запись3)(за пись4) 1)Как сделать, чтоы каждая запись была на отдельной строке? Они прерываются и переносятся и вообще трудно чего-то разобрать. 2)И как осуществить поиск в такой базе(например, вывести владельцев с одинаковыми машинами или иногородних пациентов) |
![]() ![]() |
Bokul |
![]()
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 117 Пол: Мужской Реальное имя: Богдан Репутация: ![]() ![]() ![]() |
У тебя есть например запись типа
Цитата 1)Как сделать, чтоы каждая запись была на отдельной строке? Читаешь каждую запись и выводишь ее так: writeln('Owner : ',data.owner,' Auto : ',data.auto); Цитата И как осуществить поиск в такой базе Проходишься по всему файлу-данных, читаешь поочередно каждую запись и сверяешь необходимое поле записи с ключом поиска. Если они совпадают, то выводишь запись на экран, нет - ничего не делаешь. Например:
-------------------- Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее. |
N!K!t@ |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
Спасибо, а не подскажешь где здесь ошибка:
procedure Find; var fam:string[20]; q:byte; st:prokat; begin writeln('имя файла для поиска'); readln(filename); assign(f,filename);reset(f); with st do writeln('Введите фамилию '); readln(fam); q:=0; while not eof(f) do begin read(f,st); if st.sname_Hozaina=fam then inc(q); writeln('Кол-во однофамильцев: ',q); end; close(f); end; |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Телепатов искать - в Google... Нужна помощь - приводи ВСЕ описания типов... Теги, кстати, тоже нужно использовать - иначе твоя программа рискует остаться незамеченной...
|
N!K!t@ |
![]()
Сообщение
#5
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
Volvo. это как описания всех типов?
|
мисс_граффити |
![]()
Сообщение
#6
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
что такое prokat?
-------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
N!K!t@ |
![]()
Сообщение
#7
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
Prokat - тип record (type prokat:record)
|
N!K!t@ |
![]()
Сообщение
#8
|
Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: ![]() ![]() ![]() |
Где же ошибка?
Что я не доделал HELP!!! Bokul, подскажи |
volvo |
![]()
Сообщение
#9
|
Гость ![]() |
Ты можешь понять, что пока не приведешь описание типа prokat - нельзя проверить твою программу? То, что это Record - понятно, надо же еще знать, из чего он состоит, какие поля содержит, тебе не кажется? Просто так говорить ничего не буду - я не ясновидящий...
|
![]() ![]() |
![]() |
Текстовая версия | 31.07.2025 23:36 |