Проект «Слово-перевертыш»
Постановка задачи. Создать проект «Слово-перевертыш», который изменяет прямую последовательность символов в слове (слева направо) на обратную последовательность (справа налево).
Схема выполнения
Поместить на форму текстовое поле Edit1 для ввода слова и текстовое поле Edit2 для вывода слова-перевертыш.
На форме разместить кнопку Button1 и создать для нее событийную процедуру преобразования введенного слова в слово с обратной последовательностью следования составляющих его символов.
В цикле с предусловием, количество выполнения которого равно количеству символов в слове, последовательно вырезаются в прямой последовательности (слева направо) символы из введенного слова и в обратной последовательности (справа налево) присваиваются переменной strX, значением которой после завершения цикла будет слово-перевертыш:
Var
strA:string;
strB:string;
bytN:byte;
procedure TForm1.Button1Click(Sender: TObject);
begin
strA := Edit1.Text;
bytN := 1;
While bytN <= Length(strA) Do
Begin
strB := Copy(strA, bytN, 1);
Edit2.Text := strB + Edit2.Text;
bytN := bytN + 1;
end;
end;
Запустить проект на выполнение.
Ввести в текстовое поле исходное слово и щелкнуть по кнопке Слово-перевертыш.
В текстовое поле будет выведено слово-перевертыш.
Сохранить проект.
Достарыңызбен бөлісу: | 
