3.5 Задачи и упражнения для самостоятельного выполнения
1. Найти сумму целых чисел от 1 до 100.
2. Выдать на экран 5 целых случайных чисел в диапазоне от -15 до +36.
3. Составить из трех цифр, введенных с клавиатуры наименьшее число.
4. Найти сумму цифр целого числа, введенного с клавиатуры.
5. Выдать на экран все буквы русского алфавита с помощью функции CHR.
6. Составить программу определения числа слов в предложении, введенного с клавиатуры.
7. Перемешать случайным образом буквы слова, введенного с клавиатуры.
8. Составить программу перевода целого десятичного числа в двоичную систему.
3.6 Примеры решения задач
Задача 1.
Составить программу решения уравнения вида ах2 + вх + с = 0. Коэффициенты а, в, с задаются с клавиатуры.
Внешний вид формы.
На форме установлены пять меток с заголовками (свойство Caption) А, В, С, Х1, Х2, пять текстовых полей и кнопка с заголовком “Решение квадратного уравнения”. Верхние текстовые поля предназначены для ввода значений коэффициентов А, В, С. Два нижних текстовых поля предназначены для вывода значений полученных корней Х1 и Х2.
Текст программы для кнопки.
Private Sub Command1_click()
Dim A,B,C as single
Dim X1, X2, D as single
A=Val(text1.text)
B=Val(text2.text)
C=Val(text3.text)
‘вычисление дискриминанта
D=B^2 – 4*A*C
‘Проверка дискриминанта перед извлечением квадратного корня
If D<0 Then
‘выдаем окно сообщения
MsgBox “Дискриминант отрицательный. Нет корней”
End If
If D>=0 Then
X1=(-B+SQR(D))/(2*A)
X2=(-B-SQR(D))/(2*A)
Text4.text=X1
Text5.text=X2
End If
End Sub
Задача 2.
Составить программу перевода целого десятичного числа в двоичную систему.
Решение.
Интерфейс программы имеет вид:
Текст программы.
‘область General в окне программного кода
Dim y As Integer
‘процедура кнопки «Перевод 10х2»
Private Sub Command1_Click()
Text2.Text = "" ‘очищаем текстовое поле Text2
y = Val(Text1.Text)
While y > 1
k1 = y Mod 2
y = y \ 2
Text2.Text = Str(k1) + Text2.Text ‘операция сцепления строк
Wend
Text2.Text = Str(y) + Text2.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Задача 3.
Составить программу поиска заданного слова в тексте.
Решение.
В текстовое поле Text1 вводится текст, а в текстовое поле Text2 вводится искомое слово. После нажатия кнопки в текстовом поле Text3 появляется информация о количестве найденных слов.
Внешний вид формы.
Текст программы.
Private Sub Command1_Click()
S1 = Text1.Text
s2 = Text2.Text
X1 = Len(S1) ‘определяем длину строки Х1
X2 = Len(s2) ‘определяем длину строки Х2
ct = 0 ‘обнуляем счетчик найденных слов
For i = 1 To (X1 - X2)
s3 = Mid(S1, i, X2) ‘выделяем с позиции i в строке S1 X2 символов
If s3 = s2 Then ct = ct + 1
Next i
Text3.Text = ct
End Sub
3.7 Темы рефератов
1. Операторы управления.
2. Парадигмы программирования.
3. Процедурное программирование.
4. Концепция модульного программирования.
5. Структурное программирование.
6. Объектно-ориентированное программирование.
7. Современные технологии программирования.
8. Программирование графики на Visual Basic 6.0.