Разделить слово пополам

[Tuberwer]

Всем привет.
В программе есть три стринга.
В первый стринг записывается введення строчка.
Дальше мне нужно поделить слово пополам, и первую половину занести во второй стринг, а вторую половину в третий стринг.
Алгоритм придумал такой:
Добавляем еще переменную интеджер, назовем i для понятности.
В нее заносим длину первого стринга(все слово)
Потом делим i на 2.
И если i четное, то первые i букв первого стринга заносятся в второй стринг. а следующие i букв заносятся в третий стринг.
Можете с кодом помочь?

var in, first, second : string;
i : integer;
...
begin
read(in);
i := length(in);
if (i/2 mod 2 = 0) then first := первые i символов от in; second := оставшиеся i символов от in; // как сделать?
end.

[скалогрыз]

привет!
отличное начинание кода.
а вот так его можно дополнить:

Код: Выделить всё

var
  in, first, second : string;
  i : integer;
  j : integer;
begin
  read(in);
  i := length(in);
  if (i/2 mod 2 = 0) then begin
    j:=1;
    while j<=i do begin
      if (j<=i/2 mod 2) then
        first:=first+in[j]
      else
        second:=second+in[j];
      j:=j+1;
    end;
  end;
  writeln(first);
  writeln(second);
end.

[sign]

Вот весело будет, когда символ пополам поделится!
Tuberwer, не всегда символ занимает один байт.

[footballer]

Я на бурных праздниках пропустил что и length, leftstr/rightstr в паскале отменили?

[Лекс Айрин]

footballer, почти. Просто в Lazarus чаще используется UTF8 -- соответственно результат применения к подобной строке указанных функций не будет корректным. А преобразования туда/сюда не очень хорошее дело.

[footballer]

footballer, почти. Просто в Lazarus чаще используется UTF8 -- соответственно результат применения к подобной строке указанных функций не будет корректным. А преобразования туда/сюда не очень хорошее дело.

Utf8Copy тоже отменили, что ли?

[sign]

Не, не отменили, просто не зная о том, что нужно применять LazUTF8, можно долго мучиться.

[скалогрыз]

есть мнение, что автор статьи просто бот, собирающий решения для школьников/студентов начальных курсов =)

вопрос utf8 - не utf8 тут вообще поднимать не за чем - не тот уровень.