1

Тема: Написать программу, которая вводит две символьных последовательности

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

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

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

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

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.

2 Востаннє редагувалося bunyk (27.10.2012 14:08:53)

Re: Написать программу, которая вводит две символьных последовательности

mixasnt написав:

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

Я міг вже трохи забути Delphi, але може так працюватиме:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Label1.Caption := edit1.text + edit2.text;
end;

P.S. А ще ви забули перевірку довжини послідовностей. Викладач казав що робити якщо вводяться послідовності не довжини 5?