IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Помогите решить задачку, на записи
zaika
сообщение 30.04.2006 16:58
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Женский

Репутация: -  0  +


Здравствуйте rolleyes.gif
Вообщем надо вывести из готовой записи студента со всеми его данными, начинающегося на букву В!!!
Вот нашла тут кое что...но это мне ничем не помогло rolleyes.gif
Сортировка студентов по фамильно в алфавитном порядке
Код

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;

Поможите кто чем может rolleyes.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 24.06.2025 15:11
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"