Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 26
1
Delphi 6-7

В заданном предложении указать слово, в котором доля гласных (A,E,I,O,U) максимальна

29.11.2018, 18:18. Показов 1041. Ответов 4

В заданном предложении указать слово, в котором доля гласных (A,E,I,O,U) максимальна. (Решить использованием процедуры или функции).
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2018, 18:18
Ответы с готовыми решениями:

В заданном предложении указать слово, в котором доля буквы «а» максимальна
Разработать программу решения задачи с использованием процедур и функций над строками и операций...

В заданном предложении указать слово, в котором доля буквы «а» максимальна.
Помогите срочно решить пожалуйста Добавлено через 42 секунды 1 В заданном предложении указать...

В заданном предложении указать слово, в котором есть гласные буквы а, и, о.
В заданном предложении указать слово, в котором есть гласные буквы а, и, о.

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

4
Эксперт Pascal/Delphi
6757 / 4531 / 4802
Регистрация: 05.06.2014
Сообщений: 22,351
29.11.2018, 18:22 2
Указать слово, в котором доля гласных максимальна
1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
29.11.2018, 18:23 3
Цитата Сообщение от d1q Посмотреть сообщение
доля гласных (A,E,I,O,U)
Только прописные или и a,e,i,o,u тоже?
0
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 26
29.11.2018, 18:31  [ТС] 4
Только прописных
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
29.11.2018, 19:10 5
Лучший ответ Сообщение было отмечено d1q как решение

Решение

Ну тогда выбирай по ссылке что больше понравится.

Добавлено через 38 минут
Можно написать так, с формой.

Delphi
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
$R *.dfm}
const lb=['A'..'Z']; //все прописные латинские
      gl=['A','E','I','O','U'];//гласные
      rz=[' ',',']; //разделители(можно добавить)
      ds=lb+rz+[#8];//допустимые символы для ввода
//функция количества гласных в слове
function Glas(s:string):integer;
var i:integer;
begin
result:=0;
for i:=1 to length(s) do
if s[i] in gl then inc(result);
end;
//разрешение ввода только прописных латинских букв, разделитлей
// и BackSpase для стирания ненужных символов
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ds) then key:=#0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var s,s1,smx:string;
    i,j,mx:integer;
begin
s:=Edit1.Text; //читаем строку
s:=' '+s; //добавим в начало пробел для удобства
mx:=0;
i:=2;
while i<length(s) do
if not(s[i] in rz)and(s[i-1] in rz) then//если не разделитель, а перед ним разделитель, новое слово
 begin
  j:=i;
  s1:=''; //будем его составлять
  while(j<=length(s))and not(s[j]in rz) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if Glas(s1)>mx then //проверяем количество гласных на максимальность
   begin
    mx:=Glas(s1);
    smx:=s1; //слово с макс. кол. гласных
   end;
  i:=i+length(s1); //перешагиваем через слово
 end
else i:=i+1;//пропускаем разделители
if mx=0 then ShowMessage('В предложении нет гласных букв')
else Label1.Caption:='Наибольшее количество гласных в слове '+smx;
 
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2018, 19:10

В заданном предложении поменять местами первое слово и самое длинное слово
Кто-нибудь, помогите решить задачи на Lazarus или Delphi! 1. В заданном предложении поменять...

В заданном предложении удалите каждое второе слово
type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure...

Найти самое длинное симметричное слово в заданном предложении
Как в программе определяется симметричное слово или нет? sW2 := S + sW2; //Слово в обратном...

Найти самое длинное симметричное слово в заданном предложении
Помогите, ввожу симметричные слова, а мне постоянно выдаёт симметричных слов нет! unit Unit1; ...


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

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

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