procedure InsChrToPosWords(var ds: string; vs: integer);
var
i: integer;
s1,s2: string;
begin
s1:='';
s2:='';
for i:= 1 to length(ds) do
begin
s1:= s1 + ds;
if ds=' ' then
begin
if length(s1)-1 = vs then
insert(' ', s1, length(s1)-2);
s2:= s2 + s1;
s1:= '';
end;
end;
ds:= s2;
end;
обработка символов и строк на языке паскаль(Help)
Народ помогите с задачкой:Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину.
Впринципе понимаю что нужно просто вставить но что то непойму как еёт составить
Впринципе понимаю что нужно просто вставить но что то непойму как еёт составить
Цитата: klimchik
Вставить пробел перед последними 2-мя символами в слова, имеющие минимальную (заданную) длину.
Код:
Использование:
Код:
var
s: string;
begin
s:='12 123 1234 12345 12345 12345 12345678 123456789';
InsChrToPosWords(s,5);
// s теперь будет такая:
// 12 123 1234 123 45 123 45 123 45 12345678 123456789
end;
s: string;
begin
s:='12 123 1234 12345 12345 12345 12345678 123456789';
InsChrToPosWords(s,5);
// s теперь будет такая:
// 12 123 1234 123 45 123 45 123 45 12345678 123456789
end;
Обёртку надеюсь, сделаете сами.