Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Использование Var, Integer, Readln.

Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом ...

Умножение, деление, сложение, вычитание вещественных чисел в Pascal.

С вещественными числами можно производить операции умножения, сложения, вычитания, а также операцию деления. Причем операция деления отличается от операции Div. Деление вещественных чисел - это обычное математическое деление, в результате которого ...

Циклы и массивы

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Подпрограммы, определенные пользователем.

Технология программирования с использованием подпрограмм предусматривает разбиение программ на логически связанные, но функционально-замкнутые компоненты, имеющие свое имя, что дает следующие ...

Под вложенным итерационным циклом понимают такую алгоритмическую структуру, при которой в тело одного итерационного цикла включен другой итерационный цикл. Другими словами, любая составная инструкция, из перечисленных ниже, является признаком вложенного итерационного цикла.


WHILE…
DO    WHILE…
           DO…


WHILE…
DO    REPEAT…
           …
          UNTIL…


REPEAT …
      REPEAT
       …
       UNTIL…
UNTIL…   


REPEAT …

      WHILE …
       DO …
       …
UNTIL…


Пример 26. Составить программу для нахождения числа слов в предложении и количества букв в самом длинном слове.
Решение этой задачи сделаем в предположении: в конце предложения стоит точка, слова не имеют знака переноса и написаны на русском языке. В теле предложения могут стоять знаки препинания, но после каждого из них должен быть один пробел, который для предлагаемой программы является разделителем слов. Переменные, используемые в программе, и.их тип описаны в таблице 19.

Vlozhennihe iteracionnihe ciklih

В программе используется три счетчика А, В, С и переменная F для чтения из входного файла INPUT текущего символа (литеры). Алгоритм содержит два итерационных цикла. Внешний цикл с постусловием используется для подсчета числа слов в предложении С, а также для выявления самого длинного слова (формирование значения переменной В). В современном мире стали популярными QR коды. Чтобы выбрать подходящую программу для считывания QR кодов Вам поможет бесплатный обзор программ на сайте https://trustthisproduct.com/qr_reader_review_ru.html с подробным описанием интерфейсов приложений, что поможет Вам быстро разобраться с процессом считывания QR кодов. Внутренний цикл обеспечивает чтение очередной литеры F, отделяет русские буква от знаков препинания и латинских букв, определяет конец слова и подсчитывает количество букв А в текущем слове. Концом слова считается пробел или точка.


PROGRAM PR26;
VAR      
А, В, С: INTEGER;
F: CHAR;
BEGIN
    WRITELN ('Введите слова, разделенные пробелами.');
    WRITELN ('В конце предложения поставьте точку.');
    В := 0;
    С := 0;
     REPEAT
        A := 0;
        F := '*';
            WHILE (F <> '') AND (F <> '.')  DO    
                BEGIN
                    READ(F);
                    IF (('A'<=F) AND (F<='Я')) OR ((('a'оF) AND (F<='n')) OR (('p'<=F) AND (F<='я')))
                    THEN A := A + 1
                END;
        С := С + 1;    { Новое слово}
        IF В < A THEN В := А
     UNTIL F='.';    { Конец предложения }
  WRITELN ('Наибольшее число букв в слове =', В);
  WRITELN ('Число слов в предложении =', С)
END.


В этой программе оператор READ использован для ввода потока символов произвольной длины. Реализован логический вложенный цикл, в котором применяются как оператор постусловия REPEAT для анализа конца предложения, так и оператор предусловия WHILE для выделения слов в предложении.


Предыдущая статья: Вычисление предела последовательности.
Оглавление: Лекции по Pascal.
Следующая статья: Программирование данных.


Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальЛекции по ПаскальОрганизация условного перехода. Оператор IF.