Программку составить в Visual basic. + необходимы блок схемы.

И где нам VB брать прикажете?

Пожалуйста качайте http://rghost.net/68kG8kbvy   в папке файл VB6 пуск VB)) Что совсем не у кого нету VB?( Помогите

Либо хотя бы просто блок-схемы...метод ветвление.

Отлично... Вы хоть понимаете, что теснее себе на бан заработали публикацией ссылки, да еще пиратской?

Разумею...((Просто сам не помню откуда брал VB...вот вы спросили где его взять..я специально для вас залил его на файлообменник...Думал поможете(

Грустно, что Вы такими тесными категориями думаете. Я написал для того, чтоб Вы поняли, как низок шанс получить ответ, предлагая решать в системе программирования, которая является лицензионной (покупной). Ведь если Вам нужен метод, довольно было указать, к образцу VBA, - там все то же, но он есть у хоть какого, у кого есть MS Office.

Понятно! Спасибо...

Function F(ByVal x)
    If Not IsNumeric(x) Then
        F = "Not a valid number"
        Exit Function
    End If

    d = 2.5
    If x lt;= 2 Then
        F = 1 - x * x
    Else
        F = d - x
    End If
End Function

Function Y(ByVal x)
    If Not IsNumeric(x) Then
        Y = "Not a valid number"
        Exit Function
    End If

    If x lt;= 0 Then
        Y = Sin(2 * x)
    Else
        If x lt;= 10 Then
            Y = Tan(x)
        Else
            Y = 0.33 * x
        End If
    End If
End Function

Sub Zadanie16067304()
    step = 5
    x = -10
    s = ""
    Do While x lt; 100
        s = s amp; "x = " amp; x amp; " y = " amp; Y(x) amp; vbNewLine
        x = x + step
    Loop
    MsgBox (s)
End Sub

Zadanie16067304()

в выделеном месте меняем Y на F, когда нужна иная функция