• Обучение написанию программ расширяет кругозор, помогает лучше думать и создаёт способ мышления, ориентирующий вас на вещи, которые помогают во всех областях.

Проверка числа на простоту

Программа проверяет, является ли число введённое пользователем, простым. Простыми считаются натуральные (целые положительные) числа больше единицы, которые делятся только на единицу и на самих себя.

Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:

 

TextWindow.Write("Введите число: ")

x = TextWindow.ReadNumber() ' вводим число

TextWindow.WriteLine("")

If x => 2 Then ' Проверка на положительное число, большее 2

TextWindow.WriteLine("Число меньше 2!")

Program.End() ' завершаем работу

EndIf

' Проверка на целое число

z = Math.Floor(x)

If z < x Then

Text.Window("Число не целое!")

Program.End() ' завершаем работу

EndIf

p = Math.Floor(Math.SquareRoot(x)) '  определяем предел для поиска делителей числа

For a = 2 To p ' цикл от 2 до p - перебираем возможные делители

z = Math.Remainder(x, a) ' вычисляем остаток от деления

If z = 0 Then ' если остаток равен = 0

TextWindow.WriteLine("Ваше число - составное! Его делители: " + x/a + ", " + a)

Program.End() ' завершаем программу

EndIf

EndFor

TextWindow.WriteLine("Ура! Число " + x +" - простое!")


Поделиться: