| Автор | Pascal |
|---|
Помогите написать програму на Паскаль:
-Програма которая удаляет все пробели между словами в строчке.Помогите пожайлуста |
| ужас какой |
| лень |
| ну напишите пожайлуста очень нужно |
var i: integer;
inputStr: String;
begin
for i := Length(inputStr) downto 1 do
begin
if inputStr[i] = ' ' then
begin
Delete(inputStr, i, 1)
end;
end;
end |
| знаки препинания расставь по компилятору - я забыл почти синтаксис... |
| ну ти практически написал все правильно только не указал ввод и вивод если кто-то знает точнее напишите или дайте ссилку где можно скачать алгоритм етой задачи |
| я бы подругому написал |
| ну скажите ссилку или алгоритм очень нужно |
для politzek:
на шарпе так вообще в одну строчку :) |
для Koragg:
картинку хочешь готовую ? |
| конечно |
| что то типа такого ? http://masters.donntu.edu.ua/2006/eltf/polinsky/diss/diss8.gif |
| даеш картинку? |
;(( да нет совсем не то.
Вот скачал в инете
program Del_space;
uses Crt;
var
st,st1 :string;
n,i :byte;
begin
ClrScr;
Write('Vvedi stroku:>');Readln(st);
Writeln;
Writeln('isHodnaja stroka:');
Writeln(st);
n:=length(st); {находим длину строки}
st1:='';
for i:=1 to n do
if st[i]<>' ' then st1:=st1+st[i]; {если нам встречается пробел,
то мы его не учитываем}
Writeln('Stroka bez probelov:');
Writeln(st1);
ReadKey; {ожидание нажатия на клавишу}
end.
как думаете все здесь правильно? |
| я бы сказал что правильно :) |
| да програма верная но не работает(( |
| ну скажите дам золото)) |
| Что не так опять ? |
да програма верная но не работает((
а что конкретно не работает? Какую ошибку выдаёт? |
