Здраствуйте а как можно решить вот этиу задачу в бэйсике 6.0!
Задача!
Извесны вершины треугольника. Составить програкмму предлеления принадлежности N(x,y) внутренней области этого треугольника.
помгите оч надо!!!если кто поможет пиши те сюда или в личку artik091993@mail.ru

Я вроде посотрел а как программу составить и что писать вообще не знаю помогитеее!!!!пожалуйста!

А можете написать блин я вообще не разбираюсь в этом нам дали как ваще делатьн еговорили(((

Да вы не поняли блин!!мы решали на паре а в школе не проходил хоят по програме должны были!вот а задачи такие первыйр раз вижу помогите(((

блин ладно(я видел что есть раздел просто я сам лаил по сайтам те которые дали а понять так и не смог ниче(((

Не ну в этом вы не правы!геометрически ее решил а как программу написать невкурсе перечитал 2 книги по бэйсику и почти ничего 2 задачи сделал а еще 2 немогу(

1 задача вообще коротка!Определить день недели. ч в книжке прочитал нашол смысл!
Private Sub Command1_Click()
Dim b As Integer
Dim otvet As String
b = Text1.Text

Select Case Combo1.ListIndex

Case 0
b = (b - 1) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
Case 1
b = (b - 0) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
Case 2
b = (b + 1) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
Case 3
b = (b + 2) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
Case 4
b = (b + 3) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
Case 5
b = (b + 4) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
Case 6
b = (b + 5) Mod 7
otvet = Combo1.List(b)
MsgBox otvet
End Select

End Sub

Private Sub Form_Load()
Combo1.AddItem "Понедельник"
Combo1.AddItem "Вторник"
Combo1.AddItem "Среда"
Combo1.AddItem "Четверг"
Combo1.AddItem "Пятница"
Combo1.AddItem "Суббота"
Combo1.AddItem "Воскресенье"

Combo1.ListIndex = 0

Text1.Text = ""

End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub



2 задача!сделал несовсе м ток начал а как сделать чтоб расчитывал незнаю( Составить программу К произвольных чисел и выбрать из них двух таких разность между которыми минимальна. Если таких пар несколько выдать на печать все эти пары числа.

Private Sub Form_Load()
Dim a As Single
Dim a1 As Single
Dim k As Single
Dim min As Single
k = InputBox("Введите число к")
min = 9999
a1 = InputBox("Введите число")
For i = 2 To k
a = InputBox("Введите число")
If Abs(a1 - 1) < min Then min = Abs(a1 - a)
a1 = a
Next i
Text1.Text = min

End Sub
и все а дальше не понимаю

Спасибо что подсказали что мимо!)а как про произвольные число правельно сделать?

Спасибо огромное всем!!!!что помгли!!!!!

А со второй кто нить помочь может про принадлежность точки к треугольнику?!

1 задаю я более менее понял там что какая пропись какую функцию обозначает!СПАСИБО!