Склеивание 2 строк посимвольно - Pascal

Узнай цену своей работы

Формулировка задачи:

Даны строки "abc", "123". получить строку "a3b2c1"
const
s1 = 'abc';
s2 = '123';
var s3:string;
i : integer;
begin
 s3:='';
 for i:=3 downto 1 do begin
 s3:=copy(s2,i,1)+s3;
 s3:=copy(s1,i,1)+s3;
end;
 writeln(s3);
end.
так получается "a1b2c3"

Решение задачи: «Склеивание 2 строк посимвольно»

textual
Листинг программы
for i:=3 downto 1 do
begin
  s3:=copy(s2,4 - i,1)+s3; { <--- }
  s3:=copy(s1,i,1)+s3;
end;

Объяснение кода листинга программы

  1. i - переменная цикла, принимает значение от 3 до 1.
  2. s3 - результирующая строка, в которую будут склеиваться символы. Изначально пустая.
  3. s2 - исходная строка, из которой будут браться символы для склеивания.
  4. s1 - вторая исходная строка, из которой также будут браться символы для склеивания. Описание действий:
    • На каждом шаге цикла берется символ из строки s2 начиная с (4 - i)-й позиции и добавляется в начало строки s3.
    • Затем берется символ из строки s1 на позиции i и также добавляется в начало строки s3.
    • Это действие повторяется для каждого значения переменной i от 3 до 1. Таким образом, в итоге строка s3 будет содержать склеенную строку, составленную из символов строк s1 и s2.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы