надо составить блок схему

[dima.m]

вот по вот этим програмам
1)дано n вещественных чисел. Вычислить разность между максимальным и минимальным из них
код
Sub asdf()

Dim n, i As Long
Dim all As String
Dim max, min, s As Double
n = InputBox("N=")
min = n * 100
For i = 1 To n
s = InputBox(Str(i) + "èç " + Str(n), "введите N")
If s > max Then max = s
If s < min Then min = s
all = all + Str(s) + ";"
Next i
MsgBox ("ваши числа" & all & Chr(13) & "min = " & min & Chr(13) & "max= " & max & Chr(13) & "разность " & (max - min))

End Sub
2)вычислить сумму ряда у=1*3+3*5+5*7...+31*33
код:
Sub s1()
MsgBox "Sum = " & SUM135(33)
End Sub

Function SUM135(d)
If d = 1 Then Exit Function
SUM135 = SUM135(d - 2) + d * (d - 2)
End Function

[zoluxa]

а чево не понятного в складании блок-схемы??? если цыкл обозначается трапецией, виполнение деиствий(умножение, присваевание функции и т.д.) обознач прямоугольником, а вивод данных на екран обрезаным с низу кривой линией прямоугольник, начало и конец обозначается прямоугольниками с закругленными боковыми сторонами)))

[zoluxa]

ааа, ище цыкл иф обозначается ромбом, от которого идет продолжения в лево(в право) и в низ, в лево (в право) ета если не удовлитворяет условие, а в низ если удов. или наоборот