Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Слова перевертыши

ssss © (2006-12-02 16:33:00)
Как в дельфи апликатион сделать программу слова перевертыша..например вводиться слово Qwe надо что б было Ewq!
Заранее благодарю

Palladin (2006-12-07 10:58:00) [1]
автор - стьюдент, задача - академическая

вот и весь секрет

novill (2006-12-07 10:48:00) [2]
> [14] Palladin © (07.12.06 10:10)

код в [12] - сплошное недоразумение.
Непонятно дргуое: зачем изобретать велосипед?

Palladin (2006-12-07 10:10:00) [3]

> novill ©

а он ее не переплюнул, а модифицировал. это двойной ReverseString, написанный с грубыми ошибками.

novill (2006-12-07 09:26:00) [4]
> [12] TUser © (06.12.06 21:11)

Зачем стараться переплюнуть стандартную StrUtils.ReverseString ?

TUser (2006-12-06 21:11:00) [5]
var c: char;
s: string;
i, j: integer;
begin
...
j := length (s);
for i := 1 to length (s) do
dec (j); // j := length(s) - i + 1;
c := s[i];
s[i] := s[j]
s[j] := c;
end;
...
end;

ajlekceu (2006-12-06 17:59:00) [6]

> DrPass © (02.12.06 21:29) [10]
> Edit1.Text:= ReverseString(Edit1.Text)

ну тогда и еще +
uses... StrUtils

DrPass (2006-12-02 21:29:00) [7]
Edit1.Text:= ReverseString(Edit1.Text)

Anatoly Podgoretsky (2006-12-02 20:19:00) [8]
> PZ (02.12.2006 17:38:04) [4]

Приведена только часть задания, что должно быть наоборот, ничего не видать про заглавные буквы. Ты лично с ним говорил? Тогда прочитай ему нотацию, чтобы полностью приводил задание.

vasIzmax (2006-12-02 20:06:00) [9]
То же вариант:
i:=length(edit1.Text); s:=edit1.Text; edit1.Clear; repeat edit1.Text:=edit1.Text+s[i]; i:=i-1; until i=0;

Kolan (2006-12-02 18:39:00) [10]
> апликатион

application
Читается как: "эпликэйшн"

Dmitrij_K (2006-12-02 17:55:00) [11]

> Да, мне-то это не надо. Просто в задании так написано

Это не ты с мотороллером?

Palladin (2006-12-02 17:52:00) [12]
No comments. (c) Euronews

PZ (2006-12-02 17:38:00) [13]
Да, мне-то это не надо. Просто в задании так написано

Palladin (2006-12-02 17:35:00) [14]
ну подкорректируй раз такой замечательный

PZ (2006-12-02 17:23:00) [15]
> [1] Palladin © (02.12.06 16:44)

По заданию первая буква заглавная, а последняя строчная

Palladin (2006-12-02 16:44:00) [16]
for i:=1 to length(s) div 2 do
begin
s[i]:=chr(byte(s[i])+byte(s[length(s)-i+1]));
s[length(s)-i+1]:=chr(byte(s[i])-byte(s[length(s)-i+1]));
s[i]:=chr(byte(s[i])-byte(s[length(s)-i+1]));
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »