Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами. - Pascal
Формулировка задачи:
1) Написать программу, проверяющую, является ли строка символов именем в языке Паскаль, т.е. состоит ли она из латинских букв, цифр и знаков подчеркивания и начинается не с цифры.
2) Дан двухмерный массив целых чисел. Определить минимальный номер столбца, состоящего только из элементов, кратных числу b. Принять, что такие столбцы в массиве есть.
3) Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами.
Решение задачи: «Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами.»
textual
Листинг программы
program a1; uses crt; var s,tmp:string; i,x:longint; code:integer; begin tmp:=''; s:=''; readln(s); for i:=1 to length(s) do begin case s[i] of '1'..'9' : tmp:=tmp+s[i]; end; end; val(tmp,x,code); writeln(x); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой текстов и числовых данных.
В данном конкретном случае, программа принимает на вход строку, содержащую несколько цифр, идущих подряд. Затем она преобразует эти цифры в десятичное число.
Для этого используется переменная tmp
, которая инициализируется пустой строкой. Затем происходит цикл, в котором каждая цифра из строки добавляется к переменной tmp
. Если цифра не соответствует '1'..'9', то она игнорируется.
После завершения цикла, переменная tmp
преобразуется в десятичное число с помощью функции val()
. Результат выводится на экран с помощью функции writeln()
.