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

@nikita7991 · Регистрация: 16.04.2013

В заданном тексте удалить из текста пробелы и подсчитать длину сформированного текста.

@Soniyagfto · 18.11.2013, 20:16

Pascal

program test1;
var s,s1:string;
i,j:integer;
begin
writeln('Введите строку');
readln(s);
j:=1;
s1:='';
for i:=1 to length(s) do begin
if s[i]=' ' then begin
s1:=s1+copy(s,j,i-j);
j:=i+1;
end;
end;
s1:=s1+copy(s,j,length(s)-j+1);
writeln('Длинна исходной строки',' ',length(s1),' ','Символов');
readln;
end.

@Cyborg Drone · 19.11.2013, 00:42

Soniyagfto, Ваш код не соответствует заданию.

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

подсчитать длину сформированного текста

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

Pascal

1	writeln('Длинна исходной строки',' ',length(s1),' ','Символов');

Всё гораздо проще.

Pascal

program unspace;
 
var s: string;
 
begin
  writeln('Enter string:');
  readln(s);
  while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);
  writeln('Unspaced string:');
  writeln(s);
  writeln('Length = ', length(s));
  readln
end.

@Soniyagfto · 19.11.2013, 01:06

Сообщение от Cyborg Drone

Soniyagfto, Ваш код не соответствует заданию. Всё гораздо проще.

Pascal

program unspace;
 
var s: string;
 
begin
  writeln('Enter string:');
  readln(s);
  while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);
  writeln('Unspaced string:');
  writeln(s);
  writeln('Length = ', length(s));
  readln
end.

Как так,не соответствует?
Удаляем пробелы, считаем длину получившейся строки.

@Cyborg Drone · 19.11.2013, 01:15

У Вас написано в коде: "исходной строки". Всё, несоответствие. А что далее у Вас написано абсолютно правильно "length(s1)" уже не может устранить созданной Вами лёгкой неопределённости.

Не по теме:

Если на клетке со слоном написано: "буйвол" - не верь глазам своим.
Козьма Прутков.

@Soniyagfto · 19.11.2013, 09:53

Сообщение от Cyborg Drone

У Вас написано в коде: "исходной строки". Всё, несоответствие. А что далее у Вас написано абсолютно правильно "length(s1)" уже не может устранить созданной Вами лёгкой неопределённости.

Не по теме:

Если на клетке со слоном написано: "буйвол" - не верь глазам своим.
Козьма Прутков.

Возможно я не знаю значение понятия "Исходная"

@Cyborg Drone · 19.11.2013, 12:02

Простите старого буквоеда, что это я, в самом деле. Нужно было бы мне написать:
Soniyagfto, неточность: замените "исходной" на "полученной". А я тут развёл крючкотворство...

@nikita7991 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 121
		1
	В заданном тексте удалить из текста пробелы и подсчитать длину сформированного текста 18.11.2013, 18:01. Показов 1394. Ответов 6 Метки нет (Все метки) В заданном тексте удалить из текста пробелы и подсчитать длину сформированного текста. 0

@Cyborg Drone Модератор 9528 / 4857 / 3228 Регистрация: 17.08.2012 Сообщений: 15,194
	19.11.2013, 01:15	5
	У Вас написано в коде: "исходной строки". Всё, несоответствие. А что далее у Вас написано абсолютно правильно "length(s1)" уже не может устранить созданной Вами лёгкой неопределённости. Не по теме: Если на клетке со слоном написано: "буйвол" - не верь глазам своим. Козьма Прутков. 0

@Soniyagfto 60 / 67 / 37 Регистрация: 29.01.2013 Сообщений: 374 Записей в блоге: 1
	19.11.2013, 09:53	6
	Сообщение от Cyborg Drone У Вас написано в коде: "исходной строки". Всё, несоответствие. А что далее у Вас написано абсолютно правильно "length(s1)" уже не может устранить созданной Вами лёгкой неопределённости. Не по теме: Если на клетке со слоном написано: "буйвол" - не верь глазам своим. Козьма Прутков. Возможно я не знаю значение понятия "Исходная" 0

@Cyborg Drone Модератор 9528 / 4857 / 3228 Регистрация: 17.08.2012 Сообщений: 15,194
	19.11.2013, 12:02	7
	Простите старого буквоеда, что это я, в самом деле. Нужно было бы мне написать: Soniyagfto, неточность: замените "исходной" на "полученной". А я тут развёл крючкотворство... 0

Опции темы