Как проверить целое ли число в паскале
Перейти к содержимому

Как проверить целое ли число в паскале

  • автор:

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

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

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

Извлечение цифр числа

С клавиатуры вводится целое число. Определить, из каких цифр оно состоит, то есть вывести на экран отдельные цифры числа.

var n: longint; begin write('Введите целое число: '); readln(n); < Значение n может быть отрицательным. Берем абсолютное значение числа >n := abs(n); repeat // Повторять до тех пор. // вывод последней цифры числа writeln(n mod 10); // удаление последней цифры числа n := n div 10; until n = 0; // . пока n не станет равной нулю. end.

Пример выполнения программы:

ведите целое число: -3487009 9 0 0 7 8 4 3

Как определить целое ли число в Turbo Pascal?

функция frac() берет от вещественного числа дробную часть .

var z,x:real;
begin
writeln(‘Vvedite X:’);
readln(x);
z:=frac(x);
if z=0 then
writeln(‘Целое’)
else
writeln(‘Не Целое’);
end.

Остальные ответы
Похожие вопросы
Ваш браузер устарел

Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.

ФAQbrain

Определение целое или дробное число для переменных типа real.

Этот код был применен далее для составления программки вычисления степени.

Основано все на простейшей математике:

Если число разделить само на себя, то получится «1». Не целое (т.е. дробное) число так и целое можно округлить, в то время как целое не изменит свое значение, дробь округлится.

Используем эти свойства в программе, немного подправив и добавив условий.

if n/round(n)=1 then writeln(‘целый’) else writeln(‘дробный’);

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

Ваш адрес email не будет опубликован. Обязательные поля помечены *