Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Black Angel
6 / 6 / 1
Регистрация: 26.01.2010
Сообщений: 216
#1

Найти количество гласных в строке текстового файла - Delphi

22.04.2010, 16:55. Просмотров 330. Ответов 1
Метки нет (Все метки)

Надо найти количество гласных в строке текстового файла через функцию.
Вот мой вариант задачи:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function str(s:string):integer;
var i,n:integer;
begin
if (s[i]='e') or (s[i]='y') or (s[i]='u') or (s[i]='i') or (s[i]='o') or (s[i]='a') then n:=n+1;
end;
str:=n;
end;
var s:string;
     n:integer;
     t:textfile;
begin
Assignfile(t,'input.txt');
reset(t);
While not EOF(t) do
begin
readln(t,s);
n:=str(s);
writeln(n);
end;
readln;
end.
Как можно её проще сделать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2010, 16:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти количество гласных в строке текстового файла (Delphi):

В строке посчитать количество гласных и согласных и записать из количество в конце строки
В строке посчитать количество гласных и согласных и записать из количество в...

Написать программу, которая подсчитывает количество гласных букв в строке
Написать программу, которая подсчитывает количество гласных букв в строке. Кому...

Найти количество отрицательных элементов в каждой строке файла
Дан текстовый файл, содержащий целые числа. Найти количество отрицательных ...

Подсчитать все буквы «А» в каждой строке текстового файла и заменить их на «*»
Реализовать программу подсчета букв «А» в каждой строке текстового файла и...

Подсчитать количество строк текстового файла
Помогите,пожалуйста, написать программу,которая из текстового файла со...

Посчитать количество различных чисел из текстового файла
Дан текстовый файл, состоящий из натуральных чисел, числа двузначные, как...

1
Жека-старший
Студент
496 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
22.04.2010, 17:37 #2
Pascal
1
2
3
4
5
6
7
function str(s:string):integer;
var i,n:integer;
begin
for i:=1 to length(s) do//нужен цикл, для проверки всех букв в строке
if (s[i] in ['e','E','y','Y','u','U','i','I','o','O','a','A']) then n:=n+1;
str:=n;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2010, 17:37
Привет! Вот еще темы с решениями:

Найти все слова, содержащие наибольшее количество гласных латинских букв
Помогите пожалуйста. последняя задача осталась. Не могу сообразить как...

Нужно подсчитать сколько букв «А» в каждой строке текстового файла и затем заменить эти буквы на «*»
Нужно подсчитать сколько букв «А» в каждой строке текстового файла и затем...

Дан текст на русском языке. Найти количество гласных букв в первом слове
Дан текст на русском языке. Найти количество гласных букв в первом слове.Паскаль

String. Найти в тексте слова, в которых содержится наибольшее количество гласных букв
Помогите решить задачу. Пользователем вводится предложение затем выводит слово...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru