double arrow

Практическая работа № 4.17

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. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: