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

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

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

 
 Ответить  Открыть новую тему 
> Задача на слова
сообщение
Сообщение #1





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

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


Заранее говорю про вывод слов в алфавитном порядке читала ,но честно ниичего не поняла, а моя задача звучит так Даны три слова одинаковой длины, начинающиеся на буквы А, В,К в любом порядке следования. Напечатать их в алфавитном порядке. Срочняк!!!!! Завтра нужно сдать!!!!!!! Еще раз извините, но тех темах ничеего не поняда, заранее огромное спасибо!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Ну вот попробуй разберерись как говорится smile.gif

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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





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

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


Спасибочки!!!!!!!!.....))))))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
Функция от сюда помоему вообще не верна !
yes2.gif Я бы вот так переписал:
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;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





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

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


А как отсортированные данные на экран выводить??? У меня сортировка записей по одному из полей строкового типа...не получается...


--------------------
Shutka
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(shutka @ 13.05.2007 13:29) *

...не получается...

Это не причина флудить. И учти: ты вредишь сама себе - флудерам отвечать тут не любят. Иди в свою тему и говори там про свои проблемы..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




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