Задачи: Visual Basic

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

  1. Гость

    Вычеслить и вывести на экран y=Корень ( модуль(а^2+х^2)-2) при (-2)<=х<=(2); dx=0.3
    я честно пыталась что-нибудь изобразить....

    Dim x As intejer
    Public Function y()
    y = Sqr(Abs(a ^ 2 + x ^ 2) - a)
    If (-2) <= x <= 2 Then dx = 0.3
    End Function
     
  2. Гость

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

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    код к 1й даже не хочу комментировать, бред полный - ни синтаксиса, ни понимания задачи не вижу и близко.
    может, это изобразительное искусство? к сожалению, в этом искусстве как-то слабовато разбираюсь...
    Что отнимать будем? 2 или а? и что за зверь это - а? Может, а = 2? =) будем считать, что это какая-то переменная, которую передадим фукции.

    попробуйте так, тут а=0:
    Код (LotusScript):
    Public Function y(x As Double, a As Double)
    y = Sqr(Abs(a*a + x*x) - a) ' или можно y = Sqr(Abs(a ^ 2 + x ^ 2) - a)
    End Function
    Sub main()
    Dim xi As Double
    Dim a As Double ' хз что
    Const dx = 0.3
    a = 0
    xi = -2
    While xi <= 2
    Print "x=" & CStr(xi) & " y=" & CStr(y(xi, a))
    xi = xi + dx
    Wend
    End Sub

    2 задача, мне там непонятно.
    Вот есть матрица, например:
    Код (Text):
    0   1   2   3   4   5
    0   1   2   3   4   5
    0   1   2   3   4   5
    0   1   2   3   4   5
    0   1   2   3   4   5
    0   1   2   3   4   5
    как в ней можно расположить строки, чтобы диагональные элементы были выстроены по убыванию? =)
    Диагональные элементы = это только главная диагональ? т.е. A1 > B2 > C3 > D4 > E5 > F6
    Если менять местами только элементы главной диагонали, задача имеет смысл. Если менять местами надо строки, то это непонятно что...
     
  4. Гость

    Спасибочки за первую))) а во второй задачке написаны строки и даже подчёркнуто что именно строки ,и как делать вобще честно говоря не подазреваю
     
  5. ruxa75

    ruxa75 Гость

    Помогите решить задачи(блок схеми,графический интерфейс, програмние коды), please!!!!!
    Задача 1: Даны натуральное число n, действительние числа а 1,......,а n.Если в результате замени отрицательних членов последовательности а 1,.......,а n их квадратами члены будут образовивать неубывающую последовательность,то получить суму членов исходной последовательности;в противном случае получить их произведение.
    Задача 2: Даны натуральное число n, целые числа а 1,.......,а n(в этой последовательности могут быть повторяющиеся члени).Получить последовательность,состоящую из чисел, взятих по одному из каждой группы равных членов.
     
Загрузка...

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