Basic, массивы

Ответить
анюта18
Сообщения: 1
Зарегистрирован: 15 июн 2008, 11:10

15 июн 2008, 11:17

Уважаемые форумчане, я не разбираюсь в програмировании на данном языке , но мне очень нужно решить задачу:
ввести одномерный массив А размерности N с клавиатуры. массив В размерности N заполнить используя формулу: В(i)=cosi^2. сформировать массив С(N) используя значения элементов массивов А(N) и В(N) по формуле: С(i)=A(i):В(i). вывести исходные массивы сформированный массив и количество элементов больших 7 с пояснением на экран.
буду очень благодарна за любую помощь!!!
C_O_D_E
Сообщения: 293
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

16 июн 2008, 21:40

сформировать массив можно таким образом.
Dim A(n),B(n), C(n) As single
Dim i,n,k As Integer
n=inputbox("ВВедите размерность данного массива")
For i=0 to n
a(i)=inputbox("Элемент массива")
b(i)=cos (i^2) 'можно cos(i*i)
c(i)=A(i)/В(i)
print a(i), B(i), C(i)
next i
print

с пояснением на экран.

эта фраза меня слегка смущает, а пояснять собственно что?


считаем, кол-во больше 7


for i=0 to n
If a (i)<7 then k=k+1
If b (i)<7 then k=k+1
If C (i)<7 then k=k+1
next i
print k
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Ответить