1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| zaika |
30.04.2006 16:58
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Женский Репутация: 0 |
Здравствуйте
Вообщем надо вывести из готовой записи студента со всеми его данными, начинающегося на букву В!!! Вот нашла тут кое что...но это мне ничем не помогло Сортировка студентов по фамильно в алфавитном порядке Код function strcomp(Key1, Key2: String): Integer; var i,m,c: integer; begin c:=0; m:=length(Key1); if m>length(Key2) then m:=length(Key2); for i:=1 to m do begin c:=ord(Key1[i])-ord(Key2[i]); if c<>0 then break; end; strcomp:=c end; Поможите кто чем может |
![]() ![]() |
| klem4 |
1.05.2006 11:35
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Что значит начинающегося на букву Б ? Было бы не плохо увидеть ваш код, как организована запись.
+ FAQ : Записи + Поиск по форуму. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
zaika Помогите решить задачку 30.04.2006 16:58
-Катюшка- Может поможет:
Procedure Search_students(var f:f_s... 1.05.2006 13:57
volvo -Катюшка-,
If (Pos(b,st1.FIO)<>0) then, ч... 1.05.2006 14:08
-Катюшка-
-Катюшка-,
If (Pos(b,st1.FIO)<>0) then, ... 1.05.2006 14:14
volvo Какая разница, что это? Буква "B" присут... 1.05.2006 14:16
Гость Ну, проверить,есть ли пробел перед 'B'. 1.05.2006 14:38
volvo Ну, так в чем дело? Почему ты этого не сделал(а)? ... 1.05.2006 14:42![]() ![]() |
|
Текстовая версия | 15.11.2025 11:28 |