Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: jmih 21.12.2006 2:15

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

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

Как удалить пробелы я знаю.
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 21.12.2006 2:22

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

var p: integer;
...
repeat
  p := pos('  ', str);
  if p > 0 then delete(str, p, 1);
until p = 0;
...
аналогично (через Pos) находится позиция пробела, все, что ДО него пишется в первую строку, все, что после второго пробела - в третью...

Автор: jmih 21.12.2006 2:26

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

Автор: volvo 21.12.2006 2:39

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

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 21.12.2006 2:45

Цитата(volvo @ 20.12.2006 22:39) *

Например, так:
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:56

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

Автор: volvo 21.12.2006 17:21

Цитата(jmih @ 20.12.2006 21:45)
а можно ли сделать так ,чтобы после { Проверяем, что получилось } выводило получившиеся несколько строчек не в одну строку, а каждый раз на новой строке?

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