Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ocsoget
0 / 0 / 0
Регистрация: 28.05.2014
Сообщений: 30
#1

Подсчитать во введённом текстовом отрывке отдельно количество цифр - Turbo Pascal

10.06.2014, 20:30. Просмотров 359. Ответов 1
Метки нет (Все метки)

Подсчитать во введённом текстовом отрывке отдельно количество цифр, латинских букв, и знаков пунктуации.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 20:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать во введённом текстовом отрывке отдельно количество цифр (Turbo Pascal):

Запросить текст и во введённом тексте посчитать количество цифр и вывести их отдельно на экран
Запросить текст и во введённом тексте посчитать количество цифр и вывести их...

Введённом тексте с клавиатуры подсчитать количество букв, цифр и пробелов
Введённом тексте с клавиатуры подсчитать количество букв, цифр и пробелов.

Подсчитать в текстовом файле количество слов и количество цифр
Дан файл, содержащий текст. Сколько слов в тексте? Сколько цифр в тексте?

Множества. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр
4. Во введенной строке символов подсчитать количество букв (отдельно русского и...

Подсчитать количество строк не содержащих цифр в текстовом файле.
Создать текстовый файл с именем "dan". Подсчитать количество строк в нем, не...

В текстовом файле в строке с заданным номером k>0 подсчитать количество цифр
В текстовом редакторе создать файл из нескольких строк символов. Вывести его...

1
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
10.06.2014, 22:10 #2
Лучший ответ Сообщение было отмечено ocsoget как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
const a:set of char=['0'..'9'];
      b:set of char=['a'..'z','A'..'Z'];
      c:set of char=[',','.',' ',';',':','-'];
var s:string;
    i,k,k1,k2:integer;
begin
 write('Ââåäèòå ñòðîêó :');
  readln(s);
 for i:=length(s) downto 1 do
  begin
   if s[i] in a then
    inc(k);
   if s[i] in b then
    inc(k1);
   if s[i] in c then
    inc(k2);
  end;
 writeln('Êîë-Г±ГІГўГ® öèôð = ',k);
  writeln('Êîë-Г±ГІГўГ® Г«Г*ГІГЁГ*Г±ГЄГЁГµ ГЎГіГЄГў = ',k1);
   writeln('Êîë-Г±ГІГўГ® Г§Г*Г*êîâ ГЇГіГ*ГЄГІГіГ*öèè = ',k2);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 22:10
Привет! Вот еще темы с решениями:

Дана строка. Подсчитать количество подсчитать количество содержащихся в ней цифр
1)Дана строка. Подсчитать количество подсчитать количество содержащихся в ней...

В тексте подсчитать количество гласных «A», «O», «E», «I», «U», «Y» отдельно для каждой буквы
В тексте из 20 символов латинских букв подсчитать количество глас-ных «A», «O»,...

Множества: подсчитать отдельно количество больших и маленьких букв английского и русского алфавита в последовательности
Дана последовательность символов.Подсчитать отдельно количество больших и...

Подсчитать количество чётных цифр, бильших среднего арифметического всех цифр
Подсчитать кол-во чётных цифр, бильших среднего арифметического всех цифр! ...


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

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

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