VPF::Строки, посчитать количество слов.

pon4ik

Дата 4.7.2006, 18:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Люди, сдрасьте!!! У меня опять проблемы, помогите пожалуйста решить задачку!!! Оч прошу!!! Суть задачи: в строку вводятся слова до точки, посчитать их количество. Причем чтобы прога считала тока слова, а не пробелы и точку, у меня же получилось все вместе! Помогите!!!

КОД ПРОГИ:

Код

program Kolichestvo;
uses crt;
var s : string;
    i, k : integer;
begin
clrscr;
writeln('vvedite stroku');
readln(s);
k:=0;
for i:=1 to length(s) do
 begin
  if s[i]=' ' then inc(k);
  if s[i]='.' then k:=k+1;
 end;
writeln('v dannoi stroke ',k,' slov');
readln;
end.

Это сообщение отредактировал(а) volvo877 - 4.7.2006, 18:50

volvo877

Дата 4.7.2006, 18:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

pon4ik, я бы сделал вот так:

Код

program Kolichestvo;
uses crt;
var
  s: string;
  i, k, before: integer;
begin
  clrscr;
  writeln('vvedite stroku');
  readln(s);
  k := 0; before := 0;
  for i:=1 to length(s) do begin

    if s[i] in [' ', '.'] then begin
      if before <> 0 then begin
        before := 0; inc(k);
      end
    end
    else inc(before)

  end;
  writeln('v dannoi stroke ',k,' slov');
  readln;
end.

Fighter

Дата 6.7.2006, 00:54 (ссылка)

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

Загрузка ...

Опытный

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

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

Нужно учесть ситуацию, когда могут ввести очень много пробелов, например вот строка:

Hello World

и строка

Hello World

Просчитайте такую ситуацию.

volvo877

Дата 6.7.2006, 06:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Fighter, а моей программе по барабану, сколько пробелов. Проверь...

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