Строки, перенос Опции

[jmih]

Народ .Есть такая задачка.

Строка представляет собой фамилию, имя и отчество. Слова разделены пробелами (одним или несколькими). Преобразовать исходную строку в три строки и удалить лишние пробелы.

Как удалить пробелы я знаю.

program DeleteSpaces;
uses crt; {блябляблядальшехзчёписать}
var
str : string; {рабочая строка}
{параметры цикла и количество пробелов в группе}
index, i, spacenum : integer;

begin
{назначение программы}
{ввод исходной строки}
write('Введите исходную строку: ');
readln(str);
{защита от дурака}
while length(str)=0 do begin
writeln('Работа с пустой строкой невозможна. Повторите ввод: ');
readln(str);
end;
{вывод исходных данных}
writeln('Вы ввели строку: ', str);
{сам расчет}
index:=1;
while index< length(str) do begin
if str[index]=' ' then begin
spacenum := 1;
i:=index+1;
while str[i]=' ' do begin
spacenum:=spacenum+1;
i:=i+1;
end;
delete(str,index+1,spacenum-1);
end;
index:=index+1;
end;
{вывод результата}
writeln('Строка-результат: ', str);
{для просмотра результатов}
writeln('Нажмите любую клавишу'); ReadKey;
end.

а вот как можно разбить строчку на 3 и записать всё это дело я не знаю. Помогите пожалйста

ап

[volvo]

Ну, допустим, пробелы лишние убираются в несколько раз проще:

var p: integer;
...
repeat
  p := pos('  ', str);
  if p > 0 then delete(str, p, 1);
until p = 0;
...

аналогично (через Pos) находится позиция пробела, все, что ДО него пишется в первую строку, все, что после второго пробела - в третью...

[jmih]

так вот как записывать в первую строчку ,вторую и тд . можешь подробней объяснить . я в этом полный ноль
pos это оператор ?

Сообщение отредактировано: jmih - 21.12.2006 2:34

[volvo]

Например, так:

var res: array[1 .. 3] of string;
...
i := 1;
repeat
  p := pos(' ', str);
  if p > 0 then begin
    res[i] := copy(str, 1, p - 1);
    delete(str, 1, p);
    i := i + 1;
  end;
until p = 0;
res[i] := str;

{ Проверяем, что получилось }
for p := 1 to i do writeln(res[p]);

[jmih]

Например, так:

var res: array[1 .. 3] of string;
...
i := 1;
repeat
  p := pos(' ', str);
  if p > 0 then begin
    res := copy(str, 1, p - 1);
    delete(str, 1, p);
    i := i + 1;
  end;
until p = 0;
res[i] := str;

{ Проверяем, что получилось }
for p := 1 to i do writeln(res[p]);

сейчас попробую, большее спасибо .
[i]добавлено:
а можно ли сделать так ,чтобы после { Проверяем, что получилось } выводило получившиеся несколько строчек не в одну строку, а каждый раз на новой строке?
я пытался сделать вот так :

writeln('Вот что у нас получилось: ');
for p:=1 to i do
    begin
     writeln(res[p]);
     writeln;
     end;
     readln;

но почемуто не получается...

Сообщение отредактировано: jmih - 21.12.2006 3:01

[jmih]

ладно. и на этом большой спасибо
p.s. поздравляю с наступающий НГ

Сообщение отредактировано: jmih - 21.12.2006 4:11

[volvo]

а можно ли сделать так ,чтобы после { Проверяем, что получилось } выводило получившиеся несколько строчек не в одну строку, а каждый раз на новой строке?

А у тебя что, WriteLn выводит все три слова в одну строку???