Дан текст. Сколько в нем встречается русских букв a?

@Валера Кушнарев · Регистрация: 09.05.2017

Студворк — интернет-сервис помощи студентам

дан текст. Сколько в нем встречается русских букв a (учесть разные рerистры).

@Puporev · 15.10.2017, 16:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
var s:string;
    i,k:byte;
begin
writeln('Введите строку из русских символов, содержащую буквы а, А');
readln(s);
s:=UpperCase(s);
k:=0;
for i:=1 to length(s) do
if s[i]='А' then inc(k);
write('Количество букв а=',k)
end.

@Ixmil · 15.10.2017, 17:12

Щас, буквально с лету, но не факт что точно:

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
Var
s: string;
X: integer;
Y: integer;
Z: integer;
Begin
S:= 'text';
 
X:= length(s);
 
While y<>x do
Begin
Y:=y+1;
 
If s[y] = 'а' then
Begin
Z:=z+1;
End;
 
If s[y] = 'А' then
Begin
Z:=z+1;
End;
 
End;
 
End.

Добавлено через 2 минуты
Переменная z - выдаст число.

Надо вставить:

Pascal
1
2
3
4
End;
Writeln(z);
Readln;
End.

@Puporev · 15.10.2017, 17:14

Сообщение от Ixmil

Щас, буквально с лету, но не факт что точно:

Ну и зачем?

@Ixmil · 15.10.2017, 18:02

Настроение, пока было.

@Соколиный глаз · 21.04.2018, 04:42

Ixmil, это кривой код...

@Ixmil · 21.04.2018, 14:21

Где он error-ный. Он быстро набросанный, малопродуманный.
Естественно регистр букв додумался бы переключать арифметически.
Зато такие радикальные подстановки значений быстрее работают.

@Соколиный глаз · 21.04.2018, 14:42

Ixmil, кстати while тут не нужен, поскольку длина строки уже известна на момент запуска цикла. Второе - лишние begin-end-ы. Третье - не слишком хорошее оформление кода.

Добавлено через 3 минуты

Сообщение от Ixmil

быстро набросанный, малопродуманный

А кому нужен такой код (кроме Вас)?

@Ixmil · 21.04.2018, 18:55

Он удобноконвертируемый. Поэтому нужный кроме знающих Паскаль.

@Соколиный глаз · 21.04.2018, 18:56

Ixmil, у Puporev он более читабельный и в то же время как Вы выразились:

удобноконвертируемый

.

@Ixmil · 21.04.2018, 19:08

Лишние операторы "if"... А по вашему "if and then..., это виртуознее чем два "if", это обязательно этого соображения мимо?
Мимо и при том неподрожаемо?
У while - хотя бы открытый счётчик цикла. У for - счётчик спрятанный. Поэтому у вас его вообще нет?
Для for-а нужна команда break. А while - можно прервать самому, или растянуть по ходу.
Break - не обязанна встречаться в других языках. Или это сначало нужно долго изучать?

@Puporev · 21.04.2018, 19:13

Ixmil, Перестаньте писать всякие глупости. Чтобы посчитать буквы в тексте не нужен цикл while и не нужно прерывать цикл for.

@Соколиный глаз · 21.04.2018, 19:21

Сообщение от Ixmil

Для for-а нужна команда break.

Нет. break - преждевременный выход из цикла.

Добавлено через 1 минуту

Сообщение от Ixmil

А while - можно прервать самому, или растянуть по ходу.

Никто не мешает и for прерывать. Только вопрос в другом - а оправдано ли использование break в данном случае? В данном случае - не оправдано. А такая как у Вас "оригинальность" никому не нужна...

Добавлено через 2 минуты

Сообщение от Ixmil

Или это сначало нужно долго изучать?

Чего там изучать долго то?

@Puporev · 21.04.2018, 19:22

Сообщение от Ixmil

Лишние операторы "if"...

Так и у Вас эти же операторы, не нравится пишите так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s:string;
    i,k:byte;
begin
writeln('Введите строку из русских символов, содержащую буквы а, А');
readln(s);
s:=UpperCase(s);
k:=0;
while pos('А',s)>0 do
 begin
  delete(s,1,pos('А',s));
  inc(k);
 end;
write('Количество букв а=',k)
end.

@Соколиный глаз · 21.04.2018, 19:25

Pascal
1
2
3
begin
  ReadlnString().Count(x -> char.ToUpper(x) = 'А').Println();
end.

Почему не так вообще, если хочется Вам

виртуознее

?

@Ixmil · 21.04.2018, 19:33

Ну тогда пишите - виртуознее.

@Hitoku · 21.04.2018, 22:30

Pascal
1
2
3
4
5
6
7
8
9
10
var s: string;
    i, c: integer;
begin
  readln(s);
  c := 0;
  for i := 1 to length(s) do
    if LowCase(s[i]) = 'а' then
      inc(c);
  writeln(c);
end.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Валера Кушнарев 0 / 0 / 0 Регистрация: 09.05.2017 Сообщений: 22

	Дан текст. Сколько в нем встречается русских букв a? 15.10.2017, 14:35. Показов 4287. Ответов 16 Метки нет (Все метки) дан текст. Сколько в нем встречается русских букв a (учесть разные рerистры). 0

@Ixmil 19 / 187 / 0 Регистрация: 17.06.2013 Сообщений: 2,163
	15.10.2017, 18:02
	Настроение, пока было. 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	21.04.2018, 04:42
	Ixmil, это кривой код... 0

@Ixmil 19 / 187 / 0 Регистрация: 17.06.2013 Сообщений: 2,163
	21.04.2018, 14:21
	Где он error-ный. Он быстро набросанный, малопродуманный. Естественно регистр букв додумался бы переключать арифметически. Зато такие радикальные подстановки значений быстрее работают. 0

@Ixmil 19 / 187 / 0 Регистрация: 17.06.2013 Сообщений: 2,163
	21.04.2018, 18:55
	Он удобноконвертируемый. Поэтому нужный кроме знающих Паскаль. 0

@Ixmil 19 / 187 / 0 Регистрация: 17.06.2013 Сообщений: 2,163
	21.04.2018, 19:08
	Лишние операторы "if"... А по вашему "if and then..., это виртуознее чем два "if", это обязательно этого соображения мимо? Мимо и при том неподрожаемо? У while - хотя бы открытый счётчик цикла. У for - счётчик спрятанный. Поэтому у вас его вообще нет? Для for-а нужна команда break. А while - можно прервать самому, или растянуть по ходу. Break - не обязанна встречаться в других языках. Или это сначало нужно долго изучать? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	21.04.2018, 19:13
	Ixmil, Перестаньте писать всякие глупости. Чтобы посчитать буквы в тексте не нужен цикл while и не нужно прерывать цикл for. 0

@Ixmil 19 / 187 / 0 Регистрация: 17.06.2013 Сообщений: 2,163
	21.04.2018, 19:33
	Ну тогда пишите - виртуознее. 0