Текущий архив: 2005.01.23;
Скачать: CL | DM;
Вниз
помогите написать программу Найти похожие ветки
← →
Макс (2005-01-07 17:20) [0]как написать программу, которая будет по нажатию на кнопку заменять каждую букву в слове на 3-ю по счету после нее("а" меняется на "в", "в" на "д" и т.д)?
например:
в текстовой строке вводится слово "нос", а после нажатия на созданную кнопку, слово поменяется на "пру".
заранее спасибо.
← →
begin...end © (2005-01-07 17:24) [1]> Макс (07.01.05 17:20)
var
I: Integer;
S: String;
begin
for I := 1 to Length(S) do
S[I] := Chr(Ord(S[I]) + 2)
end.
P.S. Высылайте Балтику N, где N принадлежит множеству 5..9.
← →
Kerk © (2005-01-07 17:25) [2]так... на вскидку...
var
s: string;
i: Integer;
tmp: Char;
begin
s := "нос";
for i := 0 to Length(s)-1 do
begin
tmp := Char(Ord(s[i])+3);
if tmp > "я" then tmp := Char(Ord(tmp)-Ord("я"));
s[i] := tmp;
end;
end;
← →
Kerk © (2005-01-07 17:26) [3]вместо
if tmp > "я" then tmp := Char(Ord(tmp)-Ord("я"));
надо
if tmp > "я" then tmp := Char(Ord(tmp)-Ord("я")+Ord("а"));
← →
antonn © (2005-01-07 17:35) [4]
> Макс (07.01.05 17:20)
е-мое, студент! а у меня такое же задание было(только буква другая), но я сам делал! Привет Студентам!!!
← →
panov © (2005-01-07 18:54) [5]>автор.
Изучи правила.
Страницы: 1 вся ветка
Текущий архив: 2005.01.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.061 c
