|
Вопрос # 3 535/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
как упорядочить данный массив слов по алфавиту?
 |
Вопрос задал: I{ () T (статус: Посетитель)
Вопрос отправлен: 16 декабря 2009, 15:02
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 18; последнее сообщение — 17 декабря 2009, 11:48; участников в обсуждении: 5.
|
min@y™ (статус: Доктор наук), 16 декабря 2009, 15:28 [#1]:
Грузишь массив слов в TStringList и пользуешься его методом Sort().
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 16 декабря 2009, 15:35 [#2]:
Написать за Вас сортировку пузырьком?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
DNK (статус: Студент), 16 декабря 2009, 15:43 [#3]:
Что за "данный массив"? Кому он дан?
"Digital Networked Knight"
|
16 декабря 2009, 16:20: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
|
Ерёмин А.А. (статус: *Администратор), 16 декабря 2009, 16:21 [#4]:
Строки можно сравнивать друг с другом стандартными операторами "больше"/"меньше". I{ () T: дальше продолжать?
|
|
|
I{ () T (статус: Посетитель), 16 декабря 2009, 19:01 [#5]:
ой блииииин... чет я ступил..... извиняюсь.
2 Ерёмин А.А. вопрос думаю стоит удалить.
стыднооооооооо.
2 min@y
массив вводят с клавиатуры
p.s. мысля в голову пришла бэзумная и наверно неосуществимая. было бы так, чтобы прежде чем задавать вопрос на форум заставляли бы над ним чуть чуть подумать, ну например наводящие вопросы по теме......вопросов думаю стало бы меньше)
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
I{ () T (статус: Посетитель), 16 декабря 2009, 21:35 [#6]:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=250;
type tmas=array[1..n] of string;
var f1,f2:text; i,k,j:integer; str,b,word:string;
a:tmas;
begin
k:=0;
assign(f1,'f1.txt');reset(f1);
assign(f2,'f2.txt');rewrite(f2);
while not eof(f1) do
begin
readln(f1,str);
k:=Pos(' ',Str);
word:=Copy(Str,1,k-1);
word:=a[i];
for i:=2 to N do
BEGIN
j:=i-1;
b:=a[i];
while (b<a[j])and(j>0) do
Begin
a[j+1]:=a[j];
j:=j-1;
End;
a[j+1]:=b;
END;
writeln(f2,a[i]);
end;
close(f1);close(f2);
readln; readln;
end.
я что то вообще не то написал?
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
min@y™ (статус: Доктор наук), 17 декабря 2009, 08:26 [#7]:
Цитата (I{ () T):
я что то вообще не то написал?
Да ваще, как говорится, "что енто было":
word:=Copy(Str,1,k-1);
word:=a[i];
Это чо такое?
Возьми мой первый совет и воспользуйся им.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
I{ () T (статус: Посетитель), 17 декабря 2009, 09:24 [#8]:
я с delphi 7 не знаком еще. как я понял это оттуда.
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
min@y™ (статус: Доктор наук), 17 декабря 2009, 09:36 [#9]:
Я не знаю, какая у тебя версия Delphi. Класс TStringList находится в модуле Classes.pas.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
I{ () T (статус: Посетитель), 17 декабря 2009, 10:18 [#10]:
примеры подобных source`в с tstringlist не могли бы подкинуть? или ссылки на них.
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
min@y™ (статус: Доктор наук), 17 декабря 2009, 10:38 [#11]:
Цитата (I{ () T):
примеры подобных source`в с tstringlist не могли бы подкинуть? или ссылки на них.
Зачем? Хэлп же есть, там всё написано!
List:= TStringList.Create(); // Создаёшь объект
try
// <--- Здесь набиваешь его строками или грузишь из файла
List.Sort(); // Сортируешь
// <--- Здесь нужные действия с отсортированным списком
finally
List.Free(); // Освобождение памяти
end;
Вот и всё.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
I{ () T (статус: Посетитель), 17 декабря 2009, 10:46 [#12]:
min@y
просмотрите мои прошлые вопросы,если не сложно, и поймете мой уровень. я с консольной формой только пока могу работать.
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
min@y™ (статус: Доктор наук), 17 декабря 2009, 11:06 [#13]:
Цитата (I{ () T):
просмотрите мои прошлые вопросы,если не сложно, и поймете мой уровень. я с консольной формой только пока могу работать.
Если нет желания учиться и есть привычка, что прогу напишут за тебя, то бросай программирование нафиг, бери лопату и иди снег чистить. Программизм, похоже, - это не для тебя.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 17 декабря 2009, 11:17 [#14]:
консольная форма??? это что просто консольное окно или я чего то не знаю?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
I{ () T (статус: Посетитель), 17 декабря 2009, 11:20 [#15]:
что для меня а что нет это я сам знаю, и выговаривать громкие вердикты не стоит. обойдемся без грубостей). прошу банально объяснить. я с tstringlist ни разу не сталкивался еще.
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
I{ () T (статус: Посетитель), 17 декабря 2009, 11:25 [#16]:
console applications
у меня нет мании величия...Великие люди этим не страдают)))
.......лень порождает ненависть к жизни......
|
|
|
min@y™ (статус: Доктор наук), 17 декабря 2009, 11:37 [#17]:
Цитата (I{ () T):
прошу банально объяснить. я с tstringlist ни разу не сталкивался еще.
Пример мой тебя не устраивает?
На клаве есть такая кнопка - F1. Воспользуйся.
Или перевести встроенный хэлп от Delphi на русский язык?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 17 декабря 2009, 11:48 [#18]:
Если приложение пишется с расчетом показать преподавателю и получить оценку по курсу Pascal, то TstringList лучше не использовать. если же для себя - то самое оно.
TstringList - это класс такой, внутри которого заключено много полезного кода для работы с массивом строк - загрузить с файла, сохранить в него, сортировка, поиск строки, добавление/удаление, преобразование в строку и разбор строки на строки. А вот какие это методы - это уже хелп вычитывать.
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
