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

← →
ssss (2006-12-02 16:33) [0]

Как в дельфи апликатион сделать программу слова перевертыша..например вводиться слово Qwe надо что б было Ewq!
Заранее благодарю

← →
Palladin © (2006-12-02 16:44) [1]

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;

← →
PZ (2006-12-02 17:23) [2]

> [1] Palladin © (02.12.06 16:44)

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

← →
Palladin © (2006-12-02 17:35) [3]

ну подкорректируй раз такой замечательный

← →
PZ (2006-12-02 17:38) [4]

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

← →
Palladin © (2006-12-02 17:52) [5]

No comments. (c) Euronews

← →
Dmitrij_K (2006-12-02 17:55) [6]

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

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

← →
Kolan © (2006-12-02 18:39) [7]

> апликатион

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

← →
vasIzmax © (2006-12-02 20:06) [8]

То же вариант:
i:=length(edit1.Text); s:=edit1.Text; edit1.Clear; repeat edit1.Text:=edit1.Text+s[i]; i:=i-1; until i=0;

← →
Anatoly Podgoretsky © (2006-12-02 20:19) [9]

> PZ (02.12.2006 17:38:04) [4]

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

← →
DrPass © (2006-12-02 21:29) [10]

Edit1.Text:= ReverseString(Edit1.Text)

← →
ajlekceu © (2006-12-06 17:59) [11]

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

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

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;

← →
Palladin © (2006-12-07 10:58) [16]

автор - стьюдент, задача - академическая

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

Слова перевертыши Найти похожие ветки