Лекция: Пример 13

'Имя файла: Mnoziteli.vbs

'Программа нахождения всех простых множителей целого положительного числа

'Программа учитывает множество условий неправильного ввода

IF boolic THEN 'если мы ввели число, то...

x=CDbl(x)

x2=CLng(x) 'CLng округляет число до целого

If CDbl(x2)-x<>0 Then ' если число не целое изменим флаг

boolic=false

End if

If boolic and (x>1) Then 'если мы ввели мы ввели число целого типа, большее 1

m=2

i=0

s=«Простые множители числа „&x&“:»&vbCrLf

While m<=x 'ищем простые множители числа и записываем их в строку s

If x Mod m=0 Then

s=s&" "&m

x=x/m

i=i+1

Else m=m+1

End If

Wend

If i=1 Then

MsgBox «Число „&x1&“ нельзя разложить на простые”&_ “множители, так как оно само”&_ является простым числом.»,,«Результат:»

Else

Msgbox s,,«Результат:»

End If

ElseIf boolic and (x=1) Then ' если введённое число равно 1, то...

MsgBox «Число 1 нельзя разложить на простые множители,»&_

" так как оно само является простым числом.",,«Результат:»

Else

MsgBox «Вы ввели неправильное значение x»,vbCritical,«Ошибка»

End If

ELSE ' если введённое значение не числовое...

MsgBox «Вы ввели неправильное значение x»,vbCritical,«Ошибка»