С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
jakewow
0 / 0 / 1
Регистрация: 22.12.2010
Сообщений: 27
1

Найти количество слов, у которых по две буквы "а"

05.01.2011, 23:26. Просмотров 548. Ответов 1
Метки нет (Все метки)

Прога на Borland Delphi 7.
В общем почему то у меня цикл не хочет работать =(. Например слова салфетка работа, программа на экран выведет только то что в 1 слове нашла 2 буквы а, а во втором не нашла, как я понимаю цикл просто прекращает работу.

Код
procedure TForm1.Button1Click(Sender: TObject);
var
  schet,kolvoprobelov,kolvoprep,kolvoslov:integer;
  i,j:integer;
  tmp:string;
const bukva=['а'];

 begin

kolvoslov:=0;
schet:=0;
for i:=0 to Memo1.Lines.Count-1 do
   begin
    tmp:=Memo1.Lines.Strings[i];
    for j:=1 to length(tmp) do
       begin
        for j:=1 to length(tmp) do
        begin
         if(tmp[j] in bukva) then
         begin
          schet:=schet+1;
          if (schet=2) then
           begin
            kolvoslov:=kolvoslov+1;
           end;
         end;
Edit1.Text:=inttostr(kolvoslov);
 end;
 end;
  end;
пробовал так
Код
 
while j<>length(tmp) do
begin
if(tmp[j] in bukva) then
         begin
          schet:=schet+1;
          if (schet=2) then
           begin
            kolvoslov:=kolvoslov+1;
Так программа вообще зависает на мертво =(.
Помогите пожалуйста!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2011, 23:26
Ответы с готовыми решениями:

Дана строка, состоящая из слов, разделенных пробелом. Определить количество слов, в которых есть хотя бы одна буква "а", или "А"
Дана строка, состоящая из слов, разделенных пробелом. Определить количество...

Найти в строке количество слов, содержащих три буквы "А"
дана строка,состоящая из русских слов,разделённых пробелами. определите...

Найти количество слов, которые содержат ровно 3 буквы "А"
Дана строка состоящая из русских слов, набранных заглавными буквами и...

Нужно найти в строке все слова, в которых есть буквы "о" и "и"
Нужно найти в строке все слова ,в которых есть буквы &quot;о&quot; и &quot;и&quot;, и вывести их. Я...

В каждой строке массива найти количество букв "е", расположенных справа от буквы "н"
В каждой строке массива найти количество букв е, расположенных справа от буквы...

1
AndreyLitvinov
6 / 6 / 3
Регистрация: 03.01.2011
Сообщений: 35
07.01.2011, 07:17 2
Просто сюда
if (schet=2) then
begin
kolvoslov:=kolvoslov+1;
schet:=0; - вот что нужно добавить
end;
А без этого у тебя получается что переменная SCHET постоянно растет и после.... Пишу онлайн не проверял ну думаю верно))))

Добавлено через 13 секунд
Просто сюда
if (schet=2) then
begin
kolvoslov:=kolvoslov+1;
schet:=0; - вот что нужно добавить
end;
А без этого у тебя получается что переменная SCHET постоянно растет и после.... Пишу онлайн не проверял ну думаю верно))))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2011, 07:17

Найти самое длинное слово среди слов, вторая буква которых есть "е"
Дан символьный файл f. Найти самое длинное слово (см. предыдущую задачу) среди...

Строки, найти количество слов, заканчивающихся на букву "я"
Составить программу: Дана строка символов, разделенная пробелам, найти кол-во...

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова &quot;Работа&quot;,&quot;крест&quot;,&quot;тон&quot; составить фразу:&quot;Кто не работает, тот не ест&quot; и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru