Итак, я продолжаю публиковать примеры программ на паскаль к уроку №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.