Работа с БД, прошу помощи |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Работа с БД, прошу помощи |
Feagor |
23.12.2007 20:31
Сообщение
#1
|
ыыыыщщщщщщыыыы Группа: Пользователи Сообщений: 68 Пол: Мужской Реальное имя: Иван Репутация: 0 |
Сведения о ученике состоят из имени, фамилии, названии класса (год обучениия, буква). Дан файл f содержащий данные об учениках этой школы. Пусть в каждой строке через пробел даны сведения о каждом ученике. Выяснить в каких классах больше 35 человек.
то что сделано: uses crt; капитально не врубаюсь почему функция length неработает writeln(length(a[1].fam)); Добавлено через 1 мин. в принципе надо разобраться почему не раскладывает по массиву данные, дальше с подсчетом уж как-нить разберусь -------------------- Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
|
klem4 |
23.12.2007 21:09
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
для начала убедись что твоя процедура разбиения строки на отдельные куски работает верно, выглядит она странновато если честно Можно сделать намного короче, буквально в несколько строк.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Feagor |
23.12.2007 21:23
Сообщение
#3
|
ыыыыщщщщщщыыыы Группа: Пользователи Сообщений: 68 Пол: Мужской Реальное имя: Иван Репутация: 0 |
2 klem4 ну как умею, я и подозреваю что с ней что-то не то можешь что-то другое предложить, буду рад!
-------------------- Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
|
volvo |
23.12.2007 21:28
Сообщение
#4
|
Гость |
Feagor, а все данные гарантированно разделены только одним пробелом? Тогда вот тут есть функция get_str, которая выделяет токен по его номеру, при условии, что ВСЕ токены в строке разделены одним символом: Заполнение полей записи из файла
|
klem4 |
23.12.2007 21:41
Сообщение
#5
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
или то-же, но рекурсивно:
function get_part(s: String; part: Byte): String; -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Feagor |
23.12.2007 21:50
Сообщение
#6
|
ыыыыщщщщщщыыыы Группа: Пользователи Сообщений: 68 Пол: Мужской Реальное имя: Иван Репутация: 0 |
спасибо volvo классный метод, не то, что мое извращение +1
Добавлено через 1 мин. обоим +1, спасибо, помогли))) щас доделаю, рабочий исходник выложу... Добавлено через 3 мин. извиняюсь, за оффтоп, туплю, но где тут +1 сделать у нас просто уже 3 час ночи -------------------- Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
|
klem4 |
23.12.2007 21:57
Сообщение
#7
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Чтобы самому плюсы/минусы ставить, надо иметь > 25 мессаджей на форуме Ну или можешь попросить кого-нить из модераторов в ПМ volvo от тебя сейчас плюсану
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
23.12.2007 22:35
Сообщение
#8
|
Гость |
Цитата volvo от тебя сейчас плюсану Взаимно... |
Текстовая версия | 21.05.2024 15:55 |