forum.boolean.name - Brainfuck интерпретатор (помогите с меню)

forum.boolean.name (http://forum.boolean.name/index.php)

- Проекты на MidletPascal (http://forum.boolean.name/forumdisplay.php?f=88)

- - Brainfuck интерпретатор (помогите с меню) (http://forum.boolean.name/showthread.php?t=5000)

sorok5ok

12.11.2007 08:45

Brainfuck интерпретатор (помогите с меню)

Вложений: 2

Доброе время суток.
Вроде написал интерпретатор для BrainFuck. только чего то не получается с меню...
оно вроде работает и вызывается даже, только после выбора команды надо еще клавишу нажать.
****
вроде исправил вывод символов (не должны накладываться)
простенький калькулятор поставил
можно теперь и вниз вверх двигаться
добавил пошаговое выполнение (#-шаг, *-полное выполнение)
исправил баг(-+. и все висим))
(а с главным меню так и не могу разобраться: сначало выбрать надо, потом любую клавишу нажать и тогда появляется...........)
****
спасибо, odd. Вроде с меню разобрался
поставил небольшую заставку (чтоб не голосновно было)
дальше решил пока не идти
(пока не придумал, как корректно о программе и помощь написать)
и если тяжелая программа то обязателен висяк
>+[<+.>+] если сразу на запускт то выполняется, а если сначало пошагово а потом прервать и полное запустить то висяк гарантирован.

odd	12.11.2007 08:56

Re: Brainfuck интерпретатор (помогите с меню)

Увы, я не силён в языке Brainfuck (трахаю себе мозги другими методами).
Меню у тебя как-то тормозит или вообще не реагирует. Подправь.

zubar

13.11.2007 08:55

Re: Brainfuck интерпретатор (помогите с меню)

а в чем смысл?

ViNT	14.11.2007 00:05

Re: Brainfuck интерпретатор (помогите с меню)

А что это за язык? Название какое-то странное :-)

impersonalis

14.11.2007 00:39

Re: Brainfuck интерпретатор (помогите с меню)

http://ru.wikipedia.org/wiki/Brainfuck
см. также
http://ru.wikipedia.org/wiki/Категор...ограммирования
ЗЫЖ: тема многкратно поднималась в "Болтовне"

Bruteo

14.11.2007 06:32

Re: Brainfuck интерпретатор (помогите с меню)

Спасибо за интерпретатор :)
На nokia e61 буковки при выводе накладываются друг на друга, маленькое расстояние между ними, лучше рассчитывать его, а не задавать.

odd	14.11.2007 07:58

Re: Brainfuck интерпретатор (помогите с меню)

Не, это не сильно интересный язык. Вот в былые годы программисты соревновались между собой в крутости с помощью псевдо-языка M.A.R.S. (похожему на ассемблер). Каждый программист писал программку-бойца, потом 2 программки выпускалось в один объём памяти (ну или массив по-вашему) и дальше смотрели кто кого победит. Команды программ-бойцов выполнялись поочередно. Если выполненние одной программы заканчивалось (встретился нулевой байт), значит другая программа победила. С помощью данного языка программы могли перемещаться по массиву, обстреливать нулями свободные от себя участки массива и т.д. Короче, было прикольно.

PS: А потом такие программисты приходили домой и писали полиморфик вирусы. :-D

Chrono Syndrome

14.11.2007 11:55

Re: Brainfuck интерпретатор (помогите с меню)

2Odd: Вообще-то это называется Core Wars... И игра эта, в принципе, жива по сей день.

Hig	15.11.2007 23:02

Re: Brainfuck интерпретатор (помогите с меню)

Цитата:

Сообщение от sorok5ok

Здоровская штука))) жаль на моей моторолле (старушка V360..) она тормазит...:''((а потом заглючивает.. и только ужесный ресет помогает..:wallbash:
зы:на Самсунге тож букафки накладываются...
А что на брейне можно настучать, кроме символов..?

ps:сразу вспоминается анимешка.. BPS (Battle Programmer SHIRASE) http://www.world-art.ru/animation/animation.php?id=958
где Некий Боевой Программер Ширасе, во многих сериях, блокировал мощные атаки кул хакера.. (у которого была самая быстрая машина) каким-то мобильным телефоном:4to:

sorok5ok

19.11.2007 07:19

Re: Brainfuck интерпретатор (помогите с меню)

говорят, что почти вcе можно:)
умельцы вон, крестики нолики написли
http://community.livejournal.com/ru_brainfucker

odd	22.11.2007 08:42

Re: Brainfuck интерпретатор (помогите с меню)

Немного изменил процедуру info и меню стало нормально вызываться и тормоза исчезли. Попоробуй.

Код:

 

procedure info();

var GKey:integer;

begin

Gkey:=KE_NONE;

while GKey <> KE_KEY5 do

begin

 clicked:= getClickedCommand; GKey:=getKeyClicked;

 if GKey=KE_KEY1 then begin z:=z+1; i:=i+1; readInfo('.',z,i); end;

 if GKey=KE_KEY2 then begin z:=z+1; i:=i+1; readInfo('+',z,i); end;

 if GKey=KE_KEY3 then begin z:=z+1; i:=i+1; readInfo(',',z,i); end;

 if GKey=KE_KEY4 then begin z:=z+1; i:=i+1; readInfo('<',z,i); end;

 if GKey=KE_KEY6 then begin z:=z+1; i:=i+1; readInfo('>',z,i); end;

 if GKey=KE_KEY7 then begin z:=z+1; i:=i+1; readInfo('[',z,i); end;

 if GKey=KE_KEY8 then begin z:=z+1; i:=i+1; readInfo('-',z,i); end;

 if GKey=KE_KEY9 then begin z:=z+1; i:=i+1; readInfo(']',z,i); end;

 if GKey=KE_KEY0 then begin if i>0 then begin z:=z-1; i:=i-1; if i<=0 then i:=0; if z<=0 then z:=0; readInfo('0',z,i); end; end;

 if (GKey=KE_STAR) and (vector=1) then begin i:=i-trunc(shir/getStringWidth('-.'))+1; if i<=0 then i:=0; readInfo('',z,i); end;

 if (GKey=KE_POUND) and (vector=1) then begin i:=i+trunc(shir/getStringWidth('-.'))-1; if i>=999 then i:=999; if stroka[i+1]='' then i:=z; readInfo('1',z,i); end;

 if (GKey=KE_STAR) and (vector=0)  then begin i:=i-1; if i<=0 then i:=0; readinfo('',z,i); end;

 if (GKey=KE_POUND)  and (vector=0) then begin i:=i+1; if i>=999 then i:=999; if stroka[i+1]='' then i:=z; readInfo('1',z,i); end;

 if clicked=moveC then adzac;    

 if clicked=menuC then menu; 

    end;

    clrscr; go(0,0,0);

  end;

sorok5ok

06.12.2007 08:26

Re: Brainfuck интерпретатор (помогите с меню)

Спасибо всем за помощь.

Fremen72

09.12.2007 20:23

Re: Brainfuck интерпретатор (помогите с меню)

Цитата:

Сообщение от Chrono Syndrome

2Odd: Вообще-то это называется Core Wars... И игра эта, в принципе, жива по сей день.

А где же эта игра жива?
Я в свое время немного в нее играл, но с удовольствием бы освежил в памяти

Chrono Syndrome

09.12.2007 20:34

Re: Brainfuck интерпретатор (помогите с меню)

Цитата:

Сообщение от Fremen72

А где же эта игра жива?
Я в свое время немного в нее играл, но с удовольствием бы освежил в памяти

Для разгону:
http://www.corewar.info - лучший сайт, где можно найти все (в том числе и кучу полезных ссылок)
http://koth.org - Старейший сайт, посвященный Core Wars... но предыдущий все-же поинформативнее)...

Если что еще вспомню - допишу.

Часовой пояс GMT +4, время: 07:31.