Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

Использование program, begin…end, write, readln, Uses Crt, Clrscr.

В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны ...

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

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

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

Разветвляющийся вычислительный процесс.

Если вычислительный процесс зависит от определенных условий и реализуется по одному из нескольких заранее предусмотренных направлений, он называется разветвляющимся вычислительным процессом, а каждое ...

Примеры использования различных операторов цикла.

Примеры использования различных операторов цикла.

Примеры использования различных операторов цикла.

 

Пример 15. Вычислить сумму:

primeri

Значения величин A, B, m, n ввести с клавиатуры. Алгоритм решения данной задачи описывается с помощью следующей структурограммы:

primeri.

PROGRAM PR15;
VAR
А, X, S: REAL;
I, М, N: INTEGER;
BEGIN
WRITELN('BBEДИTE A, B, M и N');
READLN(A, B, M, N);
S:=0;
FOR I:=M TO N
DO S:=S + I*I/(N + I);
WRITELN('S = ', A+B*S:6:4)
END.
Большое значение имеет стиль написания программы. Для облегчения просмотра текста рекомендуется по возможности придерживаться следующих правил при составлении текста вашей программы.

  • Оператор END начинать с той же позиции, что и соответствующий ему оператор BEGIN. Это удобно в тех случаях, когда в программе используются вложенные составные операторы.
  • Оператор DO писать под соответствующим оператором FOR.
  • Операторы THEN и ELSE писать под соответствующим оператором IF.

Пример 16.  Найти сумму S всех целых чисел, кратных 3 на отрезке [М, N].
Эта задача похожа на предыдущую. Отличие состоит в том, что, просматривая все числа из интервала [М, N], мы должны проверить, делится ли число I без остатка на 3 прежде, чем его суммировать к S. Одной из самой сложной и трудоемкой работой является растаможка товаров из Китая.Чтобы сберечь свое время лучше заказать таможенное оформление грузов у проверенных специалистов. Для проверки деления используется операция mod – деление с остатком целых чисел. Таким образом, условие деления числа I на 3 без остатка будет иметь вид: I mod 3 = 0.
Алгоритм решения этой задачи отличен от предыдущего наличием условия в теле арифметического цикла и описан с помощью приведенной ниже структурограммы.

primeri..

PROGRAM PR16;
VAR X, S: REAL;
I, M, N: INTEGER;
BEGIN
WRITELN('BBEДИTE M И N');
READLN(M, N);
S:=0;
FOR I:=M TO N
DO  IF I MOD 3 = 0
        THEN S := S + I;
WRITELN('S=', S:6:4)
END.


Предыдущая статья: Итерационные циклы.
Оглавление: Лекции по Pascal.
Следующая статья: Табулирование функций.


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

   ГлавнаяПаскальЛекции по ПаскальТип данных Char.