| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

помогите написать программу [D6, D7, WinXP]

Макс ©   (2005-01-07 17:20:00) 

как написать программу, которая будет по нажатию на кнопку заменять каждую букву в слове на 3-ю по счету после нее("а" меняется на "в", "в" на "д" и т.д)?
например:
в текстовой строке вводится слово "нос", а после нажатия на созданную кнопку, слово поменяется на "пру".
заранее спасибо.

---

panov   (2005-01-07 18:54:00) [1]

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

---

antonn   (2005-01-07 17:35:00) [2]

> Макс   (07.01.05 17:20)  

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

---

Kerk   (2005-01-07 17:26:00) [3]

вместо
if tmp > 'я' then tmp := Char(Ord(tmp)-Ord('я'));
надо
if tmp > 'я' then tmp := Char(Ord(tmp)-Ord('я')+Ord('а'));

---

Kerk   (2005-01-07 17:25:00) [4]

так... на вскидку...
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;

---

begin...end   (2005-01-07 17:24:00) [5]

> Макс   (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.

---

Наверх