Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
toschka2210
0 / 0 / 0
Регистрация: 25.06.2016
Сообщений: 9
1

Выяснить, в какой половине заданного текста больше русских букв "а" или "А"

07.09.2016, 10:54. Просмотров 940. Ответов 3
Метки нет (Все метки)

Выяснить, в какой половине заданного текста больше русских букв"а" или "А" (не исключая случая равенства)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.09.2016, 10:54
Ответы с готовыми решениями:

Если в строке больше букв "А", чем букв "О", вывести в центре экрана слово "привет"
Помогите составить алгоритм к задаче: Заполнить левую половину экрана синим цветом, правую -...

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

Определите, каких букв, "а" или "б", в слове Х больше
Определите, каких букв, "а" или "б", в слове Х больше.

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

3
RatWar
7 / 7 / 2
Регистрация: 21.07.2016
Сообщений: 68
07.09.2016, 11:01 2
Разбей текст на две строки, подсчитай в каждой строке количество букв "А" и сравни
0
Puporev
Модератор
59376 / 44815 / 30925
Регистрация: 18.05.2008
Сообщений: 107,509
07.09.2016, 11:36 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var s:string;
    i,k1,k2:byte;
begin
clrscr;
writeln('Введите текст из русских букв');
readln(s);
k1:=0;
k2:=0;
for i:=1 to length(s) do
if s[i] in ['А','а'] then
if i<=length(s)div 2 then inc(k1)else inc(k2);
if k1>k2 then write('В первой половине больше')
else if k2>k1 then write('Во второй половине больше')
else write('В обеих половинах поровну');
readln
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5308 / 3164 / 2342
Регистрация: 22.11.2013
Сообщений: 8,945
07.09.2016, 19:05 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно условие вынести из цикла:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  s: String;
  i, k1, k2: Integer;
begin
  Write('Введите текст из русских букв: '); ReadLn(s);
  k1:=0; k2:=0;
  for i:=1 to Length(s) div 2 do Inc(k1,Ord(s[i] in ['А','а']));
  for i:=Length(s) div 2+1 to Length(s) do Inc(k2,Ord(s[i] in ['А','а']));
  if      k1>k2 then Write('В первой половине больше')
  else if k2>k1 then Write('Во второй половине больше')
  else Write('В обеих половинах поровну');
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.09.2016, 19:05

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

Из слова "клоун" путем вырезок и склеек его букв получить слова "уклон", "кулон" и "колун".
Из слова &quot;клоун&quot; путем вырезок и склеек его букв получить слова &quot;уклон&quot;, &quot;кулон&quot; и &quot;колун&quot;.

Из слова "программа" путем вырезок и склеек его букв получить слово "ром" и "рампа"
из слова &quot;программа&quot; путем вырезок и склеек его букв получить слово &quot;ром&quot; и &quot;рампа&quot;

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу &quot;текстовый редактор&quot; из слов &quot;тесто&quot;, &quot;редакция&quot;, &quot;мотор&quot;, &quot;который&quot;.

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу &quot;программное обеспечение&quot; из слов &quot;программист&quot;, &quot;оборот&quot;, &quot;анчоус&quot;,...


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

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

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