помогите. задача в паскале

[min@y™]

Вот и дай пример автору, а она уж пусть выбирает какой ей наиболее светит )
Я ведь не против.

попросит - напишу.

[Donald Ervin Knuth]

Сообщение от Руслана17

Есть строка, состоящая из слов, разделенных одним или несколькими
пробелами. Вывести строку, содержащую эти же слова , но разделенные одним
пробелом.

program prog27;
var
sl,vodstr,vivodstr:string[255];
k,col,d:integer;
begin
writeln('Введите заданную строку');
readln(vodstr);
col:=ord(vodstr[0]);
sl:=' '; k:=1;vivodstr:='';
  for d:=1 to col do
    begin
        if vodstr[d]<>sl 
        then
           vivodstr:=vivodstr+vodstr[d]
        else 
            begin
              if (vodstr[d]=sl)and (vodstr[d+1]<>sl)
                then
                  begin
                  vivodstr:=vivodstr+sl;
                  k:=k+1;
                 end
                 else
                 k:=k;
             end;
     end;
             writeln(vivodstr);
end.

[Serge_Bliznykov]

нафига что-то удалять? можно выводить строку посимвольно, пропуская лишние пробелы и всё.

золотые слова.

var i : integer;
  S : string;
begin
  WriteLn('Input string:');
  ReadLn(S);
  for i:=1 to Length(S) do
    if i=1 then Write(S[1])
    else
      if (S[i]<>' ') or ((S[i]=' ') and (S[i-1]<>' ')) then Write(S[i]);
end.

[Arigato]

А если первый пробел? Да и в таком случае Write(S[1]) лучше вынести за цикл, а цикл от 2 начать.

[Serge_Bliznykov]

А если первый пробел?

а если первый пробел - это нужно вывести, нам же только дублирующие пробелы нужно убрать. про одиночные ничего не сказано, значит, надо их выводить!

Да и в таком случае Write(S[1]) лучше вынести за цикл, а цикл от 2 начать.

Думал об этом. Решил, что нет, не лучше. Тогда нужно ставить проверку на длину строки, которая может быть равна нулю (пустая строка).

Впрочем, как уже писалось выше - я дал пример, теперь автору темы есть что посмотреть, что доработать до нужного состояния

[Arigato]

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

На счет длины, то ее можно проверить до цикла. Во всяком случае лучше if до цикла, чем if внутри цикла.