Применение логических операций с оператором IF.

В данном уроке мы рассмотрим применение логической операции And с условным оператором If.

Textcolor, Window, Textbackground в Pascal.

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

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

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

Тип данных Integer.

Тип INTEGER (целый). Этот тип представляет множество целых чисел диапазона от -32768 до 32767. В памяти ЭВМ  под целое число отводится два байта (16 бит).

Вложенные итерационные циклы.

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

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


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.
Следующая статья: Программирование данных.


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

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

   ГлавнаяПаскальЛекции по Паскаль