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

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

Ветвления в Pascal.

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

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

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

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

ЗАПИСИ. ТИП ДАННЫХ RECORD.

В описании данных и связей между ними используют понятия: запись логическая и запись физическая. Физическое описание данных определяет способ их хранения во внешней памяти ЭВМ. Логическое описание ...

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

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

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

 

Пример 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.
Следующая статья: Табулирование функций.


   ГлавнаяПаскальЛекции по ПаскальИнициализация одномерного массива.