Помогите, пожалуйста, написать программу в паскале

КаTько, 224 просмотра

Задание: написать программу, удваивающую пробелы во введенной строке.

То, что пишу я - ужасный говнокод, за который бьют клавиатурой по голове...

Примечание:
Черт, ну хоть помогите отладить то, что есть:
program n1;
var s, s2: string;
i: integer;
begin
writeln('vvedite stroku');
readln(s);
s2 := '';
for i := 1 to length(s) do
begin
if s[i] = ' ' then
s2 := s2 + ' '
else
s2 := s2 + s[i];
end;
writeln(s2);
end.

В результате вот этого удаляются все пробелы

Примечание:
Искусственный интеллект (Искусственный интеллект), у меня вроде то же самое, вот только пробелы не удваиваются, а удаляются напрочь

Примечание:
Спасибо Вам большое!

Ответы:

VOLXOVNIK

Ой,ой...Вы напугали всех и все боятся отвечать..Все Вам хорошего..

Искусственный интеллект

var
s1,s2:string;n,i:integer;
...
//вводим s1 удобным вам способом
...
n:=length(s1);
s2:='';
fot i:=0 to n do
if (s1[i]=' ') s2=s2+' ' else s2=s2+s1[i];
... //после выполнения сего несложного цикла в переменной s2 будет та же строка s1 только с удвоенными пробелами

Искусственный интеллект

var s, s2: string;
i: integer;
begin
writeln('vvedite stroku');
readln(s);
s2 := '';
for i := 1 to length(s) do
begin
if (s[i] = ' ') then
s2 := s2 + ' '
else
s2 := s2 + s[i];
end;
writeln(s2);
end.

Epoxyde 3000

Вот так будет лучше.
.....
for i := 1 to length(s) do
begin
s2:=s2+s[i];
if s[i]=' ' then
s2:=s2+' '
end;
......

Искусственный интеллект

>>Epoxyde 3000
вы написали тоже самое, только переставили условие местами =)

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.