Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 04.03.2015
Сообщений: 3
1

Дан многострочный текстовый файл, посчитать количество гласных и согласных букв в этом файле

10.03.2015, 08:59. Просмотров 1617. Ответов 2
Метки нет (Все метки)


дан многострочный текстовый файл посчитать кол-во гласных и согласных букв в этом файле
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2015, 08:59
Ответы с готовыми решениями:

В файле посчитать наименьшее количество идущих подряд гласных букв в словах
2)В файле посчитать наименьшее количество идущих подряд гласных букв в словах.

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

Дан символьный файл. Подсчитать количество согласных букв
Помогите. Вообще не знаю как делать.

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

2
Эксперт Pascal/Delphi
6563 / 4418 / 4716
Регистрация: 05.06.2014
Сообщений: 21,710
10.03.2015, 09:35 2
aleksandr9977, русских?
0
Модератор
8403 / 4155 / 2873
Регистрация: 17.08.2012
Сообщений: 13,249
10.03.2015, 15:30 3
Лучший ответ Сообщение было отмечено aleksandr9977 как решение

Решение

Пусть будет русско-английских.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const fname = 'c:\input.txt';
      vowel = 'AaEeIiOoUuAаЕеЁёИиОоУуЫыЭэЮюЯя';
      consonant = 'BbCcDdFfGgHhJjKkLlMmNnPpQqRrSsTtVvWwXxYyZzБбВвГгДдЖжЗзЙйКкЛлМмНнПпРрСсТтФфХхЦцЧчШшЩщ';
var f: file of char;
    v, c: integer;
    s: char;
begin
  v := 0;
  c := 0;
  assign(f, fname);
  reset(f);
  while not eof(f) do
    begin
      read(f, s);
      if pos(s, vowel) > 0
        then inc(v)
        else if pos(s, consonant) > 0
          then inc(c)
    end;
  close(f);
  write('Vowels: ', v, ', consonants: ', c);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2015, 15:30

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

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

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

Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное количество букв
Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное...

В строке определить количество гласных и согласных букв
В строке определить количество гласных и согласных букв


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

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

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