помогите написать программу

← →
Макс (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("а"));

> Макс (07.01.05 17:20)

е-мое, студент! а у меня такое же задание было(только буква другая), но я сам делал! Привет Студентам!!!

>автор.
Изучи правила.

помогите написать программу Найти похожие ветки