Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.04.2008, 12:10   #1
vit_al
Новичок
Джуниор
 
Регистрация: 24.04.2008
Сообщений: 1
По умолчанию Помогите с задачей..

это условие:В заданном предложении указать слово, в котором доля гласных (A, E, I, O) максимальна
vit_al вне форума
Старый 24.04.2008, 12:24   #2
Povar
Новичок
Джуниор
 
Регистрация: 10.04.2008
Сообщений: 43
По умолчанию

ты напиши задачу по нормальному, из того что ты написал, можно сделать 4 цикла на проверку этих букв в предложении и выявить число максимальных букв!!!!!!
Povar вне форума
Старый 24.04.2008, 13:20   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

http://programmersforum.ru/showthrea...%E0%F1%ED%FB%F
http://programmersforum.ru/showthrea...E0%F1%ED%FB%F5
Нечего кросспостить.
I'm learning to live...
Stilet вне форума
Старый 24.04.2008, 13:48   #4
Greblin
Меркантильный кю
Участник клуба
 
Аватар для Greblin
 
Регистрация: 02.02.2008
Сообщений: 1,001
По умолчанию

Лови свой код. Заодно подучи англйский, там ещё одна гласная буква есть :-)
Код:
var predl: string; //наше предложение
    word: string;  //текущее слово
    maxword: string; //искомое слово
    percent: real; //процент гласных в текущем
    maxpercent: real; //процент гласных в искомом
    glasn: set of char; //множество гласных букв
    letters: set of char; //множество всех букв
    ch: char; //очередной символ
    i: integer;
    wln, gcount: integer; //длина и колво гласных в текущем

begin
glasn := ['A', 'E', 'I', 'U', 'O', 'a', 'e', 'i', 'u', 'o'];
letters := ['A'..'Z', 'a'..'z'];
//заполняем множества
readln(predl);
wln := 0;
gcount := 0;
maxpercent := 0;
maxword := '';
word := '';
for i := 1 to length(predl) do
  //пробегаем по всем символам
  begin
  ch := predl[i];
  if ch in letters then
  //если очередной символ буква
    begin
    word := word + ch;
    //дописываем сивол к текущему слову
    wln := wln + 1;
    if ch in glasn then
      gcount := gcount + 1;
    //увелчиваем колво букв и гласных в текущем
    end
  else
  //если нет то это какой-то разделитель слов
    begin
    if wln > 0 then
    //проверяем не будет ли деления на 0
    //такая ситуация может возникнуть если у нас 2 разделителя подряд
      begin
      percent := gcount / wln;
      //вычисляем процент
      if (percent > maxpercent) then
        begin
        maxword := word;
        maxpercent := percent;
        end;
      //сравниваем
      wln := 0;
      gcount := 0;
      word := '';
      //начинаем обработку нового слова
      end;
    end;
  end;

if wln > 0 then
  begin
  percent := gcount / wln;
  if (percent > maxpercent) then
    begin
    maxword := word;
    maxpercent := percent;
    end;
  wln := 0;
  gcount := 0;
  word := '';
  end;
//необходимо для обработки последнего слова, если не в конце не поставлен разделитель

writeln(maxword);
end.
Росли вроде умными, выросли дурнями... (c)А.Васильев
Greblin вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачей. terminadoor Помощь студентам 4 22.07.2008 18:38
Помогите с задачей drossel Общие вопросы C/C++ 9 01.06.2008 21:45
Помогите с задачей в С++ vovchara Помощь студентам 2 22.04.2008 22:49
Помогите с задачей Лёха Паскаль, Turbo Pascal, PascalABC.NET 7 08.02.2008 20:08
Помогите с задачей bel_ka Общие вопросы C/C++ 13 26.12.2007 19:23