Создание программ с циклической структурой

Отчет по лабораторной работе №4

По дисциплине информатика

Специальность 1-27-01-01 «Экономика и организация производства

Специализация 1-27-01-01-21 Общественное питание

Проверил Старший преподаватель Овсянникова И.П. «_____»________________2011г

Выполнила студентка группы ЭОП-111 МухаметзяноваЖ.А. «_____»________________2011г

Могилев 2012

Составьте блок-схему и программу на языке VBA, которая вычисляет

факториал числа n, введенного с клавиатуры (Факториалом числа n называется произведение целых чисел от 1 до n:

Например,

! 0 = 1, 1! =1, 5! = 120). Число n задается во время работы программы. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n < 0), выдавать сообщение об ошибке.

Исходные данные: Результат:

1. Введите n: –1 1. Неверно введено n

2. Введите n: 7 2. 7!=5 040

Рисунок 1

Sub gfhj()

Dim P As Double

Dim i As Integer

Dim n As Integer

n = InputBox("Введите число")

If n < 0 Then

MsgBox "неверные исходные данные"

Else

If n = 0 Then

MsgBox "0!= 1"

Else

P = 1

For i = 1 To n

P = P * i

Next i

MsgBox "P=" & P

End If

End If

End Sub

Дата добавления: 2015-07-16