Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
kraaasoootka
3 / 3 / 1
Регистрация: 18.01.2012
Сообщений: 67
#1

Модули. Определить в каком из двух слов количество гласных букв больше - Turbo Pascal

30.03.2012, 19:54. Просмотров 408. Ответов 1
Метки нет (Все метки)

Создать модуль по обработке строк, модуль должен содержать следующие подпрограммы:
1)Функция подсчета гласных букв в строке
2)Процедура измеряющая один заданный символ другим заданным символом
Использовать этот модуль, решить следующую задачу: с клавиатуры вводятся два слова определить в каком из них количество гласных букв больше и в каждом слове заменить букву "о"-символом "*".
ПОМОГИТЕ ПОЖАЛУЙСТА
http://www.cyberforum.ru/turbo-pascal/thread751129.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2012, 19:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Модули. Определить в каком из двух слов количество гласных букв больше (Turbo Pascal):

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

Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте
привет помоги пожалуйста решить задачу по практике,буду очень благодарен(4. Дан...

Найти слово с наибольшим числом гласных букв и отсортировать массив слов по убыванию числа гласных букв
В массиве слов найти слово с наибольшим числом гласных букв и отсортировать...

Определить, гласных или согласных букв в слове больше
Дано предложение. Используя множества, определить, гласных или согласных букв в...

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

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
30.03.2012, 20:15 #2
Лучший ответ Сообщение было отмечено kraaasoootka как решение

Решение

модуль, сохранить в папке с основной программой под именем myunit.pas
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
unit myunit;
 
interface
uses crt;
const g:set of char=['Ё','У','Е','Ы','А','О','Э','Я','И','Ю',
                     'ё','у','е','ы','а','о','э','я','и','ю',
                     'E','Y','U','I','O','A',
                     'e','y','u','i','o','a'];
 
function KolG(s: string): byte;
procedure Change(var s: string);
 
implementation
 
function KolG(s: string): byte;
var i,k: byte;
begin
k:=0;
for i:=1 to length(s) do
    if s[i] in g then inc(k);
KolG:=k;
end;
 
procedure Change(var s: string);
var i: byte;
begin
for i:=1 to length(s) do
    if (s[i]='o') or (s[i]='O') or (s[i]='о') or (s[i]='О')
       then s[i]:='*';
end;
 
end.
основная программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt,myunit;
var s1,s2:string;
 
begin
write('Первое слово: '); readln(s1);
write('Второе слово: '); readln(s2);
if KolG(s1)>KolG(s2) then writeln('В первом слове больше гласных')
   else if KolG(s2)>KolG(s1) then writeln('Во втором слове больше гласных')
        else writeln('Количество гласных в словах одинаково');
Change(s1); Change(s2);
writeln('Преобразованные слова: ');
writeln(s1,' ',s2);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2012, 20:15
Привет! Вот еще темы с решениями:

Определить, каких букв больше в тексте – гласных или согласных.
здарова помоги решить задачу ( Дан текст из строчных латинских букв. Определить...

Определить, каких букв — гласных или согласных больше в строке
Задание: Ввести строку, содержащую цифры и буквы латинского алфавита....

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

Определить, каких букв - гласных или согласных больше в тексте
Дан текст из цифр и строчных латинских букв. Определить, каких букв - гласных...


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

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

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