Строковые константы в Pascal.

В качестве значения строковой константы может выступать любая последовательность символов. Эта последовательность заключается в апострофы. Строковая константа отличается от символьной константы тем, что здесь в качестве значения константы можно ...

Textcolor, Window, Textbackground в Pascal.

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

Abs, Sqr в Pascal.

Abs - функция языка Паскаль, которая вычисляет модуль числа.
Sqr - функция языка Паcкаль, которая возводит число в квадрат.

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

Структура программы в Паскаль.

В данной статье описывается структура программы в Pascal, описывается каждый раздел, который может присутствовать в программе.

Табулирование функций.

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец ...

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

 

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


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

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