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

@Ripperivan · Регистрация: 08.11.2015

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

В одной строке экрана вводится последовательность символов (тип char). Ввод завершить символом ".". Определить каких символов больше - числовых, буквенных, специальных. Результаты вывести виде таблицы
Цифр - количество
Букв - количество
Специальных символов - количество
Затем вывести текст:"больше....".
Если каких-либо символов нет, в таблицу соответствующую строку не выводить. Массивов не использовать!!!!!!!!!!!

@T-rox · 15.11.2015, 17:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
c: char;
i, spec, letter, digit: integer;
begin
repeat
read(c); spec:=0; digit:=0; letter:=0;
if (c in ['A'..'z']) then
inc(letter)
else
if (c in ['0'..'9']) then
inc(digit)
else
inc(spec);
until c='.';
if (letter > spec) and (letter > digit) then
writeln('Больше букв');
if (spec > letter) and (spec > digit) then
writeln('Больше специальных');
if (digit > spec) and (digit > letter) then
writeln('Больше цифр');
readln
end.

@vint-81 · 15.11.2015, 19:58

T-rox, работает не корректно:
Вы на каждом шаге цикла обнуляете переменные для сумм цифр, букв и символов...
т.е. в любом случае получится, что символов больше(точку считаете)...
на всякий случай

Кликните здесь для просмотра всего текста

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
28
29
30
31
32
33
34
35
var c,b,s,max:integer;
    ch:char;
begin
    c:=0;b:=0;s:=0;max:=0;
    repeat
     read(ch);
     if ch in ['0'..'9'] 
      then inc(c)
      else 
       if ch in ['a'..'z','A'..'Z']
         then inc(b)
         else inc(s)
    until ch='.';
    dec(s);
    if c>b then max:=c else max:=b;
    if s>max then max:=s; 
    if max=0 then writeln('символов нет')
             else
              begin
               writeln('+----------+----------+');
               if c>0 then begin writeln('|Цифр      |',c:10,'|');
                                 writeln('+----------+----------+');
                           end;
               if b>0 then begin writeln('|Букв      |',b:10,'|');
                                 writeln('+----------+----------+');
                           end;            
               if s>0 then begin writeln('|Символов  |',s:10,'|');
                                 writeln('+----------+----------+');
                           end;
               write('больше ');
               if c=max then write('цифр ');
               if b=max then write('букв ');
               if s=max then write('символов ');
              end 
end.

@T-rox · 15.11.2015, 22:00

Сообщение от vint-81

Вы на каждом шаге цикла обнуляете переменные для сумм цифр, букв и символов...

Да, пардон, обнулял когда увидел, что тема в турбо-паскале, не там сделал обнуление. Про точку не сказано, является ли она частью строки.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Ripperivan 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 4

	Определить, каких символов больше - числовых, буквенных, специальных 15.11.2015, 16:40. Показов 2327. Ответов 3 Метки нет (Все метки) В одной строке экрана вводится последовательность символов (тип char). Ввод завершить символом ".". Определить каких символов больше - числовых, буквенных, специальных. Результаты вывести виде таблицы Цифр - количество Букв - количество Специальных символов - количество Затем вывести текст:"больше....". Если каких-либо символов нет, в таблицу соответствующую строку не выводить. Массивов не использовать!!!!!!!!!!! 0

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

Решение