Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Приоритет выполнения логических операций в Pascal.

Логические операции применяются при написании многих программ в Pascal. Все операции имеют определенный приоритет выполнения : Первой выполняется операция NOT. Второй выполняется операция AND. Последними выполняются операции OR и XOR (Они имеют ...

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

Инициализация одномерного массива.

Отличительной особенностью Паскаля от большинства процедурных языков является то, что все переменные должны быть инициализированы. То есть в разделе VAR переменным отводится место, а начальное ...

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

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

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

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

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

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

   ГлавнаяПаскальПримеры программ.Для матрицы A (4 строк, 5 столбцов) вычислить выражение y=(1-P[5])^2+(2-P[4])^2+...+(5-P[1])^2 , где P[k] - произведение отрицательных элементов в k-том столбце матрицы А.