блок-схемы по готовым программным кодам

[uradik2]

visual basic 6
Составить блок-схемы(использовать цикл с параметром, предусловием и постусловием)

Задача: Величина зарплаты равна S руб. Каждый месяц она увеличивается на Р процентов от предыдущего года. Какую сумму денег получит сотрудник за год?

а) для цикла с параметром
Private Sub Command1_Click()
S = Val(S.Text)
P = Val(P.Text)
Z1 = S
Z = Str(Z1)
For i = 1 To 12
Z = Z + S * P / 100
Next i
MsgBox Z, , "Вывод суммы денег, которую сотрудник получит за год"
End Sub

б) для цикла с предусловием
Private Sub Command1_Click()
S = Val(S.Text)
P = Val(P.Text)
Z1 = S
Z = Str(Z1)
i = 1
Do While i <= 12
Z = Z + S * P / 100
i = i + 1
Loop
MsgBox Z, , "Вывод суммы денег, которую сотрудник получит за год"
End Sub

в) для цикла с постусловием
Private Sub Command1_Click()
S = Val(S.Text)
P = Val(P.Text)
Z1 = S
i = 1
Z = Str(Z1)
Do
Z = Z + S * P / 100
i = i + 1
Loop While i <= 12
MsgBox Z, , "Вывод суммы денег, которую сотрудник получит за год "
End Sub

Задача: С клавиатуры вводятся числа K,L,M. Найдите максимальное из этих чисел.
Private Sub Command1_Click()
Dim K1, L1, M1 As Single
K1 = Val(K.Text)
L1 = Val(L.Text)
M1 = Val(M.Text)
If K1 > L1 And K1 > M1 Then
MsgBox "K-max", , "Среди чисел K,L,M"
Else
If L1 > M1 Then
MsgBox "L-max", , "Среди чисел K,L,M"
Else
If M1 > L1 Then
MsgBox "M-max", , "Среди чисел K,L,M"
End If
End If
End If
End Sub

[Barsp]

Сделаю. Barsp@yandex.ru ICQ 560-413-250

[QuadroX]

Сделаю быстро недорого ICQ: 323787261.

[innomind]

Уже готово.
Стучитесь в icq 868(четыре)458.
Отдам бесплатно или за маленькое вознаграждение.

[Bonez92]

Готов выполнить.
ICQ: 593-983-656