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

Подсчитать, каких букв в тексте больше — русских или латинских.

07.12.2016, 18:56. Просмотров 1524. Ответов 1
Метки нет (Все метки)


Решить задачу с использованием структуры «текстовый файл» (в файле хранится текст).
7) Дан файл, содержащий текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше — русских или латинских.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2016, 18:56
Ответы с готовыми решениями:

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

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

Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше - русских и
Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в...

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

1
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,693
07.12.2016, 19:22 2
Лучший ответ Сообщение было отмечено Lika111 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var f:text;
    s:string;
    i,kr,kl:integer;
begin
assign(f,'text.txt');//файл в папке с программой
reset(f);
kr:=0;
kl:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
  if s[i] in ['А','я','Ё','ё'] then inc(kr)//для паскаля АВС
  else if s[i] in ['A'..'Z','a'..'z'] then inc(kl);
 end;
close(f);
writeln('Русских букв=',kr);
writeln('Латинских букв=',kl);
if kr>kl then write('Русских больше')
else if kl>kr then write('Латинских больше')
else wrire('Русских и латинских поровну');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2016, 19:22

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

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

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

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

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


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

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

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