Функции Copy, Pos, процедуры Delete, Insert.

Функция Copy позволяет копировать из строки часть символов. Функция имеет 3 параметра. Copy (st, index, count). St-строка из которой копируют, Index-номер символа, с которого начинается копирование, Count-количество символов, которое будет ...

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

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

Textcolor, Window, Textbackground в Pascal.

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

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

Итерационные циклы.

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

...

Тип данных Real.

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

Постановка задачи: Необходимо определить функцию для проверки делится ли целое число на каждую из его цифр без остатка. Напечатать такие числа в интервале от 10 до 1000.

Анализ задачи: Следует разработать программу, выполняющую обычный поиск чисел с помощью цикла, удовлетворяющих данному условию.

Метод решения задачи: Для решения задачи необходимо использовать основной цикл типа FOR..TO..DO который будет проверять все значения ОДЗ по следующему принципу: в переменную k возвращается остаток числа от деления его на 10, проверяется условие деления числа на этот остаток, если деление производится без остатка то данное число удовлетворяет условию, число выводится на экран и т.д.

Алгоритм решения задачи:

1.Выполняется тело цикла, содержащее, необходимые условия; 2.Вывод результатов.

Описание структур данных, использованных в алгоритме:

flag – переменная булевского типа, используется для хранения информации о том подходит ли число условию или нет.

i– счетчик цикла; изменяется под управлением оператора цикла.

x, k – вспомогательные, промежуточные переменные..

Программа и методика испытания:

 uses crt;
var i,k,x:integer;
flag:boolean; begin clrscr;
writeln('Определить функцию для проверки делится ли число на каждую из своих');
writeln('цифр без остатка. Напечатать такие числа в интервале от 10 до 1000');
writeln;
writeln('Искомые числа:');
for i:= 10 to 1000 do
begin
flag:=true;
k:=i;
while k > 0 do
  begin x:=k
   mod 10;
       if x <> 0 then
     begin if (i mod x) <> 0 then
        flag:=false
     end else
           flag:=false;
       k:=k div 10;
     end;
  if flag then write(i:5);
     end;
writeln;
writeln('Нажмите любую клавишу для выхода.');
readkey;
end. 

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

Предыдущая статья : Дана матрица A размером KxM. Получить транспонированную матрицу A* и произведение AxA*.

Оглавление : Уроки Паскаль. Массивы.

   ГлавнаяПаскальПримеры программ.Определить функцию для проверки делится ли целое число на каждую из его цифр без остатка.