Visual Basic

  • Автор темы avolare
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

avolare

#1
Дана последовательность N целых чисел заданных случайным образом из диапазона 10-999. Вывести на экран количество чисел последовательности у которых предпоследняя цифра k.
1 вводим n- размер последовательности
2 составляем массив случайных чисел размером n и записываем числа в ячейке таблицы
3 задаём k
4 в цикле for вычисляется предпоследняя цифра элемента массива и, если она совпадает с k, то их количество суммируется и выводится в ячейку
Описание переменных
Arr- переменная, которая хранит все сгенерированные числа
a- длина массива аrr
………………..
Код:
Sub dva
Dim arr As Integer
Dim a As Integer
Dim b As Single
Privat Sub Zadacha
a=Input Box (“введите число элементов последовательности”)
ReDim arr(a)
Randomize
b=0
For i=0 To a -1 Step 1
arr (i)=100+899*Rnd( )
Cells(2;1). Value=arr(i)
Next i
Dim K As Integer
Dim cifra As Integer
Dim S As Integer
k= Input Box (“введите число k”)
S=0
For i=0 To a -1 Step 1
cifra= (arr(i)\10) Mod 10
If ((arr(i)>=10) And (cifra=k) Then
S=S+1
End if
Next i
Cells(3;1). Value(“количество чисел последовательности”)
Cells(4;1). Value(S)
End Sub
правильно ли ?
 
G

Guest

#2
Дана последовательность действительных чисел в диапазоне А5:А36,заполнить столбец В числами согласно условию: Аi.если модуль Аi <= 3 ;0,5 в остальных случаях.


вторая задачка :
диапазон А1:F6 заполнен целыми числами , Расположить строки таким образом ,чтобы диагональные элементы оказались выстроены по убыванию.
 

hosm

* so what *
18.05.2009
2 442
6
#3
1)
Код:
For i=5 to 36
if Abs(Cells(1,i). Value) <= 3 then
Cells(2,i). Value = Cells(1,i). Value
else
Cells(2,i). Value = 1/2
end if 
next
 

hosm

* so what *
18.05.2009
2 442
6
#4
Машуля задачки перенесены в Задачи: Visual Basic
неужели так трудно создать для своих задач тему? Ведь они не имеют ничего общего со стартовым сообщением, кроме языка реализации.
 
G

Guest

#5

hosm

* so what *
18.05.2009
2 442
6
#6
входите на форум, открываете нужный раздел форума и есть там вот такая светленькая кнопка справа (внизу и вверху)
, при наведении указателя мыши меняет цвет так, как на нижней картинке. жмете - и дальше вводите краткий заголовок, текст (и по желанию описание темы)...
 
Статус
Закрыто для дальнейших ответов.