Программа замены пробела на _

[BBorr1]

написать программу заменяющую в предложении все пробелы на знак _




Pascal пробывал не получилось чето) впринципе помогите не сложная задача

[Alex11223]

Дык расскажи\покажи как пробовал и что не получилось.

[BBorr1]

program deletik;
uses crt;
var st:string;
i,l,k:integer;
begin
writeln('vvedite predlojenie');
readln(st);
l:=length(st);
n:='_';
begin
for i:=1 to l do
begin
if (st[i]=' ') then
begin
insert(n,st1);
write(l);
end;
end;
end;
readln;
end.

помогите

[Pudge]

Сообщение от BBorr1

впринципе помогите не сложная задача

Без комментариев...

[BBorr1]

ну кто знает, в чем проблемма подскажите

[Alex11223]

А зачем выводить длину строки после замены пробела?

Вероятно в конце надо вывести строку и в insert откуда-то взялся даже нигде не объявленный st1. Да и insert как-то неправильно используешь: http://www.delphisources.ru/pages/fa...nsert.php.html

Кстати, вместо цикла for можно с помощью while и функции pos (она возвращает 0 когда не найдена подстрока, т.е. в цикле типа while (pos(' ', st) <> 0) заменять на найденной позиции)

И код форматируй нормально, если PascalABC.NET, то там есть волшебная кнопка автоформатирования:

program deletik;

uses
    crt;

var
    st: string;
    i, l, k: integer;

begin
    writeln('vvedite predlojenie');
    readln(st);
    l := length(st);
    n := '_';
    begin
        for i := 1 to l do
        begin
            if (st[i] = ' ') then
            begin
                insert(n, st1);
                write(l);
            end;
        end;
    end;
    readln;
end.

begin ... end;, перед циклом начинается который, не понятно для чего.

[Serge_Bliznykov]

program deletik;
var st:string;
  i :integer;
begin
  writeln('vvedite predlojenie');
  readln(st);
  for i:=1 to length(st) do
    if (st[i]=' ') then st[i] := '_';

  Write('Resultat:');
  Writeln(st);
  readln;
end.

[BBorr1]

благодарю)

[BBorr1]

Alex11223

я там хотел запятую поставить)

[BBorr1]

Помогите: Дано предложение. Добавить к нему в конце столько звездочек, сколько букв в этом слове.