Сразу хочу извинится , что вопрос,а точнее просьба, не относятся к моделизму,но все же прошу у вас помощи.Кто "шарит" в программировании в Basic-е , нужна ваша помощь,даже очень... Необходимо следующее: Составить программы описывающие алгоритмы решения задач: 1.Нахождения объема цилиндра.Радиус- R, высота- h. 2.Нахождение площади кольца образованного двумя окружностями с радиусами R1 и R2. 3.Нахождение наименьшего,наибольшего и занимающего среднее значение из 3 чисел. P.s.Заранее спасибо!!!
Это скорее подсказка, так как написано на коленке. Кроме того, хорошо бы указать, какая версия Basic. Visual, Visual .Net, а может Qbasic?
Первая задача
Dim R As Long Dim h As Long
R = Val(InputBox("Радиус")) h = Val(InputBox("Высота"))
Dim V As Long
V = 3.14 * R ^ 2 * h
MsgBox (V)
вторая задача
Dim R1 As Long Dim R2 As Long
Dim S As Long
S = 0 R1 = Val(InputBox("Радиус первой окружности")) R2 = Val(InputBox("Радиус второй окружности"))
If R1 <> R2 Then S = 3.14 * R1 ^ 2 - 3.14 * R2 ^ 2
If S < 0 Then S = 3.14 * R2 ^ 2 - 3.14 * R1 ^ 2
MsgBox (S)
Третья задача
Dim a(2) As Long Dim i As Integer
For i = 0 To 2
a(i) = Val(InputBox("Число " & i + 1))
Next
Dim Max As Long Dim Min As Long Dim Cen As Long
Max = a(0) Min = a(0) Cen = a(0)
For i = 1 To 2 If a(i) > Max Then Max = a(i) If a(i) < Min Then Min = a(i) Next
For i = 0 To 2
If a(i) <> Max And a(i) <> Min Then Cen = a(i)
Next
MsgBox (Max) MsgBox (Min) MsgBox (Cen)
А вообще третья задача не корректна. Как быть если числа равны или два из них равны? Среднее число вычислить невозможно или оно будет не верным. Числа при вводе должны быть разными и это должно проверяться программой. Надо писать такую функцию?
Сообщение отредактировал Виталий - Суббота, 22.12.2012, 10:31
Виталий,огромное спасибо!!!Если бы вы знали,как сильно вы мне помогли!!!Просто у меня за полугодие все пятерки выходят,кроме информатики,а на этой теме я болел и чтобы исправить оценку, он (учитель) специально задал мне эти задачи.А про третью задачу подразумевалось что все три числа будут разными. С уважением, Даниил.
Функция Inputbox не поддерживается. Можно заменить простым присваиванием значения типа:
R = 10 h = 24
Также видимо не поддерживается Msgbox. Это просто вывод вычисленного значения. Можно заменить чем-то типа Print S
Все зависит от версии Basic. Я не зря об этом говорил. Мой текст программы будет работать в Visual Basic for Aplication. Тебе нужно адаптировать текст под свой Basic.