VPF::Задача в Паскале - Форум программистов

Atton

Дата 4.6.2006, 04:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.6.2006

Репутация: нет
Всего: нет

СТРОКОВЫЕ ВЫРАЖЕНИЯ

Дана строка символов, содержащая слова. Определить количество слов, последний и предпоследний символы которых совпадают.

skyboy

Дата 4.6.2006, 20:10 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 5
Всего: 260

Код


const dividers=[' ',',','.','!','?','/','"',#39,'\'];  // то, что считаем разделителями слов - не только пробел может отделять одно слово от другого
var S:string;
      last,prelast,preprelast:char;
      i,lng,count: byte;
begin
writeln('Введите строку');
readln(S);
lng:= length(S);
if lng<2
 then
  begin
   writeln('Слишком короткая строка!');
   exit;
  end;
preprelast:= S[1];
prelast:= S[2];
if (lng=2) AND (preprelast=prelast)
 then
  begin
   writeln('искомых слов - ровно одна штука!');
   exit;
  end;
count:= 0;
i:=3;
while i<=n do
 begin
  if S[i] in dividers            // имеем конец очередного слова; надо проверить последнюю и  предп. буквы
   then
    begin
     if preprelast=prelast
      then
       count:= count + 1;
     while (i<=lng) AND (S[i] in dividers) do i:= i+1; // "пролистаем" подряд идущие разделители
     if i= lng + 1 
      then break;               // подошли к концу строки
     preprelast:= S[i - 2];
     prelast:= S[i - 1];
    end
   else
    begin
     preprelast:= S[i - 2];
     prelast:= S[i - 1];
    end;
  i:= i+1;
 end;
if ((S[i-1] in dividers) and (not (S[i-2] in dividers))) AND (prelast=preprelast)
 then
  count:=count+1;
writeln('Вот оно - количество - ',count);
end.

Вроде, так.

Atton

Дата 6.6.2006, 04:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 1.6.2006

Репутация: нет
Всего: нет

skyboy
Спасибо)))
Один пробл правда есть - ошибка указывает на переменную n, в 25 строке.

skyboy

Дата 6.6.2006, 08:24 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 5
Всего: 260

вместо неё там должна быть переменная lng.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »