+ Ответить в теме
Страница 2 из 4 ПерваяПервая 1 2 3 4 ПоследняяПоследняя
Показано с 21 по 40 из 72

Тема: Q Basic

  1. #21
    умникум Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Аватар для Claus
    Регистрация
    29.03.2006
    Адрес
    город-геморрой Братск
    Сообщений
    4,818
    Поблагодарил(а)
    1,520
    Получено благодарностей: 1,838 (сообщений: 960).

    По умолчанию


    Оффтопик
    На форуме бываю редко. vk.com/clausbratsk

  2. #22
    Наш Чел Viking кто это? Аватар для Viking
    Регистрация
    03.06.2005
    Адрес
    здесь
    Возраст
    41
    Сообщений
    230
    Поблагодарил(а)
    12
    Получено благодарностей: 29 (сообщений: 21).

    Post

    Цитата Сообщение от Claus
    put и get мы проходили в лицее... Прог моих у меня нет - компа тогда не было и все осталось по друзьям и в классе... Исходники тоже где-то потерялись за 8 лет...
    экономистам в лицее был бейсик не нужен, потому put и get пришлось пройти в конторе ускоренным темпом
    Прежде чем открыть рот, подумай!

  3. #23
    Юзер MaZaFaKeR. подскользнулся Аватар для MaZaFaKeR.
    Регистрация
    29.03.2006
    Возраст
    44
    Сообщений
    171
    Поблагодарил(а)
    0
    Получено благодарностей: 1 (сообщений: 1).

    По умолчанию

    Цитата Сообщение от Viking
    предлагаю выкладывать самодельные проекты ... за отображение шрифтов не отвечаю, на 95ой работало отлично

    P.S. не забудьте включить спикер

    З.Ы.Ы вот внатуре делать было нечего -- целых 2 недели на эту чушь помниться угрохали, все написано чисто на бейсике, даже мегасуперское музыкальное сопровождение
    ПОГАМЕЛ КРУТО БЫЛО ))
    «Любовь не выдохлась, не исчезла себя, необходимо вовремя расстаться и на всегда».
    ---=РоMaHTuk=---

  4. #24
    Джедай nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь nons Трогаюсь
    Регистрация
    22.01.2005
    Сообщений
    3,753
    Поблагодарил(а)
    419
    Получено благодарностей: 1,257 (сообщений: 528).

    По умолчанию

    Барсик, собственной персоной (;
    Телевизор — это просто маленькое прозрачное окошко в трубе духовного мусоропровода. © В. Пелевин.

  5. #25
    Умник RaNLinE Включаюсь RaNLinE Включаюсь RaNLinE Включаюсь Аватар для RaNLinE
    Регистрация
    16.04.2006
    Адрес
    Dark_Sky
    Возраст
    35
    Сообщений
    523
    Поблагодарил(а)
    53
    Получено благодарностей: 66 (сообщений: 44).

    Question

    Товарищи памагите!!!
    Решите 2 задачки....
    создать массив D 9х9 и заполнить числами случайными от -50 до 50
    распечатать
    найти произведение элементов главной диагонали
    найти минимальный элемент и положение
    отсортировать элементы столбцов по возрастанию
    №2
    a=1:b=8:c=-13
    найти Y
    если <-5 y=ax^2+c
    если =-5 y=b
    если >-5 y=cx-b
    значеник Х меняются от -6 до -4 с шагом 0.25
    Используя цикл с предусловием
    с постусловием
    с перебором

    We Have Lost The Gift Of Wonder
    Dispelled All Magic By Selfish Reason
    We Even Analyze Our Dreams
    Because We Fear To Loose Our Common Sense
    We Forgot How Simple Life's Been
    Gazing At It With The Eyes Of A Child
    How Wonderful The World Has Been
    Discovering It With An Innocent Mind

  6. #26
    Кандидат в умники elk кто это? elk кто это? Аватар для elk
    Регистрация
    14.06.2005
    Сообщений
    379
    Поблагодарил(а)
    0
    Получено благодарностей: 88 (сообщений: 66).

    По умолчанию

    'предусловие
    a = 1
    b = 8
    c = -13
    x = -6
    DO WHILE x <= -4
    IF x < -5 THEN y = a * x ^ 2 + c
    IF x = -5 THEN y = b
    IF x > -5 THEN y = c * x - b
    PRINT "при х="; x; "y="; y
    x = x + .25
    LOOP

    PRINT
    PRINT

    'постусловие
    a = 1
    b = 8
    c = -13
    x = -6
    DO
    IF x < -5 THEN y = a * x ^ 2 + c
    IF x = -5 THEN y = b
    IF x > -5 THEN y = c * x - b
    PRINT "при х="; x; "y="; y
    x = x + .25
    LOOP WHILE x <= -4


    PRINT
    PRINT

    'перебор
    a = 1
    b = 8
    c = -13
    x = -6
    FOR x = -6 TO -4 STEP .25
    IF x < -5 THEN y = a * x ^ 2 + c
    IF x = -5 THEN y = b
    IF x > -5 THEN y = c * x - b
    PRINT "при х="; x; "y="; y
    NEXT x

    ================================================== ==

    DIM d(9, 9)

    FOR i = 1 TO 9
    FOR j = 1 TO 9
    d(i, j) = INT(RND(1) * 101 - 50)
    NEXT j
    NEXT i

    PRINT "Массив D заполненный случайными числами [-50,50]"

    FOR i = 1 TO 9
    FOR j = 1 TO 9
    LOCATE , j * 4: PRINT d(i, j);
    NEXT j
    PRINT
    NEXT i

    p = 1
    FOR i = 1 TO 9
    p = p * d(i, i)
    NEXT i

    PRINT "Произведение элементов главной диагонали равно"; p

    min = d(1, 1): x = 1: y = 1
    FOR i = 1 TO 9
    FOR j = 1 TO 9
    IF d(i, j) < min THEN min = d(i, j): x = i: y = j
    NEXT j
    NEXT i

    PRINT "Минимальный элемент массива равен"; min; "он находится в"; x; "строке "; y; "столбце"

    FOR k = 1 TO 9
    FOR i = 2 TO 9
    FOR j = 1 TO 9
    IF d(i - 1, j) > d(i, j) THEN SWAP d(i - 1, j), d(i, j)
    NEXT j
    NEXT i
    NEXT k

    PRINT "Массив D элементы столбцов которого отсортированный по возрастанию "

    FOR i = 1 TO 9
    FOR j = 1 TO 9
    LOCATE , j * 4: PRINT d(i, j);
    NEXT j
    PRINT
    NEXT i
    ........все нецензурные слова и словосочетания были заменены точками.....

  7. #27
    Умник RaNLinE Включаюсь RaNLinE Включаюсь RaNLinE Включаюсь Аватар для RaNLinE
    Регистрация
    16.04.2006
    Адрес
    Dark_Sky
    Возраст
    35
    Сообщений
    523
    Поблагодарил(а)
    53
    Получено благодарностей: 66 (сообщений: 44).

    Smile

    Спасибо что помог!!!!!!!!

    We Have Lost The Gift Of Wonder
    Dispelled All Magic By Selfish Reason
    We Even Analyze Our Dreams
    Because We Fear To Loose Our Common Sense
    We Forgot How Simple Life's Been
    Gazing At It With The Eyes Of A Child
    How Wonderful The World Has Been
    Discovering It With An Innocent Mind

  8. #28
    Почетный Джипер RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь Аватар для RUNA
    Регистрация
    10.01.2005
    Адрес
    Энергетик-city
    Возраст
    42
    Сообщений
    2,706
    Поблагодарил(а)
    723
    Получено благодарностей: 1,351 (сообщений: 546).

    По умолчанию

    Оживлю тему.

    у меня в рабочей программе обозначена тема предшественником (не могу сейчас выкинуть этот раздел) - подпрограммы, функции пользователя.

    лекционный материал - очень скудный, но есть.

    просьба - поделитесь, плз.
    особенно приветствуется практическая часть данного вопроса.

    /библиотека нашего заведения отродясь не слыхивала таких заумных речей в контексте Бэйсика/

  9. #29
    Кандидат в умники elk кто это? elk кто это? Аватар для elk
    Регистрация
    14.06.2005
    Сообщений
    379
    Поблагодарил(а)
    0
    Получено благодарностей: 88 (сообщений: 66).

    По умолчанию

    Цитата Сообщение от RUNA Посмотреть сообщение
    Оживлю тему.

    у меня в рабочей программе обозначена тема предшественником (не могу сейчас выкинуть этот раздел) - подпрограммы, функции пользователя.

    лекционный материал - очень скудный, но есть.

    просьба - поделитесь, плз.
    особенно приветствуется практическая часть данного вопроса.

    /библиотека нашего заведения отродясь не слыхивала таких заумных речей в контексте Бэйсика/
    sub.rar
    sub.doc
    Последний раз редактировалось elk; 30.03.2007 в 19:47.
    ........все нецензурные слова и словосочетания были заменены точками.....

  10. #30
    aSj
    Guest

    По умолчанию

    Цитата Сообщение от RUNA Посмотреть сообщение
    Оживлю тему.
    у меня в рабочей программе обозначена тема предшественником (не могу сейчас выкинуть этот раздел) - подпрограммы, функции пользователя.
    лекционный материал - очень скудный, но есть.
    Преподаешь кувасик в универе чтоль? ;) Весело ;))))))))

  11. #31
    Почетный Джипер RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь Аватар для RUNA
    Регистрация
    10.01.2005
    Адрес
    Энергетик-city
    Возраст
    42
    Сообщений
    2,706
    Поблагодарил(а)
    723
    Получено благодарностей: 1,351 (сообщений: 546).

    По умолчанию

    Цитата Сообщение от aSj Посмотреть сообщение
    Преподаешь кувасик в универе чтоль? ;) Весело ;))))))))
    ага, аж самой смешно ;)

    но не универе, но ты близко

  12. #32
    Умник Broken Sword подскользнулся Broken Sword подскользнулся Broken Sword подскользнулся Broken Sword подскользнулся Broken Sword подскользнулся Аватар для Broken Sword
    Регистрация
    21.03.2007
    Адрес
    Smoking mirror
    Сообщений
    662
    Поблагодарил(а)
    21
    Получено благодарностей: 182 (сообщений: 105).

    По умолчанию

    дайте кто нить инфу (команды, обучалки) по Турбо Паскалю
    Free spirit of death

  13. #33
    умникум Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Claus Взлетаю Аватар для Claus
    Регистрация
    29.03.2006
    Адрес
    город-геморрой Братск
    Сообщений
    4,818
    Поблагодарил(а)
    1,520
    Получено благодарностей: 1,838 (сообщений: 960).

    По умолчанию

    тебе сюда....
    На форуме бываю редко. vk.com/clausbratsk

  14. #34
    Почетный Джипер RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь Аватар для RUNA
    Регистрация
    10.01.2005
    Адрес
    Энергетик-city
    Возраст
    42
    Сообщений
    2,706
    Поблагодарил(а)
    723
    Получено благодарностей: 1,351 (сообщений: 546).

    По умолчанию

    Ап.

    Организация анимации в Бэйсик. Перевернула инет - ничего путнего для лекции не нахожу. Делитесь, товарищи.

  15. #35
    Кандидат в умники elk кто это? elk кто это? Аватар для elk
    Регистрация
    14.06.2005
    Сообщений
    379
    Поблагодарил(а)
    0
    Получено благодарностей: 88 (сообщений: 66).

    По умолчанию

    ....примерно так...
    Синоним слова анимация - мультипликация. Мультипликация в дословном переводе это "много"...много изображений. Мультфильмы именно так раньше и рисовались - покадрово. В детстве, наверно, многие увлекались рисованием самодельных мультфильмов исользуя школьные учебники. Поочерёдно на каждой страничке рисовалась птичка, угол наклона крыльев которой постепенно менялся. При быстром пролистывании рисунков птичка летела, махая крыльями. Так же и в qbasic, придётся отдельно создавать отдельно каждый кадр, а потом последовательно их показывать пользователю. Для рисования рисунка нам потребуются команды pset, circle, line, paint, color, cls. Для работы с графикой как с массивом данныйх пригодятся функции put и get. Здесь следует сделать одно замечание. Если мы пойдём следующим путём. Сначала нарисуем кадр анимации, затем очистим экран и потом нарисуем следующий кадр, то возникнет эффект мигания, что нежелательно. Поэтому лучьше использовать другие методы.
    1. Использовать режимы экрана. Некоторые графические чжимы экрана имеют 2 страницы видеопамяти. Возможно назначить какая страница видеопамяти Видимая в данный момент, а какая Активная (они могут не совпадать). Содержимое видимой страницы в данный момент отображается на экране. В Активную страницу видеопамяти происходит вывод графики командами line, clrcle и т.д. Т.е. всё будет выглядить следующим образом. делаем видимой 1 страницу, а активной - 2. Рисуем кадр, меняем страницы местами (видимая 2, активная 1). Очищаем текущую страницу. Рисуем следующий кадр. меняем страницы местами. И так далее...Также можно нарисовать по отдельности все кадры анимации, занести их в массив с помощью команды get и затем последовательно выводить их на экран используя команду put.
    2. Перемещение неизменного рисунка. Здесь рисунок заносится в массив командой get, а затем много раз выводится на экран, при этом меняется начальная точка вывода рисунка. Следует отметить, что если за перемещаемым таким способом рисунком находится фоновое изображение, то задача несколько усложняется...

    qbhelp.zip

    з.ы. поищи про спрайты, и технологию спрайтов....

    SLEEP.rar
    Последний раз редактировалось elk; 15.05.2007 в 23:42. Причина: добавил програмку ....
    ........все нецензурные слова и словосочетания были заменены точками.....

  16. 1 пользователь сказал cпасибо elk за это полезное сообщение:

    RUNA (15.05.2007)

  17. #36
    Почетный Джипер RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь RUNA Трогаюсь Аватар для RUNA
    Регистрация
    10.01.2005
    Адрес
    Энергетик-city
    Возраст
    42
    Сообщений
    2,706
    Поблагодарил(а)
    723
    Получено благодарностей: 1,351 (сообщений: 546).

    По умолчанию

    Спс

    Главы про анимацию и графику хватило с лихвой. Думаю, последняя лекция по КуВасику пройдет на УРА

  18. #37
    BFly
    Guest

    По умолчанию Незнала где выложить, пусть будет тут...

    Уважаемые умные люди помогите решить задачу....
    буду очень признательна
    Вложения

  19. #38
    Кандидат в умники Positiff кто это? Аватар для Positiff
    Регистрация
    02.08.2007
    Возраст
    34
    Сообщений
    352
    Поблагодарил(а)
    50
    Получено благодарностей: 350 (сообщений: 83).

    По умолчанию

    Как заполнить двумерный массив по диагонали справа-налево заданным числом? через цикл.
    Я ураган. Неважно, что в стакане.

  20. #39
    Мастер Paralax кто это? Аватар для Paralax
    Регистрация
    16.10.2006
    Сообщений
    871
    Поблагодарил(а)
    215
    Получено благодарностей: 298 (сообщений: 178).

    По умолчанию

    Цитата Сообщение от Positiff Посмотреть сообщение
    Как заполнить двумерный массив по диагонали справа-налево заданным числом? через цикл.
    Что то типа
    Код:
    Dim A(10,10)
    For i = 0 to 9
      a(i,10-i) = 100 `заполняем диагональ числом 100
    Next

  21. 1 пользователь сказал cпасибо Paralax за это полезное сообщение:

    Positiff (30.03.2008)

  22. #40
    Ветеран Dim@Z кто это? Аватар для Dim@Z
    Регистрация
    15.04.2006
    Адрес
    г.Братск
    Возраст
    33
    Сообщений
    1,291
    Поблагодарил(а)
    256
    Получено благодарностей: 225 (сообщений: 176).

    По умолчанию

    Вот скажите тут кому-нибудь пригодилось рисование в Qbasic ?!
    Number one (:

+ Ответить в теме
Страница 2 из 4 ПерваяПервая 1 2 3 4 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

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

     

Похожие темы

  1. Классика эротического кино
    от Lkgios в разделе Эротика
    Ответов: 15
    Последнее сообщение: 24.11.2015, 18:06

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.