символьная информация

@WolfCF · Регистрация: 28.04.2009

Студворк — интернет-сервис помощи студентам

Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом - точка. Определить, кол-во слов, которые заканчиваются буквой 'w'. Помогите пожалуйста сделать.

@Inadequate · 20.11.2009, 10:13

Pascal

const
  dividers=[',','.'];
var
  s,temp:string;
  i,count:integer;
begin
  readln(s);
  temp:='';
  count:=0;
  for i:=1 to length(s) do
    if not (s[i] in dividers) then
      temp:=temp+s[i]
    else
    begin
      if (temp[length(temp)]='w') or (temp[length(temp)]='W') then
        inc(count);
      temp:=''
    end;
  writeln('Òàêèõ ñëîâ çäåñü: ',count)
end.

@WolfCF · 20.11.2009, 10:18 **[ТС]**

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

@Inadequate · 20.11.2009, 10:22

vovka, что значит как осуществить? вы вводите просто строку типа:

Код

qwasfd,qwe,werw,qweerfr,qwedfw.

и программа вам дает результат что таких слов здесь: 2

@WolfCF · 20.11.2009, 10:44 **[ТС]**

Inadequate,извини протупил. Всё, понял, как работает. СПАСИБО!!!

Добавлено через 10 минут
dividers=[',','.'];и "temp" какую функцию выполняют?

@Inadequate · 20.11.2009, 10:51

dividers это множество разделителей.
temp это переменная в которую по букве собирается слово

Добавлено через 1 минуту
т.е. в цикле мы "пробегаем" посимвольно всю строку, если символ s[i] не равен ни одному из разделителей, то мы добавляем этот символ к temp, а если равен, то проверяем последнюю букву temp. Если она равна w или W то прибавляем к счетчику 1

@WolfCF · 20.11.2009, 13:20 **[ТС]**

спасибо! теперь полностью разобрался в программе!)

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
		1
	символьная информация 20.11.2009, 10:05. Показов 993. Ответов 6 Метки нет (Все метки) Дана непустая последовательность непустых слов из латинских букв; соседние слова отделены друг от друга запятой, за последним словом - точка. Определить, кол-во слов, которые заканчиваются буквой 'w'. Помогите пожалуйста сделать. 0

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	20.11.2009, 10:18 [ТС]	3
	А как осуществить сам ввод слов? и далее программа выводит результат, сколько таких слов и есть ли они? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	20.11.2009, 10:22	4
	vovka, что значит как осуществить? вы вводите просто строку типа: Код qwasfd,qwe,werw,qweerfr,qwedfw. и программа вам дает результат что таких слов здесь: 2 1

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	20.11.2009, 10:44 [ТС]	5
	Inadequate,извини протупил. Всё, понял, как работает. СПАСИБО!!! Добавлено через 10 минут dividers=[',','.'];и "temp" какую функцию выполняют? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	20.11.2009, 10:51	6
	dividers это множество разделителей. temp это переменная в которую по букве собирается слово Добавлено через 1 минуту т.е. в цикле мы "пробегаем" посимвольно всю строку, если символ s[i] не равен ни одному из разделителей, то мы добавляем этот символ к temp, а если равен, то проверяем последнюю букву temp. Если она равна w или W то прибавляем к счетчику 1 1

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	20.11.2009, 13:20 [ТС]	7
	спасибо! теперь полностью разобрался в программе!) 0

Опции темы