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