Уважаемые Программисты Помагите

[cgd]

1.Составте программу расчета корней уравнения Ax^2+Bx+C
A,B,C Ввести в окна В случае отрицательного дискриминанта вывести сообщение об ошибки. результаты расчета вывести на форму!

2. Составте программу которая будет выводить в список все введенные в окне ввода числа, а затем по нажатию кнопки осуществлять операцию сортировки по возрастанию с нахождением мин. и макс. значения!

Помагите пажалуста выложите алгоритм на Visual Basic мне для сессии очень надо

[X0R]

Могу на Pascal заделать, на васик сам переделаешь.

[GameShaper]

> 1.Составте программу расчета корней уравнения Ax^2+Bx+C
A,B,C Ввести в окна В случае отрицательного дискриминанта вывести сообщение об ошибки. результаты расчета вывести на форму!

--
Private Sub Form_Load()
a=Inputbox("Введите коэф. А","Введите A")
b=Inputbox("Введите коэф. B","Введите B")
c=Inputbox("Введите коэф. C","Введите C")

d=b*b-4*a*c
If d<0 then MsgBox("Ошибка, дискреминант <0")
If d>=0 then
x1=(-b+d)/(2*a)
x2=(-b-d)/(2*a)
MsgBox("Корни: " & x1 & " и " & x2)
end if
End Sub

[GameShaper]

> 2. Составте программу которая будет выводить в список все введенные в окне ввода числа, а затем по нажатию кнопки осуществлять операцию сортировки по возрастанию с нахождением мин. и макс. значения!



Короче, размещаешь на форме четыре объекта: TextBox (Text1), ComboBox (Combo1), CommandBox (Command 1 и Command2) путем перетаскивания из панели инструментов.

Код программы:

Private Sub Command1_Click()
' Добавляет в список Combo1 текст, вводимый в поле Text1
Combo1.AddItem Text1.Text
MsgBox ("Добавлено")
End Sub

Private Sub Command2_Click()

For i = 0 To Combo1.ListCount - 2
For j = i + 1 To Combo1.ListCount - 1
If CInt(Combo1.List(i)) > CInt(Combo1.List(j)) Then
tmp = Combo1.List(i)
Combo1.List(i) = Combo1.List(j)
Combo1.List(j) = tmp
End If
Next j
Next i
MsgBox ("Минимальное - " & Combo1.List(0))
MsgBox ("Максимальное - " & Combo1.List(Combo1.ListCount - 1))
End Sub

[cgd]

Спасибо Огромное!
Обьясни пожалуста что такое:
For
ListCount
CInt
tmp
List
Что они означают мне нужно для защиты, а то спалят что не я делал!

[alex_bas]

Сообщение от cgd

Спасибо Огромное!
Обьясни пожалуста что такое:
For
ListCount
CInt
tmp
List
Что они означают мне нужно для защиты, а то спалят что не я делал!

Инет лучший друг человека

[GameShaper]

> For

"Для". Цикл, короче.

> ListCount

Количество элементов.

> CInt

Преобразовать из символа в число.

> tmp

Переменная временная.

> List

Список

> Что они означают мне нужно для защиты, а то спалят что не я делал!

Чую, что тебя и с тем что я сказал спалят.

[SuHar`]

да что ж за темы пошли..... я ору....

Сообщение от cgd

1.Составте программу расчета корней уравнения Ax^2+Bx+C

под столом....

[builder]

Хм... На ассемблере под MenuetOS не желаете? Преподаватель сползет под стол...

[Dr.PC]

на Бреин Факе могу..

[builder]

На языке ПМК МК-52 тож могу изобразить. Шагов так тридцать, не более.
Удручен. Эти люди будут делать конфы 1С (не страшно), программировать контроллеры (пострашнее) и программить системы управления АЭС. Ужас.

[Dr.PC]

Сообщение от builder

Удручен. Эти люди будут делать конфы 1С (не страшно), программировать контроллеры (пострашнее) и программить системы управления АЭС. Ужас.

Чё ужас -то.. Всё так и работает... Серьёзно.

[X0R]

Предлагаю открыть клуб программстов на машинах Поста и Тьюринга.
Особо продвинутые будут программить в бинарном коде сразу.

[zss_vrn]

офф: За последние 2 года раздел "программирование" на форуме дегенерировался. Може, правда, это в ВУЗах что-то не то...

[mexx]

ппцц, это уже вообще восьмой класс)))

[Dr.PC]

Сообщение от zss_vrn

Може, правда, это в ВУЗах что-то не то..

нет.. просто обсуждать программирование на БВФ - это как-то... странно...
Все переехали на специализированные форумы. (Наверное)

[safe]

Вот, например, в разделе "Про это..." никто не создает тем: "Памагите па сексу" с первым постом типа: "Я матерый онанист, но познакомился недавно с одной чудной девчонкой, и не знаю теперь, что делать. Тем более она мне пообещала чудесную ночь на мой день рождения, который будет через неделю. А я, стыдно признать, не знаю, что такое секс. Помогите мне, ну хотя бы скажите, какой рукой это лучше делать девушке: правой или левой?"

[SuHar`]

Сообщение от safe

Я матерый онанист

большинство постящих в раздлеле ПРО ЭТО именно такие люди.
Извиняюсь за оффтоп конечно...