VPF::[Visual Basic] Алгоритм и Код - Форум программистов

kychuv

Дата 22.12.2012, 20:00 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Здравствуйте, срочно нужна помощь!!..
я вообще ноль в Visual Basik, никак не могу сдать лабу(
нашел свою решенную лабу, она мне сказала сделать:
Внешний Do While
Внутренний Do Loop Until
Нужно мой код и алгоритм переделать в это..
Вот код:

Private Sub Command1_Click()
Dim l As Single, a As Single, R As Single, Rn As Single, Rk As Single, dR As Single, P As Single, Pn As Single, Pk As Single, dP As Single, d As Single
Const pi As Single = 3.14
l = Text1
a = Text2
Rn = Text3
Rk = Text4
dR = Text5
Pn = Text6
Pk = Text7
dP = Text8
For R = Rn To Rk Step dR
For P = Pn To Pk Step dP
d = (32 * P * a / (pi * R)) ^ (1 / 3)
Print "Диаметр d=" & d & " при напряжение R=" & R & " и силе P=" & P
Next
Next
End Sub

Вот алгоритм:

user posted image

а сама лаба в прикрепленном файле (там второе задание)

Присоединённый файл ( Кол-во скачиваний: 0 )

3_12.doc 162,00 Kb

kapbepucm

Дата 28.12.2012, 13:25 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

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

вроде так:

Код

Private Sub Command1_Click()
  Dim l As Single, a As Single, R As Single, Rn As Single, Rk As Single, dR As Single, P As Single, Pn As Single, Pk As Single, dP As Single, d As Single
  Const pi As Single = 3.14
  l = Text1
  a = Text2
  Rn = Text3
  Rk = Text4
  dR = Text5
  Pn = Text6
  Pk = Text7
  dP = Text8
  R = Rn
Do While (R <= Rk)
  P = Pn
  Do Until (P > Pk)
    d = (32 * P * a / (pi * R)) ^ (1 / 3)
    Print "Диаметр d=" & d & " при напряжение R=" & R & " и силе P=" & P
    P = P + dP
  Loop
  R = R + dR
Loop
End Sub

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

(С) kapbepucm

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