1 / 1 / 0
Регистрация: 08.01.2010
Сообщений: 7
1

Вывести слова, в которых гласных букв больше согласных

09.01.2010, 12:05. Показов 4347. Ответов 2
Метки нет (Все метки)

1)Дан массив из n слов произвольной длины
(длина слова не превышает 80 символов).
Символами могут быть только заглавные латинские
буквы. Найти и вывести все слова, у которых
число гласных букв превышает чис-ло согласных.
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
program pr1;
uses crt;
type T_str=array[1..10] of string[80];
       T_set=set of char;
var s: T_str;
     alf:T_set;
     n,i.j:byte;
    g,m:integer;
begin
   clrscr;
  alf:=['A'..'Z'];
  repeat
   write('введите количество слов(не более 10)');
   readln(n);
   f not (n in [1..10]) then
begin
  writeln;
  writeln('ошибка ввода');
  writeln;
end;
 until (n in [1..10]);
 for i:=1 to n do
 begin
  write('введите,'i,'слово');
   readln(s[i]);
   for j:=lendth(s[i]) downto 1 do
  if UpCase(s[i,j]) in alf then
 begin
Собственно вот я начала делать, а дальше никак((не знаю нужно ли в константе обозначить гласные буквы или как то по другому..

2. Дана матрица А(n*m). Получить матрицу, полученную из данной перестановкой столбцов: первого с последним, второго и предпоследним и т.д.-я всю программу написала, кроме тех заветных 2-3 строчек, в которых и будет происходить перестановка столбцов...я уже все перепробовала, переставляется все, но только не то, что надо. Помогите пожалуйста!...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2010, 12:05
Ответы с готовыми решениями:

Найти и вывести все слова, у которых число гласных букв превышает число согласных
Доброй ночи :] Помогите решить следующие задачи: 1)Дан массив из Н слов произвольной длины, но не...

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

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

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

2
9 / 9 / 3
Регистрация: 16.11.2009
Сообщений: 44
09.01.2010, 13:51 2
Держи прогу:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program glas;
uses crt;
type T_str=array[1..10] of string[80];
     T_set=set of char;
var s,new: T_str;
    alf,gls,sogl: T_set;
    kol,i,j,kolg,kolsg,schet:byte;
    prom: string;
begin
clrscr;
textcolor(green);
schet:=1;
kolg:=0; kolsg:=0;
alf:=['A'..'Z'];
gls:=['A','E','I','O','U','Y'];
sogl:=['B','C','D','F','G','H','J','K',
'L','M','N','P','Q','R','S','T','V','W','X'];
writeln;
writeln(' Vvedite kol-vo slov(ne > 10 !):');
readln(kol);
writeln;
textcolor(red);
writeln(' VVODIM TOLKO ZAGLAVNIMI !!!');
textcolor(green);
writeln;
for i:=1 to kol do
   begin
   writeln(' vvod ',i,'-go slova:');
   readln(s[i]);
   prom:=s[i];
   kolg:=0; kolsg:=0;
   for j:=1 to length(prom) do
      begin
      if (prom[j] in gls) then
         kolg:=kolg+1
      else kolsg:=kolsg+1;
      end;
      if kolg>kolsg then
         begin
         new[schet]:=prom;
         schet:=schet+1;
         end;
   end;
clrscr;
writeln;
writeln(' IsHodnii massiv slov:');
writeln;
for i:=1 to kol do
   begin
   write(' ',s[i]);
   end;
readkey;
writeln;writeln;
writeln(' Slova gde > glas.');
writeln;
for i:=1 to schet do
   begin
   write(' ',new[i]);
   end;
readkey;
end.
Правда она только на английскую раскладку. Пиши транслитом, типа PREVED,MEDVED ну и в том духе...)
1
1 / 1 / 0
Регистрация: 08.01.2010
Сообщений: 7
09.01.2010, 18:42  [ТС] 3
огромное спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2010, 18:42
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru