Все любят бейсик, но никто о нем ничего не знает. Уголок помощи.

Тема в разделе "Железо и софт", создана пользователем Ccd777, 19 дек 2014.

  1. Ccd777

    Ccd777 Стрелок у Истока

    Столкнулся с тем, что семестр заканчивается, а я проспал слишком много пар и не в состоянии сейчас правильно составить программу для бейсика(да-да, как ни странно, у меня в универе преподают бейсик, да-да).
    Нужна помощь доброго человека, который не пожалеет 15 минут своего времени, чтобы составить программу в бейсике по структуре развилка.
    Само задание:
    Разработать информационную технологию, позволяющую определять, можно ли квадрат описать окружностью. Заданы площадь квадрата и длина окружности.
    Грустно или смешно- не знаю.:awesome:
     
  2. Улыбка

    Улыбка Привидение

    Так ты не только просыпал информатику, но еще и математику...

    Так уж и быть... подержу тебя и посмеюсь тоже :awesome::awesome::awesome:
     
    Фабя нравится это.
  3. Ccd777

    Ccd777 Стрелок у Истока

    При чем тут матан? Я знаю формулы, по которым это решается, не знаю, как это правильно оформить. Программа создается под микрософт вижуал бейсик.
    PrivateSub Command1_Click()

    Const pi=3.14

    Dim S As Single, L As Single, c As Single, D As Single, a As Single

    S = InputBox("S")

    L = InputBox("L")

    a = sqrt(S)

    c = Sqr(2 * a ^ 2)

    D = L / Pi

    If c < D Then

    MsgBox "Квадрат можно описать окружностью"

    Else

    MsgBox "Квадрат нельзя описать окружностью"

    End Sub
    Ты в последнее время какой-то неадекватный и злобный. Что с тобой?
     
  4. Улыбка

    Улыбка Привидение

    Тебе показалосьB)
     
  5. InsaneMash

    InsaneMash Глупый нуб

    Убери нафиг строку
    c = Sqr(2 * a ^ 2)
    и замени
    c < D
    на
    a < D
     
  6. momus

    momus *Придумайте название*

    Делать домашку на лолгейме это такой зашквар, лол.
     
    zfx, Фабя, Pietorro и 4 другим нравится это.
  7. Ccd777

    Ccd777 Стрелок у Истока

    Хм, окей. Спасибо.
    Мой дом родной.:awesome:
    Ну и в конце концов, вай нот?
     
  8. Синдри

    Синдри Коренной житель

    Длина окружности равна PD, она может быть вписанная, может быть описанная.
    Отсюда выражаешь легко D, В случае вписанной окружности, это будет длиной стороны квадрата. В случае описанной - Диагональю.
    Диагональ равна Корню2 умноженную на сторону, то есть сторона равна диагональ делить на корень2.
    Изи катка. Не знаю как тебе оформлять, задание банальнейшее.
    --- добавлено: 19 дек 2014 ---
    Открой в бейсике руководство в верхней строке, там всё написано, таки.
     
  9. Ccd777

    Ccd777 Стрелок у Истока

    Вся суть.
     
  10. Синдри

    Синдри Коренной житель

    Да просто почитай в гугле любое пособие за 10 минут, тебе не нужны люди.
    Это же задание на уровне ПТУ какого-то, не обижай меня.
     
  11. DmiIn

    DmiIn Легендарная личность

    Private Sub Command1_Click()
    Const pi = 3.14
    Dim S As Single, L As Single, R As Single, A As Single
    S = Val(InputBox("S")) 'Площадь квадрата'
    L = Val(InputBox("L")) 'Длина окружности'
    R = L / (2 * pi) 'Радиус'
    A = (S * 2) ^ (1 / 2) / 2 '1/2 диагонали'
    If R >= A Then MsgBox ("можно")
    If R < A Then MsgBox ("нельзя")
    End Sub
     
    Ccd777 нравится это.
  12. InsaneMash

    InsaneMash Глупый нуб

    А, тьфу, забудь. Я для варианта "круг вписать в квадрат" сказал, а не наоборот. Тут выше тебе посчитали правильно.
     
  13. WitcherSanek

    WitcherSanek Фаворит форума

    Учить бейсик в институте это гениально.
     
    ArtemDrowMag нравится это.
  14. KIRUKATO

    KIRUKATO Старожил

    Расскажи преподам о том что ты воплощение Дрейвена на форуме lol-game-а и ничего не нужно будет делать.
     
    NormalName нравится это.
  15. Ccd777

    Ccd777 Стрелок у Истока

    Да, я уже понял.:awesome:
    Привет.:kappa:
    Если бы это было возможно.
     
  16. Grammaton

    Grammaton Клерик у Истока

    Когда дойдёшь до С++ пиши.;) А так, конечно, базик в инсте... Сильно.
     
  17. myaca

    myaca Опытный Пользователь

    матан != математика -_-
     
  18. Ccd777

    Ccd777 Стрелок у Истока

    Рили?:awesome:
     
  19. TERAB1T

    TERAB1T Опытный Пользователь

    Матан != математика. Матан ∈ математика.
     
  20. DeGrail

    DeGrail Легендарная личность

    Не обижайте бейсик, я с него прогать начинал. С того, который QBasic :kappa:
     
  21. iFirelife

    iFirelife Старожил

    легкие же у вас задания) Повезло. У нас на первом курсе задавали строить прогу которая бы сама строила графы, а потом искала его дерево, но не на бейсику, конечно.
     
  22. WitcherSanek

    WitcherSanek Фаворит форума

    У нас сейчас задание-написать стековый процессор и основанный на нем язык программирования с синтаксическим анализатором. Легкие у вас задания
     
  23. Ccd777

    Ccd777 Стрелок у Истока

    А у меня бейсик.:awesome:
     
  24. MSI-MasteR

    MSI-MasteR Коренной житель

    А я томат и у меня G-коды и Sinumeric :kappa:
     
  25. myaca

    myaca Опытный Пользователь

    математический анализ это раздел математики, начинается вроде бы как с пределов у вас на первом курсе =)
     
  26. TERAB1T

    TERAB1T Опытный Пользователь

    Ну я об этом и написал, поставив знак "∈".
     
  27. myaca

    myaca Опытный Пользователь

    да знаю я) я ему еще раз тыкнул)
     
  28. Фабя

    Фабя Фаворит форума

    Это же поколение гугла хД
     
  29. 1as1

    1as1 Фаворит форума

    напишите мне лолец 2го сезона на бейсике :awesome:
     
  30. Ccd777

    Ccd777 Стрелок у Истока

    Даже в бейсике код выйдет лучше нынешнего.:kappa: