Главная

Добавление пробелов в строку

вс, 03/20/2011 - 22:01 — tech
Темы учебника
Процедуры и функции для работы со строками
Строковый тип данных в Паскале
Задача: 

Добавить в строку пробелы после знаков препинания, если они там отсутствуют.

Алгоритм решения задачи: 
  1. Извлечь очередной символ из строки.
  2. Если он является знаком препинания, а после него нет пробела, то скопировать часть строки до этого символа включительно, добавить пробел и скопировать оставшуюся часть строки.
Программа на языке Паскаль:  

var
    s: string;
    c: char;
    i: byte;
begin
    write('String: ');
    readln(s);
    i := 1;
    repeat
        c := s[i];
        if ((c='.')or(c=',')or(c='!')or(c='?')) and (s[i+1]' ') then
            s := copy(s,1,i) + ' ' + copy(s,i+1,length(s)-i);
        i := i + 1;
    until (i >= length(s));
    writeln('String: ',s);
readln
end.

  • Добавить комментарий

Комментарии

ср, 04/23/2014 - 13:17 — Гость

А что вводить после запуска

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

  • ответить
пт, 04/25/2014 - 09:30 — Гость

строку

Строку =_=

  • ответить
ср, 04/30/2014 - 00:37 — Гость

молю о помощи!

А как сделать такую программу без массива? Очень нужно, зависит годовая оценка, а нам сказали каждую строчку то боя снять!(
И конкретно что ввести после запуска программы?
Молю о помощи!

  • ответить
чт, 05/01/2014 - 18:35 — Гость

А здесь и нет массива.

А здесь и нет массива.

  • ответить
чт, 05/01/2014 - 15:24 — Гость

Вот.

const
  znaki = [',', '.', ':', ';', '!', '?'];
 
var
  s: string;
  i: integer;
 
begin
  readln(s);
 
  i := 1;
  while i (s) do
  begin
    if (s[i] in znaki) and ((s[i + 1])  ' ') then
      begin insert(' ', s, i+1);end;
    inc(i); write(s[i]);
  end;
end.

  • ответить
чт, 05/01/2014 - 14:14 — Гость

А Где вы видели тут массив? в

А Где вы видели тут массив?
в поле строки вводите строку со знаками препинания с пробелами после них и без пробелов. тоесть проверяйте выполнение условия задачи (если есть пробелы после знак преп то не выполнять действий иначе добавить пробел)

  • ответить
чт, 12/13/2012 - 22:26 — Гость

А как допустим вставить

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

  • ответить
пт, 10/12/2012 - 08:20 — Гость

ну и...допустим 15 символов

ну и...
допустим 15 символов в строке...
аб.в.о.аб.в.а.о
находим первую точку, ставим пробел...длина строки стала 16..
находим вторую ставим пробел..длина строки 17.. и т.д.
но цикл прокручивается только 15 раз..поэтому знаки которые стоят после 15 символа не будут проверяться...

  • ответить
чт, 05/01/2014 - 15:26 — Гость

это если писать цикс с

это если писать цикс с постусловием. Используйте repeat или while

  • ответить
Пнд, 03/12/2012 - 20:53 — Кодер (не проверено)

var str: String; i:

var
  str: String;
  i: Byte;
  begin
  write('str=');
  readln(str);
  for i:=1 to length(str) do
    case str[i] of
    '.',',','!','?',':':
    if str[i+1]  ' ' then
      insert(' ',str,i+1);
    end;
  write(str);
  end.

  • ответить
сб, 02/01/2014 - 14:39 — Гость

спасибо

спасибо, второй вариант подошел

  • ответить