Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Procedure & Function2003

Автор: <Maximus_2003_> 23.12.2003 3:09

          PLEASE HELP!!!
                                            Задача
 Дано N-ое кол-во слов. Вывести слово в катором боше гласных.
                                           {нужно решить с помощью процедуры}
       

                                       ???      

                 НУЖНО ОЧЕНЬ СРОЧНО!!!!!!!!!!!!!
                                                                                        PLEASE!!!!!!!

Автор: trminator 24.12.2003 0:59

А с помощью функции можно?

Код

{Функция считает кол-во гласных в слове}
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 24.12.2003 18:12

А зачем так париться, с процедурой же легче

Автор: trminator 24.12.2003 19:20

Цитата
А зачем так париться, с процедурой же легче

Так напиши как, а то по-моему, эта прога очень простая. Неуж еще проще можно?

Автор: Altair 4.01.2004 14:27

а мне кажется, что нет разницы:
переделать из функции в процедуру легко, только
функция в данном случае действительно лучше!