|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.03.2010, 10:30 | #1 |
Пользователь
Регистрация: 22.03.2010
Сообщений: 18
|
блок-схемы по готовым программным кодам
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 |
26.03.2010, 10:32 | #2 |
Новичок
Джуниор
Регистрация: 25.07.2009
Сообщений: 2
|
Сделаю. Barsp@yandex.ru ICQ 560-413-250
|
26.03.2010, 11:19 | #3 |
323787261
Пользователь
Регистрация: 19.12.2008
Сообщений: 49
|
Сделаю быстро недорого ICQ: 323787261.
ICQ: 323787261
Email: pschegolevatykh@gmail.com |
26.03.2010, 11:21 | #4 |
Новичок
Джуниор
Регистрация: 19.02.2010
Сообщений: 0
|
Уже готово.
Стучитесь в icq 868(четыре)458. Отдам бесплатно или за маленькое вознаграждение. |
27.03.2010, 07:03 | #5 |
Пользователь
Регистрация: 11.10.2009
Сообщений: 29
|
Готов выполнить.
ICQ: 593-983-656 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блок-схемы | Tiziano | Помощь студентам | 6 | 03.02.2010 23:28 |
Блок-схемы | lena-88 | Помощь студентам | 8 | 01.01.2010 20:29 |
блок схемы | Defender42 | Помощь студентам | 4 | 24.12.2009 13:34 |
блок схемы. | Artimbulidor | Помощь студентам | 0 | 10.06.2009 19:03 |
Блок-схемы С++ | prikolist | Общие вопросы C/C++ | 0 | 19.05.2009 17:09 |