Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c