Электронный курс по информатике|Алгоритмизация и программирование

Тема 5.  Разветвляющийся алгоритм. Операторы проверки условий и переходов в Visual Basic. Моделирование решения квадратных уравнений.

Оператор условного перехода IF Then Else

if <выражение> then <операторы 1> else <операторы 2>

выражение задает логические условия. Если проверка условия дает значение "истина", то выполняется группа "операторы 1", иначе группа "операторы2".

Задача 1. Создать Windows-приложение для решения любых квадратных уравнений, вида

Введем обозначения: a, b и с— коэффициенты и свободный член квадратного уравнения,  х— неизвестное, d — дискриминант.

Запись кода

Private Sub Form_Load()

    Show

    a = InputBox("Введите коэффициент a")

    b = InputBox("Введите коэффициент b")

    c = InputBox("Введите свободный член уравнения c")

    d = b ^ 2 - 4 * a * c

     If d < 0 Then

        Print "Корней нет"

    Else

        X1 = (-b - Sqr(d)) / (2 * a)

        X2 = (-b + Sqr(d)) / (2 * a)

        Print "Х1="; X1

        Print "Х2="; X2

    End If

 End Sub

 Задания.

1. Решить следующие уравнения:

2. Дописать код программы для случая когда дискриминант равен 0. Программа должна выдать сообщение «Уравнение имеет один корень Х=  и его значение.

Операторы DO WHILE  и  IF.

Задача 9.  Угадывание чисел, загаданных компьютером.

 Dim a As Integer

Dim b As Integer

Dim k As Integer

Private Sub Form_Load()

Show

Randomize

a = Int(Rnd * 100 - 1)

b = InputBox("Введите число  в диапазоне от 1 до 100", , , 3000, 4000)

Do While b <> a

   If b > a Then

          Print "введено число"; b; "Оно больше загаданного компьютером"

   End If

   If b < a Then

          Print "введено число"; b; "Оно меньше загаданного компьютером"

   End If

k = k + 1

b = InputBox("Введите число  в диапазоне от 1 до 100", , , 3000, 4000)

Loop

Print "Вы отгадали число. Оно равно"; b

Print "Было сделано"; k + 1; "попыток"

End Sub

Copyright © 2005. Петрова Людмила Борисовна