Помощь - Поиск - Пользователи - Календарь
Полная версия: Procedure & Function2003
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
<Maximus_2003_>
          PLEASE HELP!!!
                                            Задача
 Дано N-ое кол-во слов. Вывести слово в катором боше гласных.
                                           {нужно решить с помощью процедуры}
       

                                       ???      

                 НУЖНО ОЧЕНЬ СРОЧНО!!!!!!!!!!!!!
                                                                                        PLEASE!!!!!!!
trminator
А с помощью функции можно?
Код

{Функция считает кол-во гласных в слове}
function count_glasn(var s : string): byte; {s - слово, которое проверяем}
const glasn: set of char =['a','e','i','o','u','y'];
var i, res : byte;
begin res:=0;
   for i:=1 to length(s) do
     if s[i] in glasn then inc(res);
   count_glasn := res
end;

{тестовая программа}
var s     : string;
   max   : byte;
   cur   : byte;
   max_s : string;
   i, N : integer;
begin
   readLn(N); max:=0;
   for i:=1 to N do
   begin
       readLn(s); cur := count_glasn(s);
       if cur > max then
       begin
           max_s := s;
           max := cur
       end;
   end;
   writeLn(max_s)
end.
Finc
А зачем так париться, с процедурой же легче
trminator
Цитата
А зачем так париться, с процедурой же легче

Так напиши как, а то по-моему, эта прога очень простая. Неуж еще проще можно?
Altair
а мне кажется, что нет разницы:
переделать из функции в процедуру легко, только
функция в данном случае действительно лучше!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.