| Вопрос: Simple Task | Добавлено: 19.11.05 13:38 |
Автор вопроса:  LoveSan
|
|
Че-то странное с моим Basic'oм или со мной..:) Нужно вычислить площади прямоугольников с постоянной стороной "а" = 4см и "b" - которая меняется с шагом 2мм от 3 до 6 см. По идее должно отбираться: 30,32,34,36,38,,,,,,,,, а он все подряд щитает негодяй!!! :(
Dim a% Dim b! Dim s! Private Sub Command1_Click() a = 4 If b Mod 2 = 0 Then For b = 30 To 60 s = a * b Print Tab; "Площадь равна"; s / 10 Next b Else: b = b + 1 End If End Sub Чего-то я не догоняю наверное.......... |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  el-paso Вопросов: 3 Ответов: 164 |
Профиль | | #1 | Добавлено: 19.11.05 14:19 |
|
Private Sub Command1_Click() ' Dim a#, b#, s# ' a = 4 For b = 3 To 6 Step 0.2 s = a * b Print "Area: " & s & " sq.cm" Next b ' End Sub |
||
|
Номер ответа: 2 Автор ответа: el-pasoВопросов: 3 Ответов: 164 |
Профиль | | #2 | Добавлено: 19.11.05 14:30 |
|
А лучше так:
Private Sub Command1_Click() ' Dim a&, b&, s# ' a = 40 For b = 30 To 60 Step 2 s = a * b / 100 Print "Area: " & s & " sq.cm" Next b ' End Sub У Васика проблемы с округлениями... Так что лучше итерировать целые числа. |
||
Страница: 1 |