Сообщение на тему: "применение алгоритмов", 5 примеров

1. выделение числа, которое является степенью двойки. определили, что числами, которые являются степенью двойки, будут числа 1, 2, 4, 8, 16 и т.д. 2. определение искомых чисел, отвечающих условию -  остаток от деления числа на 17 должен быть равен нулю,  остаток от деления числа на 10 должен быть равен  9  (девяти). в данной , получается, есть три модуля, которые необходимо реализовать. первый  - определение числа - степени двойки. второй  - определение искомых чисел и их подсчет. третий  - модуль, который позволяет объединить оба модуля в одно целое. видно, что  первый  и  второй модули  - самостоятельны и независимы друг от друга. поэтому, первый модуль можно вынести в  самостоятельный блок алгоритма, которому и дали имя  st_dv. алгоритм(подпрограмма) должен имеет  уникальное имя  и должен быть расположен  под основным алгоритмом. при реализации могут применяться несколько алгоритмов (подпрограмм). правила разработки алгоритма решения : i.  алгоритм решения необходимо разбить на отдельные    и каждую необходимо решать  отдельно. для нашего примера  первый модульреализован в виде алгоритма  st_dv, в который передается число, вводимое с клавиатуры. а алгоритм (далее, подпрограмма), проверяет: является ли число  степенью двойки. 3 кита разработки алгоритмов 1. алгоритм (в отличие от основного) обязательно  должен иметь имя. 2.  тип возвращаемого значения  должен совпадать с типом переменной в основном алгоритме. 3. во алгоритм  данные  посредством  переменных,  следовательно, в описании алгоритма должно быть указано  такое же количество переменных, что и в  имени вызываемой функции  в основном алгоритме.

Var a: array[1..8]of integer; i: integer; begin for i: =1 to 8 do begin a[i]: =random(10)+10; write(a[i], ' '); if a[i]< 15 then a[i]: =2*a[i]; writeln(a[i]); end; end.