Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ввести две символьные последовательности, Ввести две символьные последовательности 
:(
    Опции темы
mixasnt
Дата 27.10.2012, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 27.10.2012

Репутация: нет
Всего: нет



Написать программу, которая вводит две символьных последовательности, каждая из 5-ти
элементов, и строит третью последовательность, в начале которой стоят элементы первой
последовательности, а за ними - элементы второй.

предусмотреть ввод последовательности символов через компонент Edit

Для вывода результатов использовать компонент Label,

через String получилось,но препод требует что бы не так smile :

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:string;
begin
a:=edit1.text;
b:=edit2.text;
c:=a+b;
Label1.Caption:=c;
end;
end.
Mixasnt на форуме Добавить отзыв для Mixasnt Пожаловаться на это сообщение    Редактировать/удалить сообщение
PM MAIL   Вверх
Чучмек
Дата 27.10.2012, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41



А такой вариант прокатит ?
Кинь на форму одну лейбу. Caption для лейбы сделай пустой (ОБЯЗАТЕЛЬНО!!!)
Кинь на форму один эдит. Для эдита создай обработчик OnChange //Выбери эдит, в инспекторе объектов перейди на вкладку Event, двойной щелчок на поле OnChange
И во такой вот код:
Код

var s,ss:string;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(Edit1.Text)<>1 then
 begin
 Edit1.Text:='';
 exit;
 end;
if label1.Caption='' then label1.Caption:='Перавя последовательность:'+#9 else
if s='' then label1.Caption:=label1.Caption+#13+'Вторая последовательность:'+#9;
label1.Caption:=label1.Caption+Edit1.Text;
s:=s+Edit1.Text;
Edit1.Text:='';
if length(s)=5 then
 if ss='' then
   begin
   ss:=s;
   s:='';
   end else
   begin
   s:=label1.Caption+#13+'Суммарная последовательность:'+#9+ss+s+#13#9+'ВСЕ!!!';
   label1.Caption:=s;
   edit1.Visible:=false;
   end;
end;


Это сообщение отредактировал(а) Чучмек - 27.10.2012, 18:31


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0387 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.