VPF::Ввести строковую последовательность

mixasnt

Дата 10.11.2012, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Ввести строковую последовательность из 12-ти или меньшего количества элементов, и,
если в строке есть символ '+', то перед этим знаком и после него прибавить пробела.

Цитата

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:string;
i:byte;
begin

  Writeln('==============================');
  Writeln('Enter the string sequence of 12 or fewer elements,');
  Writeln('and If the line is the '+' sign before it and after it to add a space.');
  Writeln('==============================');
  Writeln;

  Write('Enter the sting of 12 characters of fewer: ');
  readln(a);

  for i:=0 to length(a) do

  if a[i]='+' then
  insert(' ',a,i);
  insert(' ',a,i+1);

  Writeln;
  Writeln('Rezultat:');
  Writeln(a);
  Writeln;
  Writeln('to exit press enter...');
   readln;

end.

то что получилось, работает не так как нужно:(
помогите пожалуйста...

mixasnt

Дата 10.11.2012, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Вот что в итоге получилось,и работает:

Цитата

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a:string;

begin

Writeln('========================== ====');
Writeln('Enter the string sequence of 12 or fewer elements,');
Writeln('and If the line is the '+' sign before it and after it to add a space.');
Writeln('========================== ====');
Writeln;
Write('Enter the sting of 12 characters of fewer: ');
readln(a);

a := StringReplace(a, '+', ' + ', [rfReplaceAll]);

Writeln;
Writeln('Rezultat:');
Writeln(a);
Writeln;
Writeln('to exit press enter...');
readln;

end.

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