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

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

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

Автор: Kristina20 29.05.2006 22:15

№1.
Создать массив, который заполняют 15 словами длиной 5-12 символов.
Вывести на экран, сколько процентуально каждое слово содержит гласных..
Помогите найти ошибку и исправьте её,пожалуйсто!!!!! wub.gif


Прикрепленные файлы
Прикрепленный файл  UZD7.PAS ( 607 байт ) Кол-во скачиваний: 228

Автор: volvo 29.05.2006 22:21

Kristina20, Дежа-Вю?
http://forum.pascal.net.ru/index.php?showtopic=11014

Как ты думаешь, если я запостил решение, наверное я его проверил?
Зачем понадобилось менять буквы множества на маленькие? Там же UpCase - перевод в верхний регистр, значит, и сравнивать надо с большими blum.gif

Автор: Kristina20 29.05.2006 22:35

blink.gif неужели это имеет значение: маленькие или большие!!!сейчас попробую

А У МЕНЯ ВСЁ РАВНО НЕ ПОЛУЧАЕТСЯ!!!!!пишется DIVISSION BY ZERO, когда программа просит ввести слово no1.gif

Автор: volvo 29.05.2006 22:53

Ха... Что ж ты хочешь?

uses crt;
const n=15; { <-- 15, а не 5 - по условию }
var
mas:array[1..n] of string[12];
i,j,count:integer;
begin
clrscr; writeln('ievadiet vardu');
for i:=1 to n do begin
readln(mas[i]); { <-- Вводим слово !!! }
count:=0;
for j:=1 to length(mas[i]) do
if upcase(mas[i][j]) in ['A','E','I','O','U']
then inc(count);
writeln('vards',mas[i],'sastav',count/length(mas[i]),'% patskanjus');
end;
end.
Поняла, где ошибка? Ты слово не вводила, естественно, его длина считалась = 0, и ... Деление на 0 smile.gif

Автор: Kristina20 29.05.2006 23:36

good.gif good.gif good.gif to4no!!!!vse ponjala,spasibo!!!! give_rose.gif