|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.01.2008, 21:16 | #31 |
Новичок
Джуниор
Регистрация: 30.01.2008
Сообщений: 1
|
а если какая нибудь прога для проверки ?
отдохнём вместеhttp://www.vhotel.ru
|
30.01.2008, 21:26 | #32 |
Пользователь
Регистрация: 29.01.2008
Сообщений: 19
|
Проверки чего?
|
31.01.2008, 11:06 | #33 |
Пользователь
Регистрация: 29.01.2008
Сообщений: 19
|
B_N, мне очень нужна Ваша помощь. Я не могу понять как применить функцию qsort для сортировки слов((( Не могу разобраться с параметрами, которые надо передать в функцию.
|
31.01.2008, 11:16 | #34 |
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Туда нужно передать адрес массива (pWords), количество элементов в нем - nWordCount, размер каждого элемента (указателя на char) и адрес функции сравнения, которую Вам нужно определить, исходя из прототипа, который там приводится
Код:
|
31.01.2008, 11:46 | #35 |
Пользователь
Регистрация: 29.01.2008
Сообщений: 19
|
ОК)) Буду смотреть) Спасибо за помощь)
|
01.02.2008, 21:25 | #36 |
Пользователь
Регистрация: 29.01.2008
Сообщений: 19
|
B_N,
хотел спросить а правильно ли вызывается функция обработки строки, если у нас есть текст, содержащий n строк? Код:
|
20.06.2011, 11:03 | #37 |
Новичок
Джуниор
Регистрация: 20.06.2011
Сообщений: 1
|
помогите пожалуйста решить задачу по делфи: дана строка. слова разделены пробелами. отсортировать в каждом слове буквы по алфавиту
вот мой код:s:=Edit1.Text; while s<>'' do begin k:=Pos(' ',s); if k<>0 then begin slovo:= Copy (s,1,k-1); for d:=Length(slovo) downto 2 do begin for i:=1 to d-1 do if slovo[i]>slovo[d] then begin r:=slovo[d]; slovo[d]:=slovo[i]; slovo[i]:=r; end; end; Edit2.Text:=Edit2.Text+' '+slovo; Delete (s,1,k); end else begin if slovo=s then for h:=Length(slovo) downto 2 do begin for i:=1 to h-1 do if slovo[i]>slovo[h] then begin l:=slovo[h]; slovo[h]:=slovo[i]; slovo[i]:=l; end; end; end; Edit2.Text:=Edit2.Text+' '+s; s:=''; end; но у меня сортируется только первое слово и все!!!! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
дан текстовый массив из 200 букв. Выстроить в алфавитном порядке все строчные буквы | Тина | Помощь студентам | 6 | 02.07.2008 22:53 |
отсортировать таблицу сначала в алфавитном порядке фамилий продавцов, затем в порядке возростания получен | Lora | Microsoft Office Excel | 1 | 31.05.2008 17:22 |
Во вводимом тексте переписать все слова в обратном порядке. | menlo | Помощь студентам | 5 | 17.11.2007 10:18 |