Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Yastreb111
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 34
#1

Строка: Проверить, каких букв в тексте больше: гласных или согласных. - Pascal ABC

06.03.2013, 07:45. Просмотров 573. Ответов 1
Метки нет (Все метки)

Строка содержит произвольный русский текст. Проверить, каких букв в нем больше: гласных или согласных.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2013, 07:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Строка: Проверить, каких букв в тексте больше: гласных или согласных. (Pascal ABC):

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

Определить, каких букв гласных (a,e,i,o,u) или согласных больше в тексте - Pascal ABC
Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить, каких букв гласных (a,e,i,o,u) или согласных больше...

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

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

Множества. Определить, каких букв больше – гласных или согласных - Pascal ABC
Дан текст на русском языке. Определить, каких букв больше –гласных или согласных. Решение задачи

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

1
ermolay
3430 / 2369 / 686
Регистрация: 04.12.2011
Сообщений: 3,965
06.03.2013, 09:31 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  str: string;
  i: byte;
  s1,s2: byte;
  lit: set of char;
begin
  lit:=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
  write('Введите текст:');
  readln(str);
  for i:=1 to length(str) do
    if upCase(str[i]) in lit then
      inc(s1) else
        if (upCase(str[i]) in ['А'..'Я'])
          and (not (upCase(str[i]) in lit))
          then inc(s2);
  writeln('Гласных русский букв: ',s1,'. Согласных русских букв: ',s2);
  if s1>s2 then writeln('Гласных больше') else
    if s2>s1 then writeln('Согласных больше') else
      writeln('Гласных и согласных попровну');
end.
Добавлено через 3 минуты
в первом варианте не учел мягкий и твердый знаки, исправил:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  str: string;
  i: byte;
  s1,s2: byte;
  lit: set of char;
begin
  lit:=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
  write('Введите текст:');
  readln(str);
  for i:=1 to length(str) do
    if upCase(str[i]) in lit then
      inc(s1) else
        if (upCase(str[i]) in ['А'..'Я'])
          and (not (upCase(str[i]) in lit))
            and (not (upCase(str[i]) in ['Ь','Ъ']))
          then inc(s2);
  writeln('Гласных русский букв: ',s1,'. Согласных русских букв: ',s2);
  if s1>s2 then writeln('Гласных больше') else
    if s2>s1 then writeln('Согласных больше') else
      writeln('Гласных и согласных попровну');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2013, 09:31
Привет! Вот еще темы с ответами:

Множества: определить, каких букв – гласных или согласных – больше в заданной строке - Pascal ABC
Дана строка символов. Определить, каких букв – гласных или согласных – больше в этой строке.Сначала надо определить количества гласных и...

Дан текст на русском языке. Определить, каких букв больше –гласных или согласных - Pascal ABC
Тема: Множества Дан текст на русском языке. Определить, каких букв больше –гласных или согласных Помогите пожалуйста с...

Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых - Pascal ABC
Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых. (через множества нужно сделать...

В каких словах предложения гласных букв больше чем согласных? - Pascal ABC
Товарищи! Это снова я, и я снова нуждаюсь в вашей помощи. Желательно бы как можно быстрее. Дана задача: В каких словах предложения гласных...


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

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

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