Basic, язык программирования Опции

[jura_k]

Построил график функции z = x / y.
Скачать программу, её текст и скриншот: https://yadi.sk/d/BpCajMpwqRPvp
Системные требования: Win32. Но вы всё равно не сможете её запустить, потому что ей требуется dll-библиотека, а у вас её нет.
Скриншот программы под Windows 95:

» Кликните сюда для просмотра оффтоп текста.. «

Код

Rem   p8
Rem   p8 - task 3 - book 1
Rem   Язык Visual Basic 5.0

Option Explicit

Rem   ba - координата x, bb - координата y, bc - ширина графика
Rem   bd - масштаб графика
Dim ba, bb, bc, bd As Integer
Rem   Координаты линии в 3D: (ea, eb, ec) - (ed, ee, ef)
Dim ea, eb, ec, ed, ee, ef As Single

Rem   Рисование системы координат
Function ga()
    Cls
    Line (ba, bb)-(ba - bc, bb - bc / 2), QBColor(8)
    Line (ba, bb)-(ba + bc, bb - bc / 2), QBColor(8)
    Line (ba, bb)-(ba, bb - bc), QBColor(15)
    Line (ba, bb)-(ba - bc, bb + bc / 2), QBColor(15)
    Line (ba, bb)-(ba + bc, bb + bc / 2), QBColor(15)
End Function

Rem   Рисование линии в 3D-координатах
Function gb()
    Line (ba - ea + eb, bb + (ea + eb) / 2# - ec)- _
        (ba - ed + ee, bb + (ed + ee) / 2# - ef), QBColor(14)
End Function

Rem   Функция, график которой надо построить
Function ha(a As Single, b As Single)
    ha = a / b
End Function

Private Sub Form_Load()
    ba = 400: bb = 400: bc = 380: bd = 50
End Sub

Private Sub Form_Paint()
    Dim a, b As Integer
    Dim c, d As Single
    
    ga
    For a = -bc To bc Step 10
        For b = -bc To bc
            If b = 0 Then GoTo aaa
            c = ha(a / CSng(bd), b / CSng(bd)) * bd
            If b > -bc And b <> 1 Then
                ea = a: eb = b: ec = c: ed = a: ee = b - 1: ef = d
                gb
            End If
            d = c
aaa:
        Next
    Next
End Sub

[jura_k]

Вот что написано в учебнике по Visual Basic 5.0:

» Кликните сюда для просмотра оффтоп текста.. «

Код

Option Explicit

Rem p6 - 1

Rem a - ms
Rem d - kmh

Private Sub C1_Click()
    Dim a As Integer
    Dim d As Single
    
    a = Val(T1.Text)
    d = a * 3.6
    L3.Caption = Format$(a) + " м/сек - это " + Format$(d) + " км/ч"
End Sub

Rem p7 - 2

Private Sub C2_Click()
    Dim a As Integer
    Dim d As Single
    
    If Len(T1.Text) = 0 Then
        L3.Caption = " Нужно ввести скорость "
    Else
        a = Val(T1.Text)
        d = a * 3.6
        L3.Caption = Format$(a) + " м/сек - это " + Format$(d) + " км/ч"
    End If
End Sub

Rem p7 - 3

Private Sub T1_KeyPress(g As Integer)
    If Not (g >= 48 And g <= 57 Or g = 8) Then g = 0
End Sub

Rem p8 - 4

Private Sub windspeed()
    Dim a As Integer
    Dim d As Single
    
    If Len(T1.Text) = 0 Then
        L3.Caption = " Нужно ввести скорость "
    Else
        a = Val(T1.Text)
        d = a * 3.6
        L3.Caption = Format$(a) + " м/сек - это " + Format$(d) + " км/ч"
    End If
End Sub

Rem p9 - 5

Private Sub C3_Click()
    Call windspeed
End Sub

[jura_k]

А вот что нужно на самом деле.

» Кликните сюда для просмотра оффтоп текста.. «

Код

Option Explicit

Rem   290.1. Даны декартовы координаты N точек на плоскости.
Rem   Составить программы решения следующих задач.
Rem   а) Найти две самые близкие друг к другу точки.
Rem   б) Найти две самые удалённые друг от друга точки.
Rem   в) Найти три точки, лежащие в вершинах треугольника
Rem   с наибольшим периметром.
Rem   г) Найти две ближайшие точки, отрезок между которыми может
Rem   служить радиусом окружности, заключающей внутри себя все
Rem   остальные точки. Указать, какая из них является центральной.

Private Sub C1_Click()
    Rem   Число точек
    Dim N As Integer
    N = 20
    
    Rem   Координаты точек
    Dim x(20) As Integer, y(20) As Integer
    Dim r(20, 20) As Single
    
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    Dim g As String
    Dim j As Single
    
    Rem   1. Генерация точек
    For a = 1 To N
        x(a) = Rnd() * 100
        y(a) = Rnd() * 100
        g = "(" & x(a) & ", " & y(a) & ")"
        Print g
    Next
    
    Rem   2. Расчёт расстояний между точками
    For a = 1 To N
        For b = 1 To N
            c = x(a) - x(b)
            d = y(a) - y(b)
            r(a, b) = Sqr(c * c + d * d)
        Next
    Next
    
    Rem   3. Поиск минимального расстояния между точками
    c = 1
    d = 2
    j = r(1, 2)
    
    For a = 1 To N
        For b = a + 1 To N
            If r(a, b) < j Then
                c = a
                d = b
                j = r(a, b)
            End If
        Next
    Next
    
    g = "1. Минимум: r (" & c & ", " & d & ") = " & j & "."
    Print g
    
    Rem   4. Поиск максимального расстояния между точками
    c = 1
    d = 2
    j = r(1, 2)
    
    For a = 1 To N
        For b = a + 1 To N
            If r(a, b) > j Then
                c = a
                d = b
                j = r(a, b)
            End If
        Next
    Next
    
    g = "2. Максимум: r (" & c & ", " & d & ") = " & j & "."
    Print g

End Sub