![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Странница |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Женский Репутация: ![]() ![]() ![]() |
Заранее говорю про вывод слов в алфавитном порядке читала ,но честно ниичего не поняла, а моя задача звучит так Даны три слова одинаковой длины, начинающиеся на буквы А, В,К в любом порядке следования. Напечатать их в алфавитном порядке. Срочняк!!!!! Завтра нужно сдать!!!!!!! Еще раз извините, но тех темах ничеего не поняда, заранее огромное спасибо!!!!!!!
|
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Ну вот попробуй разберерись как говорится
![]() function Compare(a, b: String): Integer;
function Min(a, b: Integer): Integer;
begin
if a < b then
Min := a
else
Min := b;
end;
var
i, n, lA, lB: Integer;
begin
lA := Length(a);
lB := Length(b);
n := Min(lA, lB);
i := 1;
while (i <= n) and (a[i] = b[i]) do inc(i);
if (i > n) then begin
if (lA = lB) then Compare := 0
else
if lA > lB then Compare := - 1
else Compare := 1;
end
else
if ord(a[i]) < ord(b[i]) then
Compare := 1
else
Compare := -1
end;
Copmare(a, b) = 0; // Строки одинаковые Compare(a, b) = 1; // строка A < B, то есть : 'A' < 'B', 'AA' < 'AAA', 'ABB' < 'ABC' Compare(a, b) = -1; // строка A > B, то есть : 'AZ' > 'AB' Функция от сюда помоему вообще не верна ! strcmp('Hello', 'Hello World') = 0 ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Странница |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 5 Пол: Женский Репутация: ![]() ![]() ![]() |
Спасибочки!!!!!!!!.....))))))
|
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Цитата Функция от сюда помоему вообще не верна ! ![]() function strcomp(key1, key2: string): integer;
var i, m, c: integer;
begin
c := 0;
m := length(ley1);
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;
if c = 0 then
c := length(key1) - length(key2);
if c <> 0 then strcmp := c div abs( c )
else strcomp := 0;
end;
|
shutka |
![]()
Сообщение
#5
|
![]() Группа: Пользователи Сообщений: 6 Пол: Женский Репутация: ![]() ![]() ![]() |
А как отсортированные данные на экран выводить??? У меня сортировка записей по одному из полей строкового типа...не получается...
-------------------- Shutka
|
Lapp |
![]()
Сообщение
#6
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
...не получается... Это не причина флудить. И учти: ты вредишь сама себе - флудерам отвечать тут не любят. Иди в свою тему и говори там про свои проблемы.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 18:23 |