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

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

Функции trunc, round в Pascal.

Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...

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

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

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

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

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

...

Сортировка двумерного массива.

Пример 36. Задан двумерный массив X из 6 строк и 4 столбцов. Упорядочить массив X по возрастанию элементов дробной части столбца с номером N. Отсортированный массив X вывести на экран монитора.

Постановка задачи: Необходимо определить функцию для проверки делится ли целое число на каждую из его цифр без остатка. Напечатать такие числа в интервале от 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*.

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

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

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