Паскаль. Основы программирования


Комментарии - часть 2


     b,{второе число}

     c,{их наибольший общий делитель} ...

 

3. Объясняются действия, смысл и назначение которых непонятны:

c := a mod

b {остаток от деления a на b}

d := b*b - 4*a*c {вычисление дискриминанта квад. ур-я}

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

Составим программу для первого примера на основе второго способа.

Он основан на применении двух операций с целыми числами - деления (div) и нахождения остатка от деления (mod).

Посмотрите на примере, в чём состоит математика этого способа.

Находим цифру единиц:        342 mod 10 = 2.

Делим заданное число на 10, при этом уже найденная цифра единиц "отбрасывается":                                                      342 div 10 = 34.

Находим цифру десятков:       34 mod 10 = 4.

Делим, оставшееся число 34 на 10, при этом цифра десятков "отбрасывается", а результатом будет цифра сотен:

34 div 10 = 3.

Дальнейшие операции такие же, как и в первом способе.

Программа

Program Problem;

     uses WinCrt;

     var

        a, c, s, d, e, b, r : integer;

     begin

         write('Введите трехзначное число '); readln(a);

         c := a;   {Запоминается первоначальное число}

         e := a mod 10; (* Цифра единиц *)

         a := a div 10;

         d := a mod 10; (* Цифра десятков *)

         s := a div 10; (* Цифра сотен *)

         b := e*100 + d*10 + s;

         (* Число, записан. в обратном пор. *)

         r := c - b; (* Разность чисел *)

         writeln('Искомая разность равна ', r)

     end.


ВЫВОДЫ

В программе можно использовать комментарии, которые записываются в фигурных скобках { ... } или в круглых скобках со звездочкой (* ... *). Повторная запись одних и тех же скобок недопустима. При записи комментария в комментарии надо использовать разные скобки.

Операция a mod

b выдает остаток от деления a на b. Если деление происходит нацело, то результат операции равен нулю.




Начало  Назад  Вперед



Книжный магазин