Abs, Sqr в Pascal.

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

Ввод символов с клавиатуры.

Ввод символов с клавиатуры почти не отличается от ввода чисел с клавиатуры. Для того чтобы ввести какие-то символы (буквы, знаки и т.д.) с клавиатуры необходимо для переменных использовать символьный тип данных Char.

Логические и символьные константы.

В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...

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

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

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

Тип данных Real.

Тип REAL (вещественный). Число типа REAL занимает три слова (шесть байтов). При работе с вещественными числами нужно помнить, что на любом отрезке вещественной оси существует бесчисленное множество ...

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

 

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


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

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

   ГлавнаяПаскальЛекции по ПаскальЦиклы с параметром. Оператор FOR.