Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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.

 







Дата добавления: 2015-09-07; просмотров: 363. Нарушение авторских прав; Мы поможем в написании вашей работы!




Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Тема 2: Анатомо-топографическое строение полостей зубов верхней и нижней челюстей. Полость зуба — это сложная система разветвлений, имеющая разнообразную конфигурацию...

Виды и жанры театрализованных представлений   Проживание бронируется и оплачивается слушателями самостоятельно...

Что происходит при встрече с близнецовым пламенем   Если встреча с родственной душой может произойти достаточно спокойно – то встреча с близнецовым пламенем всегда подобна вспышке...

Образование соседних чисел Фрагмент: Программная задача: показать образование числа 4 и числа 3 друг из друга...

Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...

Краткая психологическая характеристика возрастных периодов.Первый критический период развития ребенка — период новорожденности Психоаналитики говорят, что это первая травма, которую переживает ребенок, и она настолько сильна, что вся последую­щая жизнь проходит под знаком этой травмы...

Studopedia.info - Студопедия - 2014-2024 год . (0.007 сек.) русская версия | украинская версия