![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
annna |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Репутация: ![]() ![]() ![]() |
Почти написала ,но не получается реализовать некоторые функции:
Вывод всей базы пользователей в виде таблицы(ФИО, дата рожд., телефон) и упорядочивание пользователей по алфавиту(по фамилии), добавление пользователя в базу.Файл базы обычный текстовый, вида: ----------------------------------------------- Petrov Petr Petrovich 21.04.07 Romanov Roman Romanovich 12.12.90 123456 Sergeev Sergey Sergeevich 17.12.87 998222 ----------------------------------------------- Заранее спасибо. Исходник (Показать/Скрыть)
|
annna |
![]()
Сообщение
#2
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Репутация: ![]() ![]() ![]() |
![]() |
Dark |
![]()
Сообщение
#3
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: ![]() ![]() ![]() |
Я посмотрю, ночью ответ дам.
-------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
Dark |
![]()
Сообщение
#4
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: ![]() ![]() ![]() |
Исходник (Показать/Скрыть)
-------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
annna |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Репутация: ![]() ![]() ![]() |
Dark
Спасибо, но почему-то меню не работает(не движется курсор для выбора действия, поэтому работает только 1пункт и выход). Может кто-нибудь протестит? |
virt |
![]()
Сообщение
#6
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 419 Пол: Мужской Репутация: ![]() ![]() ![]() |
замени
klav:=readkey;
gotoxy (13,y*2); write(' ');
if ord(klav)=97 then if y > 1 then y:=y-1 else y:= 7;
if ord(klav)=122 then if y < 7 then y:=y+1 else y:= 1;
if ord(klav)=27 then begin y:=7; klav:=Chr(13) end;
на klav:=readkey;if klav=#0 then klav:=readkey;{1!!!!!!!!!!!!!!!!!!!!!!}
gotoxy (13,y*2); write(' ');
if ord(klav)={97}72 then if y > 1 then y:=y-1 else y:= 7;{2!!!!!!!!!!!!!!!}
if ord(klav)={122}80 then if y < 7 then y:=y+1 else y:= 1;{3!!!!!!!!!!!!!!!}
if ord(klav)=27 then begin y:=7; klav:=Chr(13) end;
-------------------- |
annna |
![]()
Сообщение
#7
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Репутация: ![]() ![]() ![]() |
Dark
virt Big tnx ![]() |
Dark |
![]()
Сообщение
#8
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ага, извини - я просто заменил глюк что был выше на свои клавиши
![]() -------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
Dark |
![]()
Сообщение
#9
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: ![]() ![]() ![]() |
Осталось тока сортировку ;)
-------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
annna |
![]()
Сообщение
#10
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Репутация: ![]() ![]() ![]() |
![]() |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 8:34 |