Алгоритм для задачи.

[MoxFalder]

Ребята помогите!
Вот задачка:
Вводятся 2 строки. Перевернуть обе строки, склеить и вывести.
Я ее тут уже выкладывал недавно и код решил сделать такой:

procedure TForm1.Button1Click(Sender: TObject);
var a:String;
begin
a:=Edit1.Text;
a:=Edit2.Text;
Label1.Caption:=(Edit2.Text)+(Edit1.Text);
end;
end.

Отослал работу.Пришел ответ,что надо нарисовать алгоритм.Я нарисовал что вводится а и сразу выводится.Мне сказали не правильно...Как можно его по другому нарисовать???Подскажите..

[_Dmitry]

Может "перевернуть строки" означает, что их нужно написать в обратном порядке?

procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  i: integer;
begin
  a:='';
  for i:=length(Edit1.Text) downto 1 do a:=a+Edit1.Text[i];
  for i:=length(Edit2.Text) downto 1 do a:=a+Edit2.Text[i];
  Label1.Caption:=a;
end;

[MoxFalder]

Сообщение от _Dmitry

Может "перевернуть строки" означает, что их нужно написать в обратном порядке?

procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  i: integer;
begin
  a:='';
  for i:=length(Edit1.Text) downto 1 do a:=a+Edit1.Text[i];
  for i:=length(Edit2.Text) downto 1 do a:=a+Edit2.Text[i];
  Label1.Caption:=a;
end;

Да я не знаю точно.Вроде про это нечего не сказали.Тока про алгоритм...Могу скинуть смой вариант

[_Dmitry]

Как не знаете точно? Вам разве без объяснений пришёл ответ? Вроде бы всегда пишут: где не правильно и что исправить.
Выкладывайте свой вариант...

[Левушка]

Помогите с курсовой пожалуйста.Описание и программирование задачи о назначениях

[Mad_Cat]

2Левушка
Описание и программирование задачи о назначениях