PROGRAM PRG5_11;
VAR I, К: INTEGER; S1: STRING; BEGIN WRITELN('BBEДИTE ТЕКСТ ДО ТОЧКИ'); READLN(S1); К:= 0;l:= 1; REPEAT CASES1[I]OF '0'..'9': К:= K+(ORD(S1[I])-ORD('0')); ' ':; ELSE К:= -1; END; I:= 1+1 UNTIL (S1[l] ='.')OR(K<0); IF К MOD 3 = 0 THEN WRITELN('ЭTO ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3') ELSE WRITELN('ЭTO HE ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3') END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим строку S1; - организуем в строке поиск цифр до тех пор, пока не встретим точку или не обнаружим наличие ошибки в арифметическом выражении; - в зависимости от значения суммы цифр выводим результат на экран. Переменные: I - переменная цикла; К - счетчик цифр; S1 - строка цифр.
ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ 8976500066652005. ЭТО ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3
ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ DF)E (ABBA () (DFGSA)BBA B)B(BB. ЭТО НЕ ДЕСЯТИЧНОЕ ЧИСЛО, КРАТНОЕ 3 Рис. 5.5. Результат работы PRG5_11 Задача 5.12 Дана строка символов до точки. Вывести ее на экран задом наперед. PROGRAM PRG5_12; VAR I, L: INTEGER; S1: STRING; BEGIN WRITELN('BBEДИTE ТЕКСТ ДО ТОЧКИ'); READLN(S1); L:= LENGTH(S1); FOR I:= L-1 DOWNTO 1 DO WRITE(S1[I]); WRITELN('.') END. Для решения задачи: - формируем тело программы и описываем переменные; - вводим строку S1 и определяем ее длину; - организуем цикл по выводу строки задом наперед. Переменные: I - переменная цикла; L - длина строки; S1 - строка текста.
ВВЕДИТЕ ТЕКСТ ДО ТОЧКИ ААААААА. ААААААА 0987654321.
|
