Visual Basic

[avolare]

Дана последовательность 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

правильно ли ?

 

[Guest]

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


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

 

[hosm]

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]

Машуля задачки перенесены в link removed
неужели так трудно создать для своих задач тему? Ведь они не имеют ничего общего со стартовым сообщением, кроме языка реализации.

 

[Guest]

Машуля задачки перенесены в Задачи: Visual Basic
неужели так трудно создать для своих задач тему? Ведь они не имеют ничего общего со стартовым сообщением, кроме языка реализации.

я просто не знаю как создавать темы самой

 

[hosm]

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