Важная информация
Показано с 1 по 3 из 3

Тема: Графики функций (QBasic)

  1. #1 Графики функций (QBasic) 
    Новичок
    Регистрация
    08.06.2012
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    всем привет. хотел бы поинтересоваться у знатоков и попросить помощи в решении.
    Препод сказал, что нужно найти максимум самого "длинного графика" по оси +У и самого дляинного по оси -У. вычесть, что то там найти и ограничить графики.
    Чтобы они не по пикселям щитались а по еденичным отрезкам. и чтобы график был урезан (не вылезал за экран)
    Не знаю как это реализовать.

    Задание: Построить графики ф-ий на одной координатной сетке, и вывести всю сопроводительную информацию (оси, 0, х,у, название функций и деления по осям)

    Xнач 1 Хконеч 10 шаг 0,01 функция y=EXP(0.4*X)
    Хнач 0 Хконеч 10 шаг 0,03 функция y=50+10*X
    Хнач 1 Хконеч 10 шаг 0,1 функция y=300/X^2

    вот моя наработка, но я хз как сделать так, что бы было норм ((

    Код qbasic:
    [Ссылки могут видеть только зарегистрированные пользователи. ] 12
    Scale = 20
    ZeroX = 320
    ZeroY = 230
    ScreenHeight = 480
     
    [Ссылки могут видеть только зарегистрированные пользователи. ] (120, 250)-(520, 250), 15
    [Ссылки могут видеть только зарегистрированные пользователи. ] (510, 247)-(520, 250), 15
    [Ссылки могут видеть только зарегистрированные пользователи. ] (510, 253)-(520, 250), 15
    'Îñü Ó
    [Ссылки могут видеть только зарегистрированные пользователи. ] (ZeroX, 50)-(ZeroX, 450), 15 'Îñü Í
    [Ссылки могут видеть только зарегистрированные пользователи. ] (ZeroX, 50)-(317, 60), 15
    [Ссылки могут видеть только зарегистрированные пользователи. ] (ZeroX, 50)-(323, 60), 15
     
    FOR X = 140 TO 500 STEP Scale
        [Ссылки могут видеть только зарегистрированные пользователи. ] (X, 247)-(X, 253), 15
    NEXT X
    FOR Y = 70 TO 430 STEP Scale
        [Ссылки могут видеть только зарегистрированные пользователи. ] (317, Y)-(323, Y), 15
    NEXT Y
    [Ссылки могут видеть только зарегистрированные пользователи. ] 5, 39: [Ссылки могут видеть только зарегистрированные пользователи. ] "Y";
    [Ссылки могут видеть только зарегистрированные пользователи. ] 15, 39: [Ссылки могут видеть только зарегистрированные пользователи. ] "1";
    [Ссылки могут видеть только зарегистрированные пользователи. ] 17, 39: [Ссылки могут видеть только зарегистрированные пользователи. ] "0";
    [Ссылки могут видеть только зарегистрированные пользователи. ] 17, 43: [Ссылки могут видеть только зарегистрированные пользователи. ] "1";
    [Ссылки могут видеть только зарегистрированные пользователи. ] 17, 63: [Ссылки могут видеть только зарегистрированные пользователи. ] "X";
     
    F = 0
    FOR X = -5 TO 10 STEP .003
        Y = 50 + 10 * X
        IF F = 0 THEN
            [Ссылки могут видеть только зарегистрированные пользователи. ] (X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 2
            F = 1
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        [Ссылки могут видеть только зарегистрированные пользователи. ] -(X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 2
    NEXT X
     
    F = 0
    FOR X = 1 TO 10 STEP .01
        Y = [Ссылки могут видеть только зарегистрированные пользователи. ](0.4 * X)
        IF Y * Scale > 32767 THEN [Ссылки могут видеть только зарегистрированные пользователи. ] FOR
        IF F = 0 THEN
            [Ссылки могут видеть только зарегистрированные пользователи. ] (X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 3
            F = 1
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        [Ссылки могут видеть только зарегистрированные пользователи. ] -(X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 3
    NEXT X
     
    F = 0
    FOR X = 1 TO 10 STEP .1
        Y = 300 / X ^ 2
        IF F = 0 THEN
            [Ссылки могут видеть только зарегистрированные пользователи. ] (X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 4
            F = 1
        [Ссылки могут видеть только зарегистрированные пользователи. ] IF
        [Ссылки могут видеть только зарегистрированные пользователи. ] -(X * Scale + ZeroX, ScreenHeight - (Y * Scale + ZeroY)), 4
    NEXT X
    [Ссылки могут видеть только зарегистрированные пользователи. ] 2, 17
    [Ссылки могут видеть только зарегистрированные пользователи. ] "f(x)=50+10*X"
    [Ссылки могут видеть только зарегистрированные пользователи. ] 14, 47
    [Ссылки могут видеть только зарегистрированные пользователи. ] "f(x)=EXP(0.4*X)"
    [Ссылки могут видеть только зарегистрированные пользователи. ] 8, 59
    [Ссылки могут видеть только зарегистрированные пользователи. ] "f(x)=300/X^2"
    Последний раз редактировалось Kakos_nonos; 08.06.2012 в 16:49.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Да вроде там и так всё норм.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Ёмаё, дали же вам решение уже на цайбере и всё разжевали, во люди, а...
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

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

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

Похожие темы

  1. Ответов: 9
    Последнее сообщение: 19.11.2011, 23:40
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •