прверьте правильные ли у меня блок-схемы

[uradik2]

вот ссылка на блок-схемы
http://mmbuilder.ru/_fr/17/qqq.rar

Задача: Величина зарплаты равна 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

[Alex Cones]

Нормальную ссылку дайте. Хотя бы на радикал. Или Gap`ом: http://www.programmersforum.ru/showp...3&postcount=50

[uradik2]

все, я изменил ссылку

[Alex Cones]

В блок-схеме НЕ пишется код. Это схематичное представление принципа работы, а не листинг кода. Поэтому пишем РУССКИМ языком и вместо For i:=... пишем "I от 1 до 9".
Первые два действия в вашей схеме заменяются на ВВОД S,P . Аналогично остальные. В блок схемах НЕ пишутся переводы из одного типа в другой.
Заменяйте все.

[uradik2]

я не понял, если тебе не трудно сможе исправить мои ошибки, и выложить уже исправленные блок-схемы,

[Alex Cones]

Что непонятно? ВВОД - параллелограмм (пьяный прямоугольник).

выложить уже исправленные блок-схемы,

Это уже фриланс.

[uradik2]

а сколько руб за исправление ошибок ты хочешь?