Построить на экране розу ветров по заданным натуральным числа к1,…к8, определяющим северное, северо-восточное, восточное, юго-восточное, южное, юго-западное, западное или северо-западное направление. Числа считываются из текстового файла.
Либо распишите каждую строчку (что они значат):
dim as string s
dim as single d,t
Dim x(8)
For t = 1 To 8
Input(s)
x(t) = Val(s)
Next
Screen(12)
d = 6.28 / 8
For t = 1 To 8
line (320,240)-(320+sin(d*t)*x(t)*10,240+cos(d*t)*x(t)*10)
Next
Input(zzz)
Либо распишите каждую строчку (что они значат):
dim as string s
dim as single d,t
Dim x(8)
For t = 1 To 8
Input(s)
x(t) = Val(s)
Next
Screen(12)
d = 6.28 / 8
For t = 1 To 8
line (320,240)-(320+sin(d*t)*x(t)*10,240+cos(d*t)*x(t)*10)
Next
Input(zzz)