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

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

Форум «Всё о Паскале» _ Задачи _ Гласные буквы в массиве

Автор: Kristina20 24.05.2006 15:58

Приветик!
Люди, помогите пожалуйста написать программу..Очень нужно, так как сдавать уже в пятницу.
Я конечно понимаю что она лёгкая.
Создать массив, который заполняют 15 словами длиной 5-12 символов.
Вывести на экран, сколько процентуально каждое слово содержит гласных..
Хоть убейте, не доходит,как именно найти эти гласные!!! wub.gif Прикрепленный файл  UZD7.PAS ( 630 байт ) Кол-во скачиваний: 686

Автор: volvo 24.05.2006 16:11

Цитата(Kristina20 @ 24.05.2006 11:58)
Хоть убейте, не доходит,как именно найти эти гласные!

Ну, начала же делать правильно smile.gif

Только цикл должен выглядеть так:
for i:=1 to n do begin
  count := 0; { <--- Будем считать, сколько гласных в i-ом слове }
  for j:=1 to length(mas[i]) do
    if upcase(mas[i][j]) in ['A', 'E', 'I', 'O', 'U'] then inc(count);
  writeln('word ', mas[i], ' contains ', count/length(mas[i]), '% of vowels');
end;


И еще одно: секция Const должна быть описана ПОСЛЕ Uses...

Автор: Kristina20 24.05.2006 20:41

ОГРОМНОЕ СПАСИБО!!!!!! rolleyes.gif