ЭТО НЕ СКОБОЧНОЕ ВЫРАЖЕНИЕ

Рис. 5.4. Результат работы PRG5_9

Задача 5.10 Дана строка символов до точки. Определить, яв­ляется ли она записью десятичного числа, кратно­го двум.

Для решения этой задачи нужно вспомнить признак деления числа на два и проверить только последнюю цифру числа: четна она или нет.

Помимо этого, необходимо удостовериться, что введенная строка состоит только из цифр, т. е. может быть преобразована в десятичное число. Само преобразование цифры в число сделать очень просто. Поскольку коды символьных переменных - цифр -следуют один за другим, то функция ORD в выражении ORD(S1[I])-ORD('0') поможет нам сделать это.

PROGRAM PRG5_10;

VAR I, К: INTEGER;

S1: STRING;

BEGIN

WRITELN('BBEДИTE ТЕКСТ ДО ТОЧКИ');

READLN(S1);

К:= 0; I:= 1;

REPEAT

CASE S1[l] OF

'0'..'9': К:= (ORD(S1[I])-ORD('0'));

' ':;

ELSE K:=-1;

END;

I:= 1+1

UNTIL (S1[l] ='.')OR(K<0);

IF К MOD 2 = 0 THEN

WRITELN('ЭT0 ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 2')

ELSE

WRITELN('ЭTO HE ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 2')

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим строку S1;

- организуем в строке поиск цифр до тех пор, пока не встре­тим точку или не обнаружим наличие ошибки в арифмети­ческом выражении;

- в зависимости от значения последней цифры выводим ре­зультат на экран.

Переменные:

I - переменная цикла;

К - счетчик цифр;

S1 - строка цифр.

Задача 5.11 Дана строка символов до точки. Определить, яв­ляется ли она записью десятичного числа, кратно­го трем.