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

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

Итак, я продолжаю публиковать примеры программ на паскаль к уроку №18 - символьный тип данных. Сегодня я выкладываю исходник программы на Pascal, который подсчитывает сколько цифр есть в тексте (строке).

Исходный код программы Pascal:

Var ch:char;        //Описание переменных - ch типа char (символы)
i:integer; //Счётчик i типа integer (целочисленный)
Begin //Начало основной программы
Read (ch); //Считывание символа без переноса на след. строку
i:=0; //Зануление счётчика
while ch<>'.' do begin //Пока символ не точка - выполнять
if (ch>='0') and (ch<='9') then inc (i); //Если символ цифра - увеличить счётчик на 1
read (ch)//Считывание символа в цикле
end; //Конец программы
writeln ('Цифр в строке:', i); //Вывод результата
End. //Конец программы


Принцип работы этой программы очень похож на принцип работы предыдущего исходника (подсчёт определенного символа в строке), поэтому разбирать я его не буду.

Скачать исходник: kolcifr.pas

Кстати, если Вас интересует коммерческая недвижимость Сургута, то Вы можете прочитать информацию о ней на сайте time-proffi.ru.
Автор: Zed от 2013-01-28 13:10:46   Просмотров: 5243

Теги: исходник исходники Паскаль Pascal Char WHILE циклы