Циклическая программка

@Katulencia · Регистрация: 12.10.2012

подскажите как будет выглядеть код....пожалуйста)

@gaw · 12.10.2012, 20:04

Visual Basic

Sub f(A, B, H, t, k)
If A < B Then
 If A < -t Then f1 = 1 / (A + t) Else f1 = A / t
 Print k; vbTab; A; vbTab; f1
 f A + H, B, H, t, k + 1
End If
End Sub
 
Private Sub Command1_Click()
Cls
 Print "#"; vbTab; "x"; vbTab; "f(x)"
 t = 2: A = -3: H = 0.5: m = 7
 B = A + m * H
Call f(A, B, H, t, 1)
End Sub

Памирыч · 12.10.2012, 23:04

Katulencia, на будущее - текстовую часть нужно печатать в посте самостоятельно

@Katulencia 0 / 0 / 0 Регистрация: 12.10.2012 Сообщений: 10
		1
	Циклическая программка 12.10.2012, 16:14. Показов 588. Ответов 2 Метки нет (Все метки) подскажите как будет выглядеть код....пожалуйста) Миниатюры 0

Памирыч Почетный модератор 21367 / 9101 / 1082 Регистрация: 11.04.2010 Сообщений: 11,014
	12.10.2012, 23:04	3
	Katulencia, на будущее - текстовую часть нужно печатать в посте самостоятельно 0

Опции темы