1. Создать новый проект и программу для решения задачи: для х=2700, 900, 300, 100 вычислять и печатать у = х/4 + 20 и z = 2*у + 0.23 до тех пор, пока y*z не станет меньше 1/х. Макет формы показан на рис. 35.
2. Программный код для кнопки пуск 1:
Dim X, Y, Z As Double
X=2700
X=X*3
Y=X/4+20
Z=2*Y+0.23
Do Until Y*Z<1/X
X=X/3
Y=X/4+20
Z=2*Y+0.23
Print "Y="; Y, "Z="; Z
Loop
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 4.18
1. Создать новый проект и программу для решения задачи: печатать с помощью оператора For: Прямой счет: -3 -2 -1 0 1 2 3 Обратный счет: 3 2 1 0 -1 -2 -3 Конец счета. Макет формы показан на рис. 35.
2. Программный код для кнопки пуск 1:
Dim i, j As Integer
Form1.Cls
Print "Прямой счёт:"
For i=-3 To 3 Step 1
Print i;
Next i
Print "Обратный счёт:"
For j=3 To -3 Step -1
Print j;
Next j
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 4.19
|
|
1. Создать новый проект и программу для решения задачи: в компьютер вводится N чисел. Подсчитать из них количество положительных, отрицательных и тех, что превышают число 10. Макет формы показан на рис. 35.
2. Программный код для кнопки пуск 1:
Form1.Cls
Dim N, X, Y1, Y2, Y3 As Integer
Dim A As Single
N=InputBox("Укажите, пожалуйста, количество чисел, которое вы хотите ввести", "Ввод количества чисел")
For X=1 To N Step 1
A=InputBox("Введите, пожалуйста, число", "ввод чисел")
If A>0 Then
Y1=Y1+1
If A>10 Then Y2=Y2+1
Else
Y3=Y3+1
End If
Next X
Print "Количество положительных чисел ="; Y1
Print "Количество отрицательных чисел ="; Y3
Print "Количество чисел, превышающих 10 ="; Y2
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 4.20
1. Создать новый проект и программу для решения задачи: в компьютер вводится N чисел. Вычислить и напечатать их сумму. Макет формы показан на рис. 35.
2. Программный код для кнопки пуск 1:
Form1.Cls
Dim N, X As Integer
Dim A, B As Single
N=InputBox("Укажите, пожалуйста, количество чисел, которое вы хотите ввести", "Ввод количества чисел")
For X=1 To N Step 1
A=InputBox("Введите, пожалуйста, число", "ввод чисел")
B=B+A
Next X
Print "Сумма чисел ="; B
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.