Visual Basic

Тема в разделе "Другие задачи", создана пользователем avolare, 9 дек 2010.

Статус темы:
Закрыта.
  1. avolare

    avolare Гость

    Дана последовательность N целых чисел заданных случайным образом из диапазона 10-999. Вывести на экран количество чисел последовательности у которых предпоследняя цифра k.
    1 вводим n- размер последовательности
    2 составляем массив случайных чисел размером n и записываем числа в ячейке таблицы
    3 задаём k
    4 в цикле for вычисляется предпоследняя цифра элемента массива и, если она совпадает с k, то их количество суммируется и выводится в ячейку
    Описание переменных
    Arr- переменная, которая хранит все сгенерированные числа
    a- длина массива аrr
    ………………..
    Код (LotusScript):
    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
    правильно ли ?
     
  2. Гость

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


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

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    1)
    Код (LotusScript):
    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
     
  4. hosm

    hosm * so what *

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

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

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    входите на форум, открываете нужный раздел форума и есть там вот такая светленькая кнопка справа (внизу и вверху) [​IMG], при наведении указателя мыши меняет цвет так, как на нижней картинке. жмете - и дальше вводите краткий заголовок, текст (и по желанию описание темы)...
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей