Важная информация

User Tag List

Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 12

Тема: Небольшие программки на Бейсике.

  1. #1
    Member
    Регистрация
    29.12.2006
    Адрес
    г.Гатчина, Лен.обл.
    Сообщений
    54
    Благодарностей: 1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию Небольшие программки на Бейсике.

    Хотелось бы здесь выложить несколько сохранившихся у меня простых программ на Бейсике, возможно они кого-то из новичков заинтересуют. Все эти программки взяты из журнала "ZX-ревю". Пока их только две: пример графики "Пирамиды" и "Клавиатура - музыкальный инструмент" (подобную, кстати, я где-то на ПК видела, не пробовала, правда). Если кого заинтересует, позже добавлю еще немного. Предлагаю всем, у кого сохранились свои подобные программки: давайте здесь их выложим для новеньких - пусть полюбуются... Неужели все сразу за ассемблер берутся?
    Вложения Вложения
    С уважением, new.

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #2
    FishBone Crew Аватар для breeze
    Регистрация
    11.02.2005
    Адрес
    【RB】
    Сообщений
    3,586
    Благодарностей: 764
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Ого, девушки на спектруме всё-таки были

  4. #3
    Activist Аватар для Adramelek
    Регистрация
    17.02.2005
    Адрес
    USA
    Сообщений
    371
    Благодарностей: 19
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    OK.

    Расчёт ходов короля на шахматной доске:
    Код:
    : ?ERROR ( X Y -- X Y flag ) 
        2DUP 2DUP MIN 1 < -ROT MAX 8 > OR 
    ; 
    
    : KING ( X Y -- ) 
        ?ERROR IF 2DROP ." ERROR!" CR EXIT THEN 
        2 -1 DO 
          2 -1 DO 
            2DUP J + SWAP I + 
            2OVER 2OVER -ROT = -ROT = AND -ROT ?ERROR -ROT 2SWAP OR IF 2DROP ELSE . . CR THEN
          LOOP 
        LOOP 
        2DROP 
    ;
    Расчёт ходов коня на шахматной доске:
    Код:
    : ?ERROR ( X Y -- X Y flag ) 
        2DUP 2DUP MIN 1 < -ROT MAX 8 > OR 
    ; 
    
    : SHOW ( X Y n1 n2 -- X Y n1 n2 ) 
        2OVER 2OVER -ROT + -ROT + ?ERROR IF 2DROP ELSE . . CR THEN 
    ; 
    
    : SHOW ( X Y n1 n2 -- X Y n2 n1 ) 
        SHOW NEGATE SHOW SWAP 
    ; 
    
    : KNIGHT ( X Y -- ) 
        ?ERROR IF 2DROP ." ERROR!" CR EXIT THEN 
        -2 -1 2 0 DO 
          SHOW NEGATE SWAP SHOW 
        LOOP 
        2DROP 2DROP 
    ;
    P.S. Когда я это писал, ещё не знал о таких словах, как ROLL и PICK. Кстати, насчёт коня -- решение пришло спонтанно, наверняка я не первый, кто додумался, но всё же -- в стеке крутятся числа 2 и 1, меняя свой знак и меняясь местами. Все возможные варианты -- и есть ходы коня.
    Последний раз редактировалось Adramelek; 08.08.2007 в 22:18.

  5. #4
    Veteran Аватар для Sinus
    Регистрация
    29.01.2005
    Адрес
    Belarus, Grodno
    Сообщений
    1,270
    Благодарностей: 190
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Adramelek, это конечно фиг его знает, но с каких пор форт стал бейсиком? (hint: читаем название темы)
    [target] [zemu] [js8x] [pouet 1, 2]
    KAY-1024, 5''FDD, 3''FDD, HDD

  6. #5
    Veteran Аватар для ZEman
    Регистрация
    28.10.2005
    Адрес
    Омск
    Сообщений
    1,806
    Благодарностей: 286
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    думаю это тоже относится к теме.
    выкладываю здесь 2 своих игрушки полностью написаных на бейсике, раннее никогда и нигде не выкладывались.
    игры типа диззи, правда сделано всё довольно примитивно .
    делал очень давно в 1996 году.
    Последний раз редактировалось ZEman; 05.09.2007 в 10:41.

  7. #6
    Activist Аватар для Adramelek
    Регистрация
    17.02.2005
    Адрес
    USA
    Сообщений
    371
    Благодарностей: 19
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Sinus Посмотреть сообщение
    Adramelek, это конечно фиг его знает, но с каких пор форт стал бейсиком? (hint: читаем название темы)
    Конечно, Форт не Бейсик, но в случае со Спектрумом их, пожалуй, можно обьединить -- всё равно других ЯВУ нет.

    Добавлю: я в смысле альтернативы Ассемблеру -- а именно это автор, кажется, имела в виду, если судить по фразе "Неужели все сразу за ассемблер берутся?"
    Последний раз редактировалось Adramelek; 09.08.2007 в 22:33.

  8. #7
    Veteran Аватар для John North
    Регистрация
    22.09.2006
    Адрес
    Ижевск
    Сообщений
    1,706
    Благодарностей: 400
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от ZEman Посмотреть сообщение
    выкладываю здесь 2 своих игрушки
    класс!
    Хороший.. Плохой.. Главное - у кого ружьё !!

  9. #8
    Veteran Аватар для ZEman
    Регистрация
    28.10.2005
    Адрес
    Омск
    Сообщений
    1,806
    Благодарностей: 286
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    спасибо
    если хотите, могу ещё выложить.
    в основном я делал либо тока на бейсике, либо с применением компилятора.

  10. #9
    Veteran Аватар для John North
    Регистрация
    22.09.2006
    Адрес
    Ижевск
    Сообщений
    1,706
    Благодарностей: 400
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от ZEman Посмотреть сообщение
    если хотите, могу ещё выложить.
    тавай!
    Хороший.. Плохой.. Главное - у кого ружьё !!

  11. #10
    Veteran Аватар для ZEman
    Регистрация
    28.10.2005
    Адрес
    Омск
    Сообщений
    1,806
    Благодарностей: 286
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    чтот я не понял, у меня пропала опция управления вложениями.
    место почистил а всё равно кнопки нет, в чём причина?

    Добавлено через 23 часа 42 минуты
    модераторы, сделайте чтонибудь, я не могу выкладыать файлы, хотя удалил почти все старые.
    Последний раз редактировалось ZEman; 11.08.2007 в 13:53. Причина: Добавлено сообщение

Страница 1 из 2 12 ПоследняяПоследняя

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

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

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

Похожие темы

  1. Ответов: 5
    Последнее: 03.09.2007, 00:34
  2. Border-эффект на Бейсике
    от jim в разделе Разное
    Ответов: 7
    Последнее: 18.04.2007, 19:50
  3. Ответов: 3
    Последнее: 06.09.2005, 12:08

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •