Важная информация
Страница 1 из 3 123 ПоследняяПоследняя
Показано с 1 по 10 из 30

Тема: Помогите пожалуйста "Задача в QBasic

  1. #1 Помогите пожалуйста "Задача в QBasic 
    Новичок
    Регистрация
    03.06.2014
    Адрес
    СПб
    Сообщений
    10
    Сказал(а) спасибо
    8
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите пожалуйста решить эти 2 задачки сессия мать его)

    1) Циклические программы с известным числом повторений цикла.
    Задача: Составить программу для вычисления значения (или таблицы значений) функции. Результаты выдать на печать.

    R=X arctg, для x=0,25/2; шаг 0,25.

    2)Составить программу для нахождения наибольшего числа среди заданного множества чисел:

    -10; 13; -2; -1; 5; 2; -9; 6; 10; 7.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    у меня компилятор vb6, я могу на нём всё что угодно написать
    вчера скачал QBasic, досовский вариант... но еще не разбирался в нем

    тебе в каком виде выложить ?
    Нет подписи : (
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    RomanSamsonov (03.06.2014)

  4. #3  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    а то ты убежиш... как это было с предыдущим пользователем
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Нет подписи : (
    Ответить с цитированием  
     

  5. Пользователь сказал cпасибо:

    RomanSamsonov (03.06.2014)

  6. #4  
    Новичок
    Регистрация
    03.06.2014
    Адрес
    СПб
    Сообщений
    10
    Сказал(а) спасибо
    8
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от FelixMacintosh Посмотреть сообщение
    у меня компилятор vb6, я могу на нём всё что угодно написать
    вчера скачал QBasic, досовский вариант... но еще не разбирался в нем

    тебе в каком виде выложить ?
    В досовском если можно) а то сдавать именно в нем)
    Вторую задачу посчитал, осталась первая
    Ответить с цитированием  
     

  7. #5  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Код vb:
        Const r101 = "-10; 13; -2; -1; 5; 2; -9; 6; 10; 7"
        Dim a, f As Long
        Dim min As Long, max As Long
        a = Split(r101, ";")
        max = -2 ^ 31 + 1
    ''    For f = 0 To UBound(a): If Val(a(f)) > max Then max = Val(a(f))
        For f = 0 To UBound(a): If a(f) > max Then max = a(f)
        Next
        Print "ряд:= " & r101
        Print "Максимальное из этого ряда:= " & max
    Нет подписи : (
    Ответить с цитированием  
     

  8. Пользователь сказал cпасибо:

    RomanSamsonov (03.06.2014)

  9. #6  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    сейчас попробую в досовском варианте реализовать...
    первую ! погоди не убегай...
    Нет подписи : (
    Ответить с цитированием  
     

  10. Пользователь сказал cпасибо:

    RomanSamsonov (03.06.2014)

  11. #7  
    Новичок
    Регистрация
    03.06.2014
    Адрес
    СПб
    Сообщений
    10
    Сказал(а) спасибо
    8
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от FelixMacintosh Посмотреть сообщение
    сейчас попробую в досовском варианте реализовать...
    первую ! погоди не убегай...
    Я тут, не убегаю, спасибо за вторую, уже решил ее осталась первая
    Ответить с цитированием  
     

  12. #8  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    разбираюсь пока как там QBasic работает
    ..вот тебе пока тоже, это чтоб понять как некоторые тр.-функции
    преобразуются из стандартных

    Код таблицы преобразований:
    Sec(X) = 1 / Cos(X)
    Cosec(X) = 1 / Sin(X)
    Cotan(X) = 1 / Tan(X)
    Arcsin(X) = Atn(X / Sqr(-X * X + 1))
    Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
    Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1))
    Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) – 1) * (2 * Atn(1))
    Arccotan(X) = Atn(X) + 2 * Atn(1)
    HSin(X) = (Exp(X) – Exp(-X)) / 2
    HCos(X) = (Exp(X) + Exp(-X)) / 2
    HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
    HSec(X) = 2 / (Exp(X) + Exp(-X))
    HCosec(X) = 2 / (Exp(X) – Exp(-X))
    HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
    HArcsin(X) = Log(X + Sqr(X * X + 1))
    HArccos(X) = Log(X + Sqr(X * X – 1))
    HArctan(X) = Log((1 + X) / (1 – X)) / 2
    HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
    HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
    HArccotan(X) = Log((X + 1) / (X – 1)) / 2
    LogN(X) = Log(X) / Log(N)
    Нет подписи : (
    Ответить с цитированием  
     

  13. Пользователь сказал cпасибо:

    RomanSamsonov (03.06.2014)

  14. #9  
    Новичок
    Регистрация
    03.06.2014
    Адрес
    СПб
    Сообщений
    10
    Сказал(а) спасибо
    8
    Поблагодарили 0 раз(а) в 0 сообщениях
    Цитата Сообщение от FelixMacintosh Посмотреть сообщение
    разбираюсь пока как там QBasic работает
    ..вот тебе пока тоже, это чтоб понять как некоторые тр.-функции
    преобразуются из стандартных

    Код таблицы преобразований:
    Sec(X) = 1 / Cos(X)
    Cosec(X) = 1 / Sin(X)
    Cotan(X) = 1 / Tan(X)
    Arcsin(X) = Atn(X / Sqr(-X * X + 1))
    Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
    Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1))
    Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) – 1) * (2 * Atn(1))
    Arccotan(X) = Atn(X) + 2 * Atn(1)
    HSin(X) = (Exp(X) – Exp(-X)) / 2
    HCos(X) = (Exp(X) + Exp(-X)) / 2
    HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
    HSec(X) = 2 / (Exp(X) + Exp(-X))
    HCosec(X) = 2 / (Exp(X) – Exp(-X))
    HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
    HArcsin(X) = Log(X + Sqr(X * X + 1))
    HArccos(X) = Log(X + Sqr(X * X – 1))
    HArctan(X) = Log((1 + X) / (1 – X)) / 2
    HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
    HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
    HArccotan(X) = Log((X + 1) / (X – 1)) / 2
    LogN(X) = Log(X) / Log(N)
    Ого, это преобразование всех функций) надо бы только одну arctg которая.
    В любом случае спасибо за инфу, очень пригодится)
    Ответить с цитированием  
     

  15. #10  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    почти сделал, подскажите как можно скопировать текст
    из одного редактора в другой.. а именно в окно QBasic'а ?
    Нет подписи : (
    Ответить с цитированием  
     

  16. Пользователь сказал cпасибо:

    RomanSamsonov (03.06.2014)

Страница 1 из 3 123 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите решить задачу на QBasic. Пожалуйста!!!
    от Коля Танасійчук в разделе Basic
    Ответов: 2
    Последнее сообщение: 29.10.2013, 04:22
  2. Ответов: 8
    Последнее сообщение: 02.11.2012, 11:20
  3. Ответов: 7
    Последнее сообщение: 25.11.2011, 01:40
  4. Помогите пожалуйста решить задачи на QBasic
    от Дмитрий 1993 в разделе QBasic
    Ответов: 9
    Последнее сообщение: 23.11.2011, 18:53
  5. Ответов: 2
    Последнее сообщение: 05.05.2011, 10:55
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •