да ты всё равно только флуд-вбросы во все и вся темы пишешь, а так хотя бы поиздевались над "странными" )))Цитата:
Сообщение от NEO SPECTRUMAN
Вид для печати
да ты всё равно только флуд-вбросы во все и вся темы пишешь, а так хотя бы поиздевались над "странными" )))Цитата:
Сообщение от NEO SPECTRUMAN
я еще делают всякие никому не нужные поделия :v2_dizzy_coder:Цитата:
Сообщение от hobot
Благодарю за поддержку. Но неужели нет способа перенести бейсик-код в кассетный образ? И ещё любопытно, бейсик на ДВК/УКНЦ неужели фирменный (RT11?) и без команды получения времени?
Пингвин классный, но интереснее узнать насколько быстро БК его манделброт-контур нарисует.
я запускал в дисковом бейсике - это что то типа одного из вариантов ВИЛЬНЮС-БЕЙСИКА.Цитата:
Сообщение от litwr
В бейсике от DEC (он же из поставки РАФОС оператор получения времени как раз есть, но исходник
сильно не адаптирован под него, эмуляторы все есть - что вам мешает самому проделать? )
Прямо беда была у отечественных программеров с поддержкой таймера. :( Даже не представляю себе, что в приведенном коде может не сработать. Это только у БК и очень древних бейсиков не допускались двоеточия-разделители. В коде самый сложный оператор - это цикл FOR, а всё остальное присваивания и PRINT. Может только в каком-то странном бейсике MID$ как-то по другому назывется...Цитата:
Сообщение от hobot
А мешает только то, что интерес запустить именно на БК.
Код:PROGRAM MANDEL
COMPLEX C, Z
REAL X0, DX, Y0, DY
INTEGER I, J, K
DATA X0/-2./, Y0/-1.1/, DX/.04/, DY/.1/
DO 10 I = 1, 21
DO 20 J = 1, 79
C = CMPLX(X0 + J * DX, Y0 + I * DY)
Z = (0., 0.)
DO 30 K = 1, 99
Z = Z ** 2 + C
IF (REAL(ABS(Z)) .GT. 2.) GOTO 40
30 CONTINUE
40 TYPE 50, MOD(K, 10)
50 FORMAT ('$', I1)
20 CONTINUE
TYPE 60
60 FORMAT (' ')
10 CONTINUE
END
Это же фортран - великий и могучий: настоящий программер не использует паскаль, только фортран! Это истина из начала 80-х. :)Цитата:
Сообщение от Hunta
Но неужели Манделброт в бейсик эмулятора БК никак?
что значит никак? но почему это кто то за вас должен делать - вам явно призрак Эйнштейна, что то нашептал )))Цитата:
Сообщение от litwr
Не понял совсем. Мне нужно подсказать как файл конвертировать и может у кого есть ссылка на наработки по таймеру. Если вы не в курсах, то зачем ведете дискуссию?Цитата:
Сообщение от hobot
По таймеру можно порыться в журналах, если недостаточно ТО на БК0010.Цитата:
Сообщение от litwr
Таймером можно управлять и считать интервал времени с помощью операторов Peek и Poke...
- - - Добавлено - - -
Вот в этой книжке есть пример, кстати :)
- - - Добавлено - - -
Код:10 POKE &O177706,32767% 'установка длительности периода S0
20 POKE &O177712,&O160 'запуск таймера
30 ? AT(0,0)PEEK(&O177710) 'смотрим, как он работает
40 GOTO 3