Дан текст, в котором имеется несколько идущих подряд цифр. Получить число, образованное этими цифрами. - 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().

Оцени полезность:

8   голосов , оценка 4.625 из 5
Похожие ответы