VPF::[VB6] Проверьте пожалуйста и помогите

ariya

Дата 28.5.2015, 18:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.5.2015

Репутация: нет
Всего: нет

Помогите составить блок схемы к 2 заданиям.
Задание № 1: С клавиатуры вводится три оценки по экзаменам студента. Вычислить средний балл студента – S. Определить, какую стипендию ему начислить: повышенную (S>=4.5), обычную (4<S>4.5), или отказать в ней (S<4).

Private Sub Command1_Click()
Dim Z, M As Double
Dim t, l, k As Single
t = Val(InputBox("Первая оценка"))
l = Val(InputBox("Вторая оценка"))
k = Val(InputBox("Третья оценка"))
M = (t + l + k) / 3
Z = Round(M, 2)
Select Case Z
Case Is < 4
MsgBox "При средней оценке " + Str(Z) + " " + "стипендии не будет"

Case Is >= 4.5
MsgBox "При средней оценке " + Str(Z) + " " + "будет повышенная стиендия"

Case 4 To 4.5
MsgBox "При средней оценке " + Str(Z) + " " + "будет обычная стипендия"
End Select
End Sub

Задание №2: Дана последовательность из M чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение этих чисел.

Private Sub Command1_Click()
Dim A, B, L, S, K As Single, N As Integer
L = Val(InputBox("Введите начальное число"))
B = Val(InputBox("Введите конечное число"))
N = 0: S = 1

For i = L To B

If i > 7 And i < 20 Then
S = S * i
K = K + 1

Text1.Text = "Количество чисел в промежутке от 7 до 20 = " + Str(K) & vbCrLf & "Произведение этих чисел = " + Str(S)

Else
Text1.Text = "Нет чисел, входящих в промежуток от 7 до 20"

End If
Next i

End Sub

Это сообщение отредактировал(а) ariya - 28.5.2015, 18:59

Akina

Дата 29.5.2015, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 453

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »