Диалог с компьютером
Напишем программу, которая осуществляла бы такой диалог человека с компьютером:
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Здравствуй, я компьютер, а тебя как зовут?
ЧЕЛОВЕК ВВОДИТ С КЛАВИАТУРЫ: Коля
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Очень приятно, Коля. Сколько тебе лет?
ЧЕЛОВЕК ВВОДИТ С КЛАВИАТУРЫ: 16
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Ого! Целых 16 лет! Ты уже совсем взрослый!
Очевидно, что человек в процессе беседы имеет право вводить с клавиатуры какие угодно имена и какой угодно возраст.
Пусть компьютер задает свои вопросы в InputBox, человек вводит свои ответы в тот же InputBox, а последнюю реплику компьютер подает в MsgBox. Для хранения в памяти имени человека выдумаем переменную imya, а для возраста – vozrast.
Вот программа:
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim imya As String
Dim vozrast As Integer
imya = InputBox("Здравствуй, я компьютер, а тебя как зовут?")
vozrast = InputBox("Очень приятно, " & imya & ". Сколько тебе лет?")
MsgBox ("Ого! Целых " &
vozrast & " лет! Ты уже совсем взрослый!")
End Sub
Обратите внимание на запятые, точки и некоторые пробелы внутри кавычек. Если бы их не было, слова бы сливались вот так:
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Очень приятноКоляСколько тебе лет?
КОМПЬЮТЕР ВЫВОДИТ НА ЭКРАН: Ого! Целых16лет! Ты уже совсем взрослый!
Диалог будет отличаться только той информацией, которую вводит человек. Так, в другой раз по этой же программе будет осуществлен следующий диалог:
КОМПЬЮТЕР: Здравствуй, я компьютер, а тебя как зовут?
ЧЕЛОВЕК : Фантомас!
КОМПЬЮТЕР: Очень приятно, Фантомас! . Сколько тебе лет?
ЧЕЛОВЕК: 100
КОМПЬЮТЕР: Ого! Целых 100 лет! Ты уже совсем взрослый!
Не подумайте, что эта программа очень умна. Она совершенно не анализирует, какую информацию человек ввел с клавиатуры. Поэтому с ней возможен и такой диалог:
КОМПЬЮТЕР: Здравствуй, я компьютер, а тебя как зовут?
ЧЕЛОВЕК: Сгинь с моих глаз!
КОМПЬЮТЕР: Очень приятно, Сгинь с моих глаз!. Сколько тебе лет?
ЧЕЛОВЕК: -2
КОМПЬЮТЕР: Ого! Целых -2 лет! Ты уже совсем взрослый!
Задание 15.
Напишите программу для следующей задачи: Компьютер запрашивает названия двух планет, радиусы их орбит (в миллионах километров) и скорости движения по орбите (в миллионах километров в сутки). После этого он вычисляет продолжительность года на планетах и выдает результат в таком виде:
Продолжительность года на планете Земля – 365 суток, а на планете Эоэлла – 12 суток.
Результат нужен в трех вариантах: вывод в текстовое поле, метку и MsgBox.
Указание для тех, кто не знает физики и геометрии: Год равен времени одного оборота по орбите, а оно равно длине орбиты, деленной на скорость движения по орбите. Длина орбиты равна 2?R, где R – радиус орбиты.
