IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> гласные буквы...., исправление ошибки!!!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Kristina

Репутация: -  0  +


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


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


--------------------
Help!!!I need it!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Kristina20, Дежа-Вю?
Гласные буквы в массиве

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


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Kristina

Репутация: -  0  +


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

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


--------------------
Help!!!I need it!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Ха... Что ж ты хочешь?
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
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Женский
Реальное имя: Kristina

Репутация: -  0  +


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


--------------------
Help!!!I need it!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 20.08.2017 7:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"