deleted temporary samples directories
This commit is contained in:
Бондарев Иван
parent
d146d5bdd7
commit
3434e95a2b
|
|
@ -1,11 +0,0 @@
|
|||
+++++++++++
|
||||
>+>>>>++++++++++++++++++++++++++++++++++++++++++++
|
||||
>++++++++++++++++++++++++++++++++<<<<<<[>[>>>>>>+>
|
||||
+<<<<<<<-]>>>>>>>[<<<<<<<+>>>>>>>-]<[>++++++++++[-
|
||||
<-[>>+>+<<<-]>>>[<<<+>>>-]+<[>[-]<[-]]>[<<[>>>+<<<
|
||||
-]>>[-]]<<]>>>[>>+>+<<<-]>>>[<<<+>>>-]+<[>[-]<[-]]
|
||||
>[<<+>>[-]]<<<<<<<]>>>>>[+++++++++++++++++++++++++
|
||||
+++++++++++++++++++++++.[-]]++++++++++<[->-<]>++++
|
||||
++++++++++++++++++++++++++++++++++++++++++++.[-]<<
|
||||
<<<<<<<<<<[>>>+>+<<<<-]>>>>[<<<<+>>>>-]<-[>>.>.<<<
|
||||
[-]]<<[>>+>+<<<-]>>>[<<<+>>>-]<<[<+>-]>[<+>-]<<<-]
|
||||
|
|
@ -1,26 +0,0 @@
|
|||
;Язык BF - один из известнейших эзотерических языков программирования,
|
||||
;придуман Урбаном Мюллером (Urban Muller) для забавы.
|
||||
;Состоит из восьми команд, каждая из которых записывается одним символом.
|
||||
|
||||
;Машина, которой управляют команды BF, состоит из упорядоченного набора
|
||||
;ячеек и указателя текущей ячейки, напоминая ленту и головку машины Тьюринга.
|
||||
|
||||
;Несмотря на внешнюю примитивность, BF с бесконечным набором ячеек имеет
|
||||
;тьюрингову полноту, а следовательно, не уступает по возможностям любым другим
|
||||
;языкам программирования
|
||||
|
||||
8 команд языка:
|
||||
; > перейти к следующей ячейчке
|
||||
; < перейти к предыдущей ячейчке
|
||||
; + увеличить значение в текущей ячейке на 1
|
||||
; - уменьшить значение в текущей ячейке на 1
|
||||
; . напечатать значение из текущей ячейки
|
||||
; , ввести извне значение и сохранить в текущей ячейке
|
||||
; [ если значение текущей ячейки нуль, перейти вперёд по тексту программы до ] с учётом вложенности
|
||||
; ] если значение текущей ячейки не нуль, перейти назад по тексту программы до [ с учётом вложенности
|
||||
|
||||
|
||||
++++++++++
|
||||
[>+++++++>++++++++++>+++>+<<<<-]
|
||||
>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.
|
||||
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
+++++++++++++++
|
||||
[>+++++>+++++++>+++++++>++>++++++>+<<<<<<-]
|
||||
75 105 105 30 90 15
|
||||
>--- . H 72
|
||||
>---- . e 101
|
||||
>+++ . l 108
|
||||
. l 108
|
||||
+++ . o 111
|
||||
>++ . 32
|
||||
>--- . W 87
|
||||
<< . o 111
|
||||
+++ . r 114
|
||||
------ . d 100
|
||||
<- . d 100
|
||||
>>+ . ! 33
|
||||
>>-----. \n 10
|
||||
|
||||
|
|
@ -1 +0,0 @@
|
|||
+[,.]
|
||||
|
|
@ -1,147 +0,0 @@
|
|||
A mandelbrot set fractal viewer in BF written by Erik Bosman
|
||||
Size = 130x50
|
||||
+++++++++++++[->++>>>+++++>++>+<<<<<<]>>>>>++++++>--->>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-]>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+
|
||||
<<<<<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
>+<<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+[>>>>>>[>>>>>>>[-]>>]<<<<<<<<<[<<<<<<<<<]>>
|
||||
>>>>>[-]+<<<<<<++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<+++++++[-[->>>
|
||||
>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[[-]>>>>>>[>>>>>
|
||||
>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>
|
||||
[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<
|
||||
<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[
|
||||
>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>[
|
||||
-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<
|
||||
<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<
|
||||
[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>
|
||||
>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+
|
||||
<<<<<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>
|
||||
>>>>>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<<<<<<<<]<<
|
||||
+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<
|
||||
<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>
|
||||
>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+<<<[<<<<<<
|
||||
<<<]>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<
|
||||
<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->
|
||||
>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<
|
||||
<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]<<<<<<<[->+>>>-<<<<]>>>>>>>>>+++++++++++++++++++
|
||||
+++++++>>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>[<<<<<<<+<[-<+>>>>+<<[-]]>[-<<[->+>>>-
|
||||
<<<<]>>>]>>>>>>>>>>>>>[>>[-]>[-]>[-]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>>>>>>[>>>>>
|
||||
[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>[-<<<<<<<<
|
||||
<+>>>>>>>>>]>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>>>>>>]+>[-
|
||||
]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>+>>>>>>>>]<<<
|
||||
<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<<[->>[-<<+>>]<
|
||||
<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>
|
||||
>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[>[-]<->>>
|
||||
[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<<<<<<<]>>>>>>>>>[>>>>>>[-<
|
||||
<<<<+>>>>>]<<<<<[->>>>>+<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>+>>>>>>>>
|
||||
]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<<[->>[-<<+
|
||||
>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>
|
||||
[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[>[-
|
||||
]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>>>>>
|
||||
[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>++++++++
|
||||
+++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-<<<<<<<+
|
||||
>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[
|
||||
-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>+>[-<-<<<<+>>>>>]>[-<<<<<<[->>>>>+<++<<<<]>>>>>[-<
|
||||
<<<<+>>>>>]<->+>]<[->+<]<<<<<[->>>>>+<<<<<]>>>>>>[-]<<<<<<+>>>>[-<<<<->>>>]+<<<<
|
||||
[->>>>->>>>>[>>[-<<->>]+<<[->>->[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]
|
||||
+>>>>>>[>>>>>>>>>]>+<]]+>>>[-<<<->>>]+<<<[->>>-<[-<<+>>]<<[->>+<<<<<<<<<<<[<<<<<
|
||||
<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<
|
||||
[<<<<<<<<<]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<<<<
|
||||
<<<+<[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<<<]<]>[->>>-<<<<<<<<<
|
||||
<<<<<+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>>+<<<]<<
|
||||
<<<<<<<<<<]>>>>[-]<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>[-<->]<[->+<]>>>>>>>>]<<<
|
||||
<<<<<+<[>[->>>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>[->>>>+<<<<]>]<[->>>>-<<<<<<<
|
||||
<<<<<<<+>>>>>>>>>>]<]>>[->>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>]>]<[->>>>+<<<<
|
||||
]<<<<<<<<<<<]>>>>>>+<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>>>>>>>>>]<<<<<<<<<
|
||||
[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<<<]<]>[->>>-<<<<<<<<<<<<<<
|
||||
+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>>+<<<]<<<<<<<
|
||||
<<<<<]]>[-]>>[-]>[-]>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-<
|
||||
<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[
|
||||
[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+
|
||||
[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>
|
||||
[-<<+>>]<<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<
|
||||
<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[
|
||||
>[-]<->>>[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<<<<<<<]>>>>>>>>>[
|
||||
>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>
|
||||
>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>[-]>>>>+++++++++++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<
|
||||
<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<
|
||||
<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-
|
||||
<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>
|
||||
>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>>>
|
||||
[-<<<->>>]<<<[->>>+<<<]>>>>>>>>]<<<<<<<<+<[>[->+>[-<-<<<<<<<<<<+>>>>>>>>>>>>[-<<
|
||||
+>>]<]>[-<<-<<<<<<<<<<+>>>>>>>>>>>>]<<<]>>[-<+>>[-<<-<<<<<<<<<<+>>>>>>>>>>>>]<]>
|
||||
[-<<+>>]<<<<<<<<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>
|
||||
>>>>>>]<<<<<<<<+<[>[->+>>[-<<-<<<<<<<<<<+>>>>>>>>>>>[-<+>]>]<[-<-<<<<<<<<<<+>>>>
|
||||
>>>>>>>]<<]>>>[-<<+>[-<-<<<<<<<<<<+>>>>>>>>>>>]>]<[-<+>]<<<<<<<<<<<<]>>>>>+<<<<<
|
||||
]>>>>>>>>>[>>>[-]>[-]>[-]>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>[-]>>>>>[>>>>>>>[-<<<<<
|
||||
<+>>>>>>]<<<<<<[->>>>>>+<<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>+>[-<-<<<<+>>>>
|
||||
>]>>[-<<<<<<<[->>>>>+<++<<<<]>>>>>[-<<<<<+>>>>>]<->+>>]<<[->>+<<]<<<<<[->>>>>+<<
|
||||
<<<]+>>>>[-<<<<->>>>]+<<<<[->>>>->>>>>[>>>[-<<<->>>]+<<<[->>>-<[-<<+>>]<<[->>+<<
|
||||
<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>[-<<->>]+<<[->>->[-<<<+>>>]<
|
||||
<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<
|
||||
<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>[-<->]<[->+
|
||||
<]>>>>>>>>]<<<<<<<<+<[>[->>>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>[->>>+<<<]>]<[->>>-
|
||||
<<<<<<<<<<<<<+>>>>>>>>>>]<]>>[->>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>]>]<[->>>+<<<
|
||||
]<<<<<<<<<<<]>>>>>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]]>>>>[-<<<<+>
|
||||
>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<<<<<<<+<[>[->>>>+<<<[->>>-
|
||||
<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]>[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>+<<[
|
||||
->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>+<<]<<<<<<<<<<<<]]>>>>[-]<<<<]>>>>[-<<<<+>>
|
||||
>>]<<<<[->>>>+>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>[>>>>>>
|
||||
>>>]<<<<<<<<<[>[->>>>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]>[->>-<<<<<<<<
|
||||
<<<<<+>>>>>>>>>>>]<<]>[->>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>+<<]<<<<<<<<
|
||||
<<<<]]>>>>>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>[-]>>>>>[>>>>>[-<<<<+
|
||||
>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[-<<<<<+>>>>>
|
||||
]<<<<<[->>>>>+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>
|
||||
>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>+>>
|
||||
>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>[-<<+
|
||||
>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>
|
||||
[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<[>[-
|
||||
]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>>>>>
|
||||
[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<
|
||||
<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>
|
||||
>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<<<<<<<<]<<+>>>
|
||||
>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+
|
||||
<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>>>>>
|
||||
>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+<<<[<<<<<<<<<]
|
||||
>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<<<<<
|
||||
]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->>>+<
|
||||
<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>
|
||||
>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>->>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>]<<+>>>>[-<<<<
|
||||
->>>>]+<<<<[->>>>-<<<<<<.>>]>>>>[-<<<<<<<.>>>>>>>]<<<[-]>[-]>[-]>[-]>[-]>[-]>>>[
|
||||
>[-]>[-]>[-]>[-]>[-]>[-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-]>>>>]<<<<<<<<<
|
||||
[<<<<<<<<<]>+++++++++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>+>>>>>>>>>+<<<<<<<<
|
||||
<<<<<<[<<<<<<<<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+[-]>>[>>>>>>>>>]<<<<<
|
||||
<<<<[>>>>>>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<[<<<<<<<<<]>>>>>>>[-]+>>>]<<<<
|
||||
<<<<<<]]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+>>[>+>>>>[-<<<<->>>>]<<<<[->>>
|
||||
>+<<<<]>>>>>>>>]<<+<<<<<<<[>>>>>[->>+<<]<<<<<<<<<<<<<<]>>>>>>>>>[>>>>>>>>>]<<<<<
|
||||
<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[->+<]>>>>>>>]<<<<<<[->>>>>>+<<<<<<]<
|
||||
+<<<<<<<<<]>>>>>>>-<<<<[-]+<<<]+>>>>>>>[-<<<<<<<->>>>>>>]+<<<<<<<[->>>>>>>->>[>>
|
||||
>>>[->>+<<]>>>>]<<<<<<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[->+<]>>>>>>>]<<
|
||||
<<<<[->>>>>>+<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>+<<<
|
||||
<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-<<<<<->>>>>]+<<<<<[->>>>>->>[-<<<<<<<+>>>>>>>]<<<<
|
||||
<<<[->>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>>>>[-<
|
||||
<<<<<<->>>>>>>]+<<<<<<<[->>>>>>>-<<[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<<<<<<<<<<[<<<
|
||||
<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<
|
||||
<<[<<<<<<<<<]>>>>[-]<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>-<<<<<[<<<<<<<
|
||||
<<]]>>>]<<<<.>>>>>>>>>>[>>>>>>[-]>>>]<<<<<<<<<[<<<<<<<<<]>++++++++++[-[->>>>>>>>
|
||||
>+<<<<<<<<<]>>>>>>>>>]>>>>>+>>>>>>>>>+<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-<<<<<<
|
||||
<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+[-]>[>>>>>>>>>]<<<<<<<<<[>>>>>>>>[-<<<<<<<+>>>>>>
|
||||
>]<<<<<<<[->>>>>>>+<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+>>]<<<<<<<<<<]]>>>>>>>>[-<<<<<
|
||||
<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+>[>+>>>>>[-<<<<<->>>>>]<<<<<[->>>>>+<<<<<]>>>>>>
|
||||
>>]<+<<<<<<<<[>>>>>>[->>+<<]<<<<<<<<<<<<<<<]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[-]<-
|
||||
>>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[->+<]>>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<]<+<<<<<<
|
||||
<<<]>>>>>>>>-<<<<<[-]+<<<]+>>>>>>>>[-<<<<<<<<->>>>>>>>]+<<<<<<<<[->>>>>>>>->[>>>
|
||||
>>>[->>+<<]>>>]<<<<<<<<<[>[-]<->>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[->+<]>>>>>>>>]<<
|
||||
<<<<<[->>>>>>>+<<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>
|
||||
+>>>>>>>>>>>>>>>>>>>>>>>>>>>+<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[-<<<<<<->>>>>>]+<
|
||||
<<<<<[->>>>>>->>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+<<<<<<<<<<<<<<<<<[<<<<<<<
|
||||
<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>>>>>[-<<<<<<<<->>>>>>>>]+<<<<<<<<[->>>>>>>>
|
||||
-<<[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>
|
||||
>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-]<<<++++
|
||||
+[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>->>>>>>>>>>>>>>>>>>>>>>>>>>>-<<<<<<[<<<<
|
||||
<<<<<]]>>>]
|
||||
|
||||
|
|
@ -1,146 +0,0 @@
|
|||
A mandelbrot set fractal viewer in BF written by Erik Bosman
|
||||
Size = 259x120
|
||||
+++++++++++++[->++>>>+++++>++>+<<<<<<]>>>>>++++++>--->>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-]>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+
|
||||
<<<<<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
>+<<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+[>>>>>>[>>>>>>>[-]>>]<<<<<<<<<[<<<<<<<<<]>>
|
||||
>>>>>[-]+<<<<<<++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<+++++++[-[->>>
|
||||
>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[[-]>>>>>>[>>>>>
|
||||
>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>
|
||||
[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<
|
||||
<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[
|
||||
>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>[
|
||||
-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<
|
||||
<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<
|
||||
[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>
|
||||
>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+
|
||||
<<<<<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>
|
||||
>>>>>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<<<<<<<<]<<
|
||||
+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<
|
||||
<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>
|
||||
>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+<<<[<<<<<<
|
||||
<<<]>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<
|
||||
<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->
|
||||
>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<
|
||||
<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]<<<<<<<[->+>>>-<<<<]>>>>>>>>>+++++++++++++++++++
|
||||
+++++++++++++++++++++>>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>[<<<<<<<+<[-<+>>>>+<<[-]
|
||||
]>[-<<[->+>>>-<<<<]>>>]>>>>>>>>>>>>>[>>[-]>[-]>[-]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[
|
||||
-]>>>>>>[>>>>>[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>
|
||||
>[>>[-<<<<<<<<<+>>>>>>>>>]>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[
|
||||
>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<<
|
||||
<[->>[-<<+>>]<<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<
|
||||
<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<
|
||||
<<<<[>[-]<->>>[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<<<<<<<]>>>>>
|
||||
>>>>[>>>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>
|
||||
>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<
|
||||
<<<<<[->>[-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>
|
||||
>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>
|
||||
]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<
|
||||
<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>[-<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>
|
||||
>>>>>>+++++++++++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>>
|
||||
>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>
|
||||
>>>>>>[>>>>>>[-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>+>[-<-<<<<+>>>>>]>[-<<<<<<[->>>>>+<+
|
||||
+<<<<]>>>>>[-<<<<<+>>>>>]<->+>]<[->+<]<<<<<[->>>>>+<<<<<]>>>>>>[-]<<<<<<+>>>>[-<
|
||||
<<<->>>>]+<<<<[->>>>->>>>>[>>[-<<->>]+<<[->>->[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<
|
||||
<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>+<]]+>>>[-<<<->>>]+<<<[->>>-<[-<<+>>]<<[->>+<<<
|
||||
<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>
|
||||
>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]
|
||||
>>>>>>>>]<<<<<<<<+<[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<<<]<]>[
|
||||
->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<
|
||||
]>[->>>+<<<]<<<<<<<<<<<<]>>>>[-]<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+>[-<->]<[->+
|
||||
<]>>>>>>>>]<<<<<<<<+<[>[->>>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>[->>>>+<<<<]>]<
|
||||
[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>]<]>>[->>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>]
|
||||
>]<[->>>>+<<<<]<<<<<<<<<<<]>>>>>>+<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>>>>>
|
||||
>>>>]<<<<<<<<<[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<<<]<]>[->>>-
|
||||
<<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->
|
||||
>>+<<<]<<<<<<<<<<<<]]>[-]>>[-]>[-]>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>
|
||||
>>>>>[>>>>>[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>++
|
||||
+++++++++++++[[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<
|
||||
<]>>>>>>>>>-]+[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[-
|
||||
>>>>+<<<<<[->>[-<<+>>]<<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>
|
||||
>>>>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>
|
||||
>>>]<<<<<<<<<[>[-]<->>>[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<<<<
|
||||
<<<]>>>>>>>>>[>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>[-]>>>>+++++++++++++++[[>>>>>>>>>]<
|
||||
<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<
|
||||
<<[->>>>+<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+
|
||||
<<<<[->>>>-<[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[
|
||||
-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[->>
|
||||
>+>>>>>>[>+>>>[-<<<->>>]<<<[->>>+<<<]>>>>>>>>]<<<<<<<<+<[>[->+>[-<-<<<<<<<<<<+>>
|
||||
>>>>>>>>>>[-<<+>>]<]>[-<<-<<<<<<<<<<+>>>>>>>>>>>>]<<<]>>[-<+>>[-<<-<<<<<<<<<<+>>
|
||||
>>>>>>>>>>]<]>[-<<+>>]<<<<<<<<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->
|
||||
>]<<[->>+<<]>>>>>>>>]<<<<<<<<+<[>[->+>>[-<<-<<<<<<<<<<+>>>>>>>>>>>[-<+>]>]<[-<-<
|
||||
<<<<<<<<<+>>>>>>>>>>>]<<]>>>[-<<+>[-<-<<<<<<<<<<+>>>>>>>>>>>]>]<[-<+>]<<<<<<<<<<
|
||||
<<]>>>>>+<<<<<]>>>>>>>>>[>>>[-]>[-]>[-]>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>[-]>>>>>[
|
||||
>>>>>>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>+
|
||||
>[-<-<<<<+>>>>>]>>[-<<<<<<<[->>>>>+<++<<<<]>>>>>[-<<<<<+>>>>>]<->+>>]<<[->>+<<]<
|
||||
<<<<[->>>>>+<<<<<]+>>>>[-<<<<->>>>]+<<<<[->>>>->>>>>[>>>[-<<<->>>]+<<<[->>>-<[-<
|
||||
<+>>]<<[->>+<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>[-<<->>]+<<[->
|
||||
>->[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[
|
||||
-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[
|
||||
>+>[-<->]<[->+<]>>>>>>>>]<<<<<<<<+<[>[->>>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>[->>>
|
||||
+<<<]>]<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>]<]>>[->>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>
|
||||
>]>]<[->>>+<<<]<<<<<<<<<<<]>>>>>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<
|
||||
]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<<<<<<<+<[>[-
|
||||
>>>>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]>[->>-<<<<<<<<<<<<<+>>>>>>>>>>>
|
||||
]<<]>[->>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>+<<]<<<<<<<<<<<<]]>>>>[-]<<<<
|
||||
]>>>>[-<<<<+>>>>]<<<<[->>>>+>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>
|
||||
>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]
|
||||
>[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[-
|
||||
>>+<<]<<<<<<<<<<<<]]>>>>>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-]>[-]>>>>
|
||||
>[>>>>>[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>
|
||||
>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++
|
||||
++++++++[[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>
|
||||
>>>>>>-]+[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+
|
||||
<<<<<[->>[-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>
|
||||
>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>
|
||||
]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<
|
||||
<<<<]>>>>>>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<
|
||||
<<[->>>>>+<<<<<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>
|
||||
>>>>>>>[>>>>>>>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<
|
||||
<<<<<<<]<<+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<
|
||||
<<[->>>+<<<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++
|
||||
++++[[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+
|
||||
<<<[<<<<<<<<<]>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<
|
||||
<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+
|
||||
>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>
|
||||
>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>->>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>
|
||||
]<<+>>>>[-<<<<->>>>]+<<<<[->>>>-<<<<<<.>>]>>>>[-<<<<<<<.>>>>>>>]<<<[-]>[-]>[-]>[
|
||||
-]>[-]>[-]>>>[>[-]>[-]>[-]>[-]>[-]>[-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-]
|
||||
>>>>]<<<<<<<<<[<<<<<<<<<]>++++++++++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>+>>>
|
||||
>>>>>>+<<<<<<<<<<<<<<[<<<<<<<<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+[-]>>[
|
||||
>>>>>>>>>]<<<<<<<<<[>>>>>>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<[<<<<<<<<<]>>>>
|
||||
>>>[-]+>>>]<<<<<<<<<<]]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+>>[>+>>>>[-<<<<
|
||||
->>>>]<<<<[->>>>+<<<<]>>>>>>>>]<<+<<<<<<<[>>>>>[->>+<<]<<<<<<<<<<<<<<]>>>>>>>>>[
|
||||
>>>>>>>>>]<<<<<<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[->+<]>>>>>>>]<<<<<<[-
|
||||
>>>>>>+<<<<<<]<+<<<<<<<<<]>>>>>>>-<<<<[-]+<<<]+>>>>>>>[-<<<<<<<->>>>>>>]+<<<<<<<
|
||||
[->>>>>>>->>[>>>>>[->>+<<]>>>>]<<<<<<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[
|
||||
->+<]>>>>>>>]<<<<<<[->>>>>>+<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+<<<<<<<<<]>>>
|
||||
>>>>>>]>>>>+<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-<<<<<->>>>>]+<<<<<[->>>>>->>[-<<<<<
|
||||
<<+>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>
|
||||
+<]]+>>>>>>>[-<<<<<<<->>>>>>>]+<<<<<<<[->>>>>>>-<<[-<<<<<+>>>>>]<<<<<[->>>>>+<<<
|
||||
<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>
|
||||
>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-]<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>
|
||||
>-<<<<<[<<<<<<<<<]]>>>]<<<<.>>>>>>>>>>[>>>>>>[-]>>>]<<<<<<<<<[<<<<<<<<<]>+++++++
|
||||
++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>+>>>>>>>>>+<<<<<<<<<<<<<<<[<<<<<<<<<]
|
||||
>>>>>>>>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+[-]>[>>>>>>>>>]<<<<<<<<<[>>>>>>>>
|
||||
[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+>>]<<<<<<<<<<]
|
||||
]>>>>>>>>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+>[>+>>>>>[-<<<<<->>>>>]<<<<<[->>
|
||||
>>>+<<<<<]>>>>>>>>]<+<<<<<<<<[>>>>>>[->>+<<]<<<<<<<<<<<<<<<]>>>>>>>>>[>>>>>>>>>]
|
||||
<<<<<<<<<[>[-]<->>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[->+<]>>>>>>>>]<<<<<<<[->>>>>>>+
|
||||
<<<<<<<]<+<<<<<<<<<]>>>>>>>>-<<<<<[-]+<<<]+>>>>>>>>[-<<<<<<<<->>>>>>>>]+<<<<<<<<
|
||||
[->>>>>>>>->[>>>>>>[->>+<<]>>>]<<<<<<<<<[>[-]<->>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[
|
||||
->+<]>>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+<<<<<<<<<
|
||||
]>>>>>>>>>]>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>>+<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>>[-
|
||||
<<<<<<->>>>>>]+<<<<<<[->>>>>>->>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+<<<<<<<<<
|
||||
<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>>>>>[-<<<<<<<<->>>>>>>>]+<<
|
||||
<<<<<<[->>>>>>>>-<<[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[
|
||||
-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<
|
||||
<]>>>>[-]<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>->>>>>>>>>>>>>>>>>>>>>>>
|
||||
>>>>-<<<<<<[<<<<<<<<<]]>>>]
|
||||
|
|
@ -1,146 +0,0 @@
|
|||
A mandelbrot set fractal viewer in BF written by Erik Bosman
|
||||
Size = 515x193
|
||||
+++++++++++++[->++>>>+++++>++>+<<<<<<]>>>>>++++++>--->>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-]>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+
|
||||
<<<<<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
>+<<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+[>>>>>>[>>>>>>>[-]>>]<<<<<<<<<[<<<<<<<<<]>>
|
||||
>>>>>[-]+<<<<<<++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<+++++++[-[->>>
|
||||
>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[[-]>>>>>>[>>>>>
|
||||
>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>
|
||||
[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<
|
||||
<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>+++++++++++++++[[
|
||||
>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[
|
||||
>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>]<<<<[->>>>+<<<<<[->>[
|
||||
-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<
|
||||
<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>>>>>>>]<<<<<<<<<
|
||||
[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>
|
||||
>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+
|
||||
<<<<<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>>
|
||||
>>>>>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[->>>>>>>>>+<<<<<<<<<]<<
|
||||
+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>+<<
|
||||
<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>
|
||||
>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>>>>>>>>>>>>+<<<[<<<<<<
|
||||
<<<]>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<
|
||||
<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->
|
||||
>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<
|
||||
<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]<<<<<<<[->+>>>-<<<<]>>>>>>>>>+++++++++++++++++++
|
||||
+++++++++++++++++++++++++++++++++>>[-<<<<+>>>>]<<<<[->>>>+<<[-]<<]>>[<<<<<<<+<[-
|
||||
<+>>>>+<<[-]]>[-<<[->+>>>-<<<<]>>>]>>>>>>>>>>>>>[>>[-]>[-]>[-]>>>>>]<<<<<<<<<[<<
|
||||
<<<<<<<]>>>[-]>>>>>>[>>>>>[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<
|
||||
<<<]>>>>>>>>>[>>[-<<<<<<<<<+>>>>>>>>>]>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>+++++
|
||||
++++++++++[[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<<<<<<<<<]>
|
||||
>>>>>>>>-]+[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<<<<[
|
||||
->>>>>+<<<<<<[->>[-<<+>>]<<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>>>>>[>
|
||||
>>>>>>>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<<]<+>>
|
||||
>>>>>>]<<<<<<<<<[>[-]<->>>[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>+<<]<+<<<
|
||||
<<<<<<]>>>>>>>>>[>>>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<<+<]>>>>>>>>]<<<<<<<<<[<<<<
|
||||
<<<<<]>>>>>>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<<<+>>>>>]<<
|
||||
<<<[->>>>>+<<<<<<[->>[-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>
|
||||
>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<
|
||||
<]<+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>
|
||||
+<<<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>>>[-<<<<<<<<<<<<
|
||||
<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>>]<<<<<<<<<[<
|
||||
<<<<<<<<]>>>>>>>>>+++++++++++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>
|
||||
>>>>-]+[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<+<]>>>>>>>>]<<<<<<<<<[<
|
||||
<<<<<<<<]>>>>>>>>>[>>>>>>[-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>+>[-<-<<<<+>>>>>]>[-<<<<
|
||||
<<[->>>>>+<++<<<<]>>>>>[-<<<<<+>>>>>]<->+>]<[->+<]<<<<<[->>>>>+<<<<<]>>>>>>[-]<<
|
||||
<<<<+>>>>[-<<<<->>>>]+<<<<[->>>>->>>>>[>>[-<<->>]+<<[->>->[-<<<+>>>]<<<[->>>+<<<
|
||||
<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>+<]]+>>>[-<<<->>>]+<<<[->>>-<[-<<+>
|
||||
>]<<[->>+<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<
|
||||
<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->
|
||||
>]<<[->>+<<]>>>>>>>>]<<<<<<<<+<[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[-
|
||||
>>>+<<<]<]>[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>
|
||||
>>>>>>>>>>]<]>[->>>+<<<]<<<<<<<<<<<<]>>>>[-]<<<<]>>>[-<<<+>>>]<<<[->>>+>>>>>>[>+
|
||||
>[-<->]<[->+<]>>>>>>>>]<<<<<<<<+<[>[->>>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>[->
|
||||
>>>+<<<<]>]<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>]<]>>[->>>+<<<<[->>>>-<<<<<<<<<<<<<<
|
||||
+>>>>>>>>>>]>]<[->>>>+<<<<]<<<<<<<<<<<]>>>>>>+<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>
|
||||
+>>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>>+<<<<[->>>>-<<<<<<<<<<<<<<+>>>>>>>>>>>[->>>+<
|
||||
<<]<]>[->>>-<<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>>+<<<[->>>-<<<<<<<<<<<<<<+>>>>>>
|
||||
>>>>>]<]>[->>>+<<<]<<<<<<<<<<<<]]>[-]>>[-]>[-]>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<
|
||||
<<<<<<<]>>>>>>>>>[>>>>>[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<
|
||||
]>>>>>>>>>+++++++++++++++[[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<
|
||||
<<<[<<<<<<<<<]>>>>>>>>>-]+[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<
|
||||
+>>>>]<<<<[->>>>+<<<<<[->>[-<<+>>]<<[->>+>+<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>
|
||||
>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<
|
||||
<<<<]<+>>>>>>>>]<<<<<<<<<[>[-]<->>>[-<<<+>[<->-<<<<<<<+>>>>>>>]<[->+<]>>>]<<[->>
|
||||
+<<]<+<<<<<<<<<]>>>>>>>>>[>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>[-]>>>>+++++++++++++++[
|
||||
[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+[>>>[-<<<->>>]+<<<[->>>->[-
|
||||
<<<<+>>>>]<<<<[->>>>+<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[
|
||||
-<<<<->>>>]+<<<<[->>>>-<[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[
|
||||
>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<
|
||||
+>>>]<<<[->>>+>>>>>>[>+>>>[-<<<->>>]<<<[->>>+<<<]>>>>>>>>]<<<<<<<<+<[>[->+>[-<-<
|
||||
<<<<<<<<<+>>>>>>>>>>>>[-<<+>>]<]>[-<<-<<<<<<<<<<+>>>>>>>>>>>>]<<<]>>[-<+>>[-<<-<
|
||||
<<<<<<<<<+>>>>>>>>>>>>]<]>[-<<+>>]<<<<<<<<<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>
|
||||
>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<<<<<<<+<[>[->+>>[-<<-<<<<<<<<<<+>>>>>>>>>>>[-
|
||||
<+>]>]<[-<-<<<<<<<<<<+>>>>>>>>>>>]<<]>>>[-<<+>[-<-<<<<<<<<<<+>>>>>>>>>>>]>]<[-<+
|
||||
>]<<<<<<<<<<<<]>>>>>+<<<<<]>>>>>>>>>[>>>[-]>[-]>[-]>>>>]<<<<<<<<<[<<<<<<<<<]>>>[
|
||||
-]>[-]>>>>>[>>>>>>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<+<<]>>>>>>>>]<<<<<<<<<[<<<
|
||||
<<<<<<]>>>>+>[-<-<<<<+>>>>>]>>[-<<<<<<<[->>>>>+<++<<<<]>>>>>[-<<<<<+>>>>>]<->+>>
|
||||
]<<[->>+<<]<<<<<[->>>>>+<<<<<]+>>>>[-<<<<->>>>]+<<<<[->>>>->>>>>[>>>[-<<<->>>]+<
|
||||
<<[->>>-<[-<<+>>]<<[->>+<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>[-
|
||||
<<->>]+<<[->>->[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>
|
||||
]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>[-<<<+>>>]<<<[
|
||||
->>>+>>>>>>[>+>[-<->]<[->+<]>>>>>>>>]<<<<<<<<+<[>[->>>>+<<[->>-<<<<<<<<<<<<<+>>>
|
||||
>>>>>>>[->>>+<<<]>]<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>]<]>>[->>+<<<[->>>-<<<<<<<<<<<
|
||||
<<+>>>>>>>>>>]>]<[->>>+<<<]<<<<<<<<<<<]>>>>>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>
|
||||
>>>+<<+<<<<<]]>>>>[-<<<<+>>>>]<<<<[->>>>+>>>>>[>+>>[-<<->>]<<[->>+<<]>>>>>>>>]<<
|
||||
<<<<<<+<[>[->>>>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>>>[->>+<<]<]>[->>-<<<<<<<<<<<<<
|
||||
+>>>>>>>>>>>]<<]>[->>>+<<[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<]>[->>+<<]<<<<<<<<<<<<]
|
||||
]>>>>[-]<<<<]>>>>[-<<<<+>>>>]<<<<[->>>>+>[-]>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>
|
||||
+<<+<<<<<]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>+<<<[->>>-<<<<<<<<<<<<<+>>>>>>>>>
|
||||
>>[->>+<<]<]>[->>-<<<<<<<<<<<<<+>>>>>>>>>>>]<<]>[->>>+<<[->>-<<<<<<<<<<<<<+>>>>>
|
||||
>>>>>>]<]>[->>+<<]<<<<<<<<<<<<]]>>>>>>>>>[>>[-]>[-]>>>>>>]<<<<<<<<<[<<<<<<<<<]>>
|
||||
>[-]>[-]>>>>>[>>>>>[-<<<<+>>>>]<<<<[->>>>+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>
|
||||
>>>>>>[>>>>>>[-<<<<<+>>>>>]<<<<<[->>>>>+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>
|
||||
>>>>>+++++++++++++++[[>>>>>>>>>]+>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]>[-]<<<<<<<<<[<
|
||||
<<<<<<<<]>>>>>>>>>-]+[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>[-<<<<+>>>>
|
||||
]<<<<[->>>>+<<<<<[->>[-<<+>>]<<[->>+>>+<<<<]+>>>>>>>>>]<<<<<<<<[<<<<<<<<<]]>>>>>
|
||||
>>>>[>>>>>>>>>]<<<<<<<<<[>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<]>[->>>>>>>>>+<<<<<<<<
|
||||
<]<+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<[->+<]>>>>]<<<[->>>
|
||||
+<<<]<+<<<<<<<<<]>>>>>>>>>[>+>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>[>->>>>>[-<<<
|
||||
<<+>>>>>]<<<<<[->>>>>+<<<<<<[->>>[-<<<+>>>]<<<[->>>+>+<<<<]+>>>>>>>>>]<<<<<<<<[<
|
||||
<<<<<<<<]]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>>[->>>>>>>>>+<<<<<<<<<]<<<<<<<<<<<]>>[-
|
||||
>>>>>>>>>+<<<<<<<<<]<<+>>>>>>>>]<<<<<<<<<[>[-]<->>>>[-<<<<+>[<->-<<<<<<+>>>>>>]<
|
||||
[->+<]>>>>]<<<[->>>+<<<]<+<<<<<<<<<]>>>>>>>>>[>>>>[-<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
<<<<<<<<+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>]>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>
|
||||
>+++++++++++++++[[>>>>>>>>>]<<<<<<<<<-<<<<<<<<<[<<<<<<<<<]>>>>>>>>>-]+>>>>>>>>>>
|
||||
>>>>>>>>>>>+<<<[<<<<<<<<<]>>>>>>>>>[>>>[-<<<->>>]+<<<[->>>->[-<<<<+>>>>]<<<<[->>
|
||||
>>+<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>[-<<<<->>>>]+<<<<[-
|
||||
>>>>-<[-<<<+>>>]<<<[->>>+<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]
|
||||
+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>->>[-<<<<+>>>>]<<<<[->>>
|
||||
>+<<[-]<<]>>]<<+>>>>[-<<<<->>>>]+<<<<[->>>>-<<<<<<.>>]>>>>[-<<<<<<<.>>>>>>>]<<<[
|
||||
-]>[-]>[-]>[-]>[-]>[-]>>>[>[-]>[-]>[-]>[-]>[-]>[-]>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>
|
||||
>>>[>>>>>[-]>>>>]<<<<<<<<<[<<<<<<<<<]>+++++++++++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>
|
||||
>>>>]>>>>+>>>>>>>>>+<<<<<<<<<<<<<<[<<<<<<<<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->
|
||||
>>>>>>+[-]>>[>>>>>>>>>]<<<<<<<<<[>>>>>>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<[<
|
||||
<<<<<<<<]>>>>>>>[-]+>>>]<<<<<<<<<<]]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+>>
|
||||
[>+>>>>[-<<<<->>>>]<<<<[->>>>+<<<<]>>>>>>>>]<<+<<<<<<<[>>>>>[->>+<<]<<<<<<<<<<<<
|
||||
<<]>>>>>>>>>[>>>>>>>>>]<<<<<<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<->-<<<+>>>]<[->+<]>>>
|
||||
>>>>]<<<<<<[->>>>>>+<<<<<<]<+<<<<<<<<<]>>>>>>>-<<<<[-]+<<<]+>>>>>>>[-<<<<<<<->>>
|
||||
>>>>]+<<<<<<<[->>>>>>>->>[>>>>>[->>+<<]>>>>]<<<<<<<<<[>[-]<->>>>>>>[-<<<<<<<+>[<
|
||||
->-<<<+>>>]<[->+<]>>>>>>>]<<<<<<[->>>>>>+<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>>>>>+
|
||||
<<<<<<<<<]>>>>>>>>>]>>>>+<<<<<[<<<<<<<<<]>>>>>>>>>[>>>>>[-<<<<<->>>>>]+<<<<<[->>
|
||||
>>>->>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>
|
||||
>[>>>>>>>>>]>+<]]+>>>>>>>[-<<<<<<<->>>>>>>]+<<<<<<<[->>>>>>>-<<[-<<<<<+>>>>>]<<<
|
||||
<<[->>>>>+<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>
|
||||
>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-]<<<+++++[-[->>>>>>>>>+<<<<<<<<<]
|
||||
>>>>>>>>>]>>>>-<<<<<[<<<<<<<<<]]>>>]<<<<.>>>>>>>>>>[>>>>>>[-]>>>]<<<<<<<<<[<<<<<
|
||||
<<<<]>++++++++++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>+>>>>>>>>>+<<<<<<<<<<<<
|
||||
<<<[<<<<<<<<<]>>>>>>>>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+[-]>[>>>>>>>>>]<<<<
|
||||
<<<<<[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+
|
||||
>>]<<<<<<<<<<]]>>>>>>>>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>>>>>+>[>+>>>>>[-<<<<<->
|
||||
>>>>]<<<<<[->>>>>+<<<<<]>>>>>>>>]<+<<<<<<<<[>>>>>>[->>+<<]<<<<<<<<<<<<<<<]>>>>>>
|
||||
>>>[>>>>>>>>>]<<<<<<<<<[>[-]<->>>>>>>>[-<<<<<<<<+>[<->-<<+>>]<[->+<]>>>>>>>>]<<<
|
||||
<<<<[->>>>>>>+<<<<<<<]<+<<<<<<<<<]>>>>>>>>-<<<<<[-]+<<<]+>>>>>>>>[-<<<<<<<<->>>>
|
||||
>>>>]+<<<<<<<<[->>>>>>>>->[>>>>>>[->>+<<]>>>]<<<<<<<<<[>[-]<->>>>>>>>[-<<<<<<<<+
|
||||
>[<->-<<+>>]<[->+<]>>>>>>>>]<<<<<<<[->>>>>>>+<<<<<<<]<+<<<<<<<<<]>+++++[-[->>>>>
|
||||
>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>>+<<<<<<[<<<<<<<<<]>>>>
|
||||
>>>>>[>>>>>>[-<<<<<<->>>>>>]+<<<<<<[->>>>>>->>[-<<<<<<<<+>>>>>>>>]<<<<<<<<[->>>>
|
||||
>>>>+<<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>>[-]+>>>>>[>>>>>>>>>]>+<]]+>>>>>>>>[-<<<<<<<
|
||||
<->>>>>>>>]+<<<<<<<<[->>>>>>>>-<<[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<<<<<<<<<<<<<<[
|
||||
<<<<<<<<<]>>>[-]+>>>>>>[>>>>>>>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<
|
||||
<<<<<[<<<<<<<<<]>>>>[-]<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>->>>>>>>>>
|
||||
>>>>>>>>>>>>>>>>>>-<<<<<<[<<<<<<<<<]]>>>]
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
На вход подается последовательность символов оканчивающаяся #0
|
||||
Эта последовательность переводится в текст программы на BF которая печатает эту последовательность
|
||||
|
||||
+++++[>+++++++++<-],[[>--.++>+<<-]>+.->[<.>-]<<,]
|
||||
|
||||
|
|
@ -1 +0,0 @@
|
|||
Hello World!
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
* * * * * M a d e * B y : * N Y Y R I K K I * 2 0 0 2 * * * * *
|
||||
>
|
||||
+ +
|
||||
+ +
|
||||
[ < + +
|
||||
+ +
|
||||
+ + + +
|
||||
> - ] >
|
||||
+ + + + + + + +
|
||||
[ >
|
||||
+ + + +
|
||||
< - ] >
|
||||
> + + > > > + >
|
||||
> > + <
|
||||
< < < < < < < <
|
||||
< [ - [ - > + <
|
||||
] > [ - < + > > > . < < ] > > >
|
||||
[ [
|
||||
- > + +
|
||||
+ + + +
|
||||
+ + [ > + + + +
|
||||
< - ] >
|
||||
. < < [ - > + <
|
||||
] + > [ - > + +
|
||||
+ + + + + + + + < < + > ] > . [
|
||||
- ] > ]
|
||||
] + < < < [ - [
|
||||
- > + < ] + > [
|
||||
- < + > > > - [ - > + < ] + + >
|
||||
[ - < - > ] < <
|
||||
< ] < < < < ] + + + + + + + + +
|
||||
+ . + + + . [ - ] < ] + + + + +
|
||||
|
||||
|
|
@ -1,37 +0,0 @@
|
|||
/*
|
||||
http://en.wikipedia.org/wiki/PL/0
|
||||
The PL/0 language is a simplified version of the general-purpose
|
||||
programming language Pascal, intended as an educational programming language.
|
||||
It serves as an example of how to construct a compiler. It was originally
|
||||
introduced in the book, Algorithms + Data Structures = Programs, by
|
||||
Niklaus Wirth in 1975. It features quite limited language constructs:
|
||||
there are no real numbers, very few basic arithmetic operations and no
|
||||
control-flow constructs other than "if" and "while" blocks.
|
||||
While these limitations make writing real applications in this language
|
||||
impractical, it helps the compiler remain compact and simple.
|
||||
|
||||
Special satatements:
|
||||
|
||||
? ident - Readln(ident)
|
||||
! expr - Writeln(expr)
|
||||
|
||||
*/
|
||||
|
||||
CONST MAX = 1000;
|
||||
|
||||
VAR i,j;
|
||||
|
||||
PROCEDURE Fibonachi;
|
||||
VAR t;
|
||||
WHILE j+j<MAX DO BEGIN
|
||||
t := i;
|
||||
i := j;
|
||||
j := t + i;
|
||||
! j;
|
||||
END;
|
||||
|
||||
BEGIN
|
||||
i := 0;
|
||||
j := 1;
|
||||
CALL Fibonachi;
|
||||
END.
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
// Ïðèìåð èëëþñòðèðóåò èñïîëüçîâàíèå çíà÷êà & äëÿ ñíÿòèÿ àòðèáóòà êëþ÷åâîãî ñëîâà
|
||||
var
|
||||
&begin,&end: integer;
|
||||
begin
|
||||
&begin := 1;
|
||||
&end := 2;
|
||||
var t: System.Type := &begin.GetType; // â System.Type èñïîëüçîâàòü & íå íàäî
|
||||
write(&begin,' ',&end,' ',t);
|
||||
end.
|
||||
|
|
@ -1,18 +0,0 @@
|
|||
// Ïðèñâàèâàíèÿ += -= *= /=
|
||||
var
|
||||
i: integer;
|
||||
r: real;
|
||||
|
||||
begin
|
||||
i := 1;
|
||||
writeln('i := 1; i = ',i);
|
||||
i += 2; // Óâåëè÷åíèå íà 2
|
||||
writeln('i += 2; i = ',i);
|
||||
i *= 3; // Óìíîæåíèå íà 3
|
||||
writeln('i *= 3; i = ',i);
|
||||
writeln;
|
||||
r := 6;
|
||||
writeln('r := 6; r = ',r);
|
||||
r /= 2;
|
||||
writeln('r /= 2; r = ',r);
|
||||
end.
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
// Àâòîîïðåäåëåíèå òèïà ïåðåìåííîé
|
||||
// Îïèñàíèå ïåðåìåííîé â çàãîëîâêå öèêëà for
|
||||
begin
|
||||
var x := 2;
|
||||
for var i:=1 to 10 do
|
||||
begin
|
||||
write(x,' ');
|
||||
x += 2;
|
||||
end;
|
||||
end.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
// Перемена местами значений двух переменных с использованием третьей
|
||||
var x,y: real;
|
||||
|
||||
begin
|
||||
write('Введите x,y: ');
|
||||
readln(x,y);
|
||||
var v: real := x; // вспомогательная переменная
|
||||
x := y;
|
||||
y := v;
|
||||
writeln('Новые значения x,y: ',x,' ',y);
|
||||
end.
|
||||
|
|
@ -1,24 +0,0 @@
|
|||
// Ïðèìåð èëëþñòðèðóåò âîçìîæíîñòè îïåðàòîðà foreach
|
||||
var
|
||||
a: array [1..5] of integer := (1,3,5,7,9);
|
||||
s: set of integer;
|
||||
l: List<integer>;
|
||||
|
||||
begin
|
||||
write('foreach ïî îáû÷íîìó ìàññèâó: ':35);
|
||||
foreach x: integer in a do
|
||||
Print(x);
|
||||
writeln;
|
||||
|
||||
s := [2..5,10..14];
|
||||
write('foreach ïî ìíîæåñòâó: ':35);
|
||||
foreach var x in s do
|
||||
Print(x);
|
||||
writeln;
|
||||
|
||||
l := new List<integer>;
|
||||
l.Add(7); l.Add(2); l.Add(5);
|
||||
write('foreach ïî äèíàìè÷åñêîìó ìàññèâó: ':35);
|
||||
foreach var x in l do
|
||||
Print(x);
|
||||
end.
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
/// Âûâîä ñ ïîìîùüþ Print
|
||||
begin
|
||||
Print(1,2,3)
|
||||
end.
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
// Генерация случайного числа в заданном диапазоне
|
||||
begin
|
||||
var i := Random(2,5);
|
||||
writeln('Случайное целое в диапазоне 2..5: ',i);
|
||||
end.
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
// При работе с вещественными числами невозможно получить ошибку выполнения
|
||||
begin
|
||||
writeln(1/0);
|
||||
writeln(sqrt(-1));
|
||||
end.
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
// Простейшие новые возможности языка PascalABC.NET
|
||||
|
||||
// Инициализация переменной при описании
|
||||
var i: integer := 1;
|
||||
|
||||
// Автоопределение типа переменной при инициализации
|
||||
var r := 2.5;
|
||||
|
||||
begin
|
||||
// Внутриблочные описания переменных
|
||||
var s: real := 1.0;
|
||||
|
||||
// Описание переменной в заголовке цикла (время жизни переменной - до конца тела цикла)
|
||||
for j: integer := 1 to 10 do
|
||||
s += j; // Операция += для чисел
|
||||
|
||||
var p := 1;
|
||||
|
||||
// Описание переменной в заголовке цикла с автоопределением типа
|
||||
for var j := 1 to 10 do
|
||||
p *= j; // Операция *=
|
||||
|
||||
var str := '';
|
||||
for c: char := 'a' to 'z' do
|
||||
str += c; // Операция += для строк
|
||||
|
||||
end.
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
/// Ñòàíäàðòíûå ðàçìåðíûå òèïû äàííûõ è èõ ðàçìåð
|
||||
var
|
||||
i: integer;
|
||||
j: shortint;
|
||||
k: smallint;
|
||||
l: longint; // ñèíîíèì integer
|
||||
i64: int64;
|
||||
b: byte;
|
||||
w: word;
|
||||
lw: longword;
|
||||
car: cardinal; // ñèíîíèì longword
|
||||
ui64: uint64;
|
||||
r: real;
|
||||
d: double; // ñèíîíèì real
|
||||
sn: single;
|
||||
c: char;
|
||||
|
||||
begin
|
||||
writeln('sizeof(integer) = ':20, sizeof(integer));
|
||||
writeln('sizeof(shortint) = ':20,sizeof(shortint));
|
||||
writeln('sizeof(smallint) = ':20,sizeof(smallint));
|
||||
writeln('sizeof(longint) = ':20, sizeof(longint));
|
||||
writeln('sizeof(int64) = ':20, sizeof(int64));
|
||||
writeln('sizeof(byte) = ':20, sizeof(byte));
|
||||
writeln('sizeof(word) = ':20, sizeof(word));
|
||||
writeln('sizeof(longword) = ':20,sizeof(longword));
|
||||
writeln('sizeof(cardinal) = ':20,sizeof(cardinal));
|
||||
writeln('sizeof(uint64) = ':20, sizeof(uint64));
|
||||
writeln('sizeof(real) = ':20, sizeof(real));
|
||||
writeln('sizeof(double) = ':20, sizeof(double));
|
||||
writeln('sizeof(single) = ':20, sizeof(single));
|
||||
writeln('sizeof(char) = ':20, sizeof(char));
|
||||
end.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
/// Вывод различных типов процедурой write
|
||||
begin
|
||||
// Вывод, целого, строки, вещественного
|
||||
Writeln(1,' ',2.5);
|
||||
// Вывод множества
|
||||
Writeln([1..10]);
|
||||
// Вывод логического
|
||||
Writeln(True);
|
||||
var a: array [1..10] of integer;
|
||||
// Вывод массива (выводится его тип)
|
||||
Writeln(a);
|
||||
end.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
/// Использование процедуры WritelnFormat
|
||||
begin
|
||||
// Вывод в обратном порядке
|
||||
WritelnFormat('{2},{1},{0}',1,2,3);
|
||||
// Вывод фигурных скобочек
|
||||
WritelnFormat('{{}}{0}','Вывод фигурных скобочек в форматной строке');
|
||||
// Задание ширины поля вывода
|
||||
WritelnFormat('{0,10:f}',3.1415);
|
||||
// Задание количества знаков после запятой для вещественного числа
|
||||
WritelnFormat('{0:f3}',3.1415);
|
||||
end.
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
// Ñòàíäàðòíûå ôóíêöèè Ord, Chr, OrdUnicode, ChrUnicode
|
||||
var
|
||||
c: char;
|
||||
i: integer;
|
||||
|
||||
begin
|
||||
writeln('sizeof(char) = ',sizeof(char));
|
||||
writeln;
|
||||
c := 'Æ';
|
||||
i := Ord(c);
|
||||
writelnFormat('Êîä ñèìâîëà {0} â êîäèðîâêå Windows ðàâåí {1}',c,i);
|
||||
c := Chr(i);
|
||||
writelnFormat('Ñèìâîë ñ êîäîì {0} â êîäèðîâêå Windows - ýòî {1}',i,c);
|
||||
writeln;
|
||||
i := OrdUnicode(c);
|
||||
writelnFormat('Êîä ñèìâîëà {0} â êîäèðîâêå Unicode ðàâåí {1}',c,i);
|
||||
c := ChrUnicode(i);
|
||||
writelnFormat('Ñèìâîë ñ êîäîì {0} â êîäèðîâêå Unicode - ýòî {1}',i,c);
|
||||
end.
|
||||
|
|
@ -1,40 +0,0 @@
|
|||
// Ïðîöåäóðû è ìåòîäû ðàáîòû ñ äèíàìè÷åñêèì ìàññèâîì
|
||||
uses System;
|
||||
|
||||
procedure Print(a: array of integer);
|
||||
begin
|
||||
foreach v: integer in a do
|
||||
Write(v, ' ');
|
||||
Writeln;
|
||||
end;
|
||||
|
||||
var a: array of integer;
|
||||
|
||||
begin
|
||||
SetLength(a,10); // âûäåëåíèå ïàìÿòè. À ìîæíî òàê: a := new integer[10];
|
||||
|
||||
// Çàïîëíåíèå ìàññèâà
|
||||
for var i:=0 to a.Length-1 do
|
||||
a[i] := PABCSystem.Random(100);
|
||||
|
||||
// Âûâîä âñåõ ýëåìåíòîâ ìàññèâà
|
||||
Print(a);
|
||||
|
||||
// Ñîðòèðîâêà ìàññèâà (çíàê & èñïîëüçóåòñÿ äëÿ òîãî,
|
||||
// ÷òîáû âîñïîëüçîâàòüñÿ êëþ÷åâûì ñëîâîì array ïðè îáîçíà÷åíèè
|
||||
// êëàññà Array)
|
||||
&Array.Sort(a);
|
||||
Print(a);
|
||||
|
||||
// Îáðàùåíèå ìàññèâà
|
||||
&Array.Reverse(a);
|
||||
Print(a);
|
||||
|
||||
// Èçìåíåíèå ðàçìåðàìàññèàâ ñ ñîõðàíåíèåì ýëåìåíòîâ. Òî æå äåëàåò SetLength
|
||||
&Array.Resize(a,a.Length+2);
|
||||
Print(a);
|
||||
|
||||
// Ïîèñê âõîæäåíèÿ ýëåìåíòà â ìàññèâ
|
||||
var i := &Array.IndexOf(a, 50);
|
||||
Writeln(i);
|
||||
end.
|
||||
|
|
@ -1,25 +0,0 @@
|
|||
// Перечислимый тип
|
||||
type Months = (January,February,March,April,May,June,July,August,September,October,November,December);
|
||||
|
||||
var m: Months;
|
||||
|
||||
begin
|
||||
m := February;
|
||||
writeln(m);
|
||||
// Использование констант перечислимого типа после имени типа удобно: после точки intellisense показывает список констант
|
||||
m := Months.April;
|
||||
writeln('Следующий месяц: ',m);
|
||||
Inc(m);
|
||||
writeln('Следующий месяц: ',m);
|
||||
m := Succ(m);
|
||||
writeln('Следующий месяц: ',m);
|
||||
m := Pred(m);
|
||||
writeln('Предыдующий месяц: ',m);
|
||||
Dec(m);
|
||||
writeln('Предыдующий месяц: ',m);
|
||||
writeln('Его порядковый номер (нумерация - с нуля): ',Ord(m));
|
||||
// Ошибки нет
|
||||
writeln('Месяц перед январем - выход за границы: ',pred(Months.January));
|
||||
// Ошибки нет
|
||||
writeln('Месяц после декабря - выход за границы: ',succ(Months.December));
|
||||
end.
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
// Èíèöèàëèçàòîðû ïîëåé çàïèñè
|
||||
type
|
||||
Frac = record
|
||||
num: integer := 0;
|
||||
denom := 1; // àâòîîïðåäåëåèíå òèïà - denom: integer
|
||||
end;
|
||||
|
||||
var
|
||||
f: Frac;
|
||||
f1: Frac := (num: 2; denom: 3);
|
||||
|
||||
begin
|
||||
writeln(f.num,'/',f.denom);
|
||||
writeln(f1.num,'/',f1.denom);
|
||||
end.
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
// Указатели на ссылочные типы запрещены. Исключение: указатели на строки и динамические массивы
|
||||
type
|
||||
A = class
|
||||
i: integer;
|
||||
end;
|
||||
|
||||
var p: ^record field: A; end;
|
||||
|
||||
begin
|
||||
end.
|
||||
|
|
@ -1,43 +0,0 @@
|
|||
// Выделение динамической памяти
|
||||
// Использование указателей для создания односвязного списка
|
||||
type
|
||||
PNode = ^TNode;
|
||||
TNode = record
|
||||
data: integer;
|
||||
next: PNode;
|
||||
end;
|
||||
|
||||
function NewNode(d: integer; n: PNode): PNode;
|
||||
begin
|
||||
New(Result);
|
||||
Result^.data := d;
|
||||
Result^.next := n;
|
||||
end;
|
||||
|
||||
var first: PNode;
|
||||
|
||||
begin
|
||||
first := nil;
|
||||
// Добавляем в начало односвязного списка
|
||||
first := NewNode(3,first);
|
||||
first := NewNode(7,first);
|
||||
first := NewNode(5,first);
|
||||
|
||||
// Вывод односвязного списка
|
||||
writeln('Содержимое односвязного списка: ');
|
||||
var p := first;
|
||||
while p<>nil do
|
||||
begin
|
||||
write(p^.data,' ');
|
||||
p := p^.next;
|
||||
end;
|
||||
|
||||
// Разрушение односвязного списка
|
||||
p := first;
|
||||
while p<>nil do
|
||||
begin
|
||||
var p1 := p;
|
||||
p := p^.next;
|
||||
Dispose(p1); // Память обязательно возвращать
|
||||
end;
|
||||
end.
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
// Использование ссылок вместо указателей для создания односвязного списка
|
||||
// Мы рекомендуем именно этот способ
|
||||
type
|
||||
Node = class
|
||||
data: integer;
|
||||
next: Node;
|
||||
constructor (d: integer; n: Node);
|
||||
begin
|
||||
data := d;
|
||||
next := n;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Переменная типа "класс" представляет собой ссылку на объект, выделяемый конструктором
|
||||
var first: Node;
|
||||
|
||||
begin
|
||||
first := nil;
|
||||
// Добавляем в начало односвязного списка
|
||||
first := new Node(3,first);
|
||||
first := new Node(7,first);
|
||||
first := new Node(5,first);
|
||||
|
||||
// Вывод односвязного списка. ^ отсутствуют
|
||||
writeln('Содержимое односвязного списка (использование ссылок вместо указателей): ');
|
||||
var p := first;
|
||||
while p<>nil do
|
||||
begin
|
||||
write(p.data,' ');
|
||||
p := p.next;
|
||||
end;
|
||||
|
||||
// Разрушение односвязного списка
|
||||
first := nil; // Сборщик мусора соберет память, на которую никто больше не указывает
|
||||
end.
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
// Работа с множествами
|
||||
// Базовый тип для множества может быть произвольным
|
||||
var
|
||||
s1: set of string := ['Иванов','Попов','Сидорова','Петров'];
|
||||
s2: set of string := ['Козлов','Петров','Иванов'];
|
||||
begin
|
||||
writeln('Множество s1: ',s1);
|
||||
writeln('Множество s2: ',s2);
|
||||
writeln('Объединение множеств s1 и s2: ',s1+s2);
|
||||
writeln('Пересечение множеств s1 и s2: ',s1*s2);
|
||||
writeln('Разность множеств s1 и s2: ',s1-s2);
|
||||
Include(s1,'Умнов');
|
||||
Exclude(s1,'Иванов');
|
||||
writeln('Множество s1: ',s1);
|
||||
end.
|
||||
|
|
@ -1,16 +0,0 @@
|
|||
// Преобразование целое <-> строка в новом стиле
|
||||
var
|
||||
s: string;
|
||||
i: integer;
|
||||
|
||||
begin
|
||||
// Преобразование целого в строку
|
||||
i := 234;
|
||||
s := i.ToString;
|
||||
writelnFormat('Целое: {0}. После преобразования к строке: ''{1}''',i,s);
|
||||
|
||||
// Преобразование строки в целое
|
||||
s := '567';
|
||||
if integer.TryParse(s,i) then
|
||||
writelnFormat('Строка: ''{0}''. После преобразования к целому: {1}',s,i);
|
||||
end.
|
||||
|
|
@ -1,18 +0,0 @@
|
|||
// Строки. Методы класса string
|
||||
var
|
||||
s: string := ' Pascal__NET ';
|
||||
s1: string := 'NET';
|
||||
|
||||
begin
|
||||
writeln('Исходная строка: ''',s,'''');
|
||||
s := s.Trim;
|
||||
writeln('После вызова s.Trim: ''',s,'''');
|
||||
var p := s.IndexOf(s1); // Индексация - с нуля
|
||||
writelnFormat('Позиция подстроки ''{0}'' в строке ''{1}'' равна {2}',s1,s,p);
|
||||
s := s.Remove(6,2);
|
||||
writeln('После удаления символов __: ',s);
|
||||
s := s.Insert(6,'ABC.');
|
||||
writeln('После вставки подстроки ''ABC.'': ',s);
|
||||
writeln('Первая часть строки: ',s.Substring(0,9));
|
||||
writeln('Последняя часть строки: ',s.Substring(10,3));
|
||||
end.
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
// Ñòðîêè string, string[n], shortstring
|
||||
var
|
||||
s: string; // ïàìÿòü, çàíèìàåìàÿ s, çàâèñèò îò åå äëèíû
|
||||
s10: string[10]; // ïàìÿòü ïîä ss ôèêñèðîâàíà
|
||||
ss: shortstring := s;
|
||||
f: file of string[10];
|
||||
// f: file of string; - îøèáêà
|
||||
|
||||
begin
|
||||
s := '12345678901234567890';
|
||||
s10 := s; // îáðåçàíèå
|
||||
writeln(s10);
|
||||
s += s; s += s;
|
||||
s += s; s += s;
|
||||
writeln(s);
|
||||
writeln('Äëèíà ñòðîêè = ',s.Length);
|
||||
end.
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
// Èëëþñòðàöèÿ ñòðóêòóðíîé ýêâèâàëåíòíîñòè äëÿ íåêîòîðûõ òèïîâ. Â Delphi - èìåííàÿ ýêâèâàëåíòíîñòü
|
||||
var
|
||||
a: array of integer;
|
||||
a1: array of integer;
|
||||
s: set of real;
|
||||
s1: set of real;
|
||||
p: procedure (i: integer);
|
||||
p1: procedure (i: integer);
|
||||
r: ^integer;
|
||||
r1: ^integer;
|
||||
|
||||
procedure proc(aa: array of integer; ss: set of real; pp: procedure (i: integer); rr: ^integer);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
begin
|
||||
a := a1;
|
||||
s := s1;
|
||||
p := p1;
|
||||
r := r1; // Â Delphi íè îäíî èç ýòèõ ïðèñâàèâàíèé íå ñðàáîòàåò
|
||||
proc(a,s,p,r); // Ýòîò âûçîâ - òîæå
|
||||
end.
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
// Áåñòèïîâûå ôàéëû
|
||||
var
|
||||
f: file;
|
||||
i: integer;
|
||||
r: real;
|
||||
s: string;
|
||||
|
||||
begin
|
||||
assign(f,'a.dat');
|
||||
rewrite(f);
|
||||
// Çàïèñûâàåì â ôàéë äàííûå ëþáûõ òèïîâ
|
||||
write(f,1,2.5,'Hello');
|
||||
close(f);
|
||||
reset(f);
|
||||
// Ñ÷èòûâàåì ýòè äàííûå èç ôàéëà
|
||||
read(f,i,r,s);
|
||||
write(i,' ',r,' ',s);
|
||||
close(f);
|
||||
end.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
// Ïåðåìåííîå ÷èñëî ïàðàìåòðîâ
|
||||
function Sum(params arg: array of integer): integer;
|
||||
begin
|
||||
Result := 0;
|
||||
foreach var x in arg do
|
||||
Result += x;
|
||||
end;
|
||||
|
||||
begin
|
||||
writeln(Sum(1,2,3));
|
||||
writeln(Sum(4,5,6,7));
|
||||
end.
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
// Ïåðåãðóçêà èìåí ïîäïðîãðàìì
|
||||
procedure proc(i: integer);
|
||||
begin
|
||||
writeln('integer');
|
||||
end;
|
||||
|
||||
procedure proc(c: char);
|
||||
begin
|
||||
writeln('char');
|
||||
end;
|
||||
|
||||
procedure proc(r: real);
|
||||
begin
|
||||
writeln('real');
|
||||
end;
|
||||
|
||||
begin
|
||||
proc(1);
|
||||
proc(2.5);
|
||||
proc('d');
|
||||
end.
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
// Âñå âîçìîæíûå ñïîñîáû èíèöèàëèçàöèè ïîöåäóðíîé ïåðåìåííîé
|
||||
// Ïðîöåäóðíûé òèï ðåàëèçîâàí ÷åðåç äåëåãàòû .NET, äëÿ íåãî äîñòóïíû îïåðàöèè +=, -=
|
||||
|
||||
procedure pp;
|
||||
begin
|
||||
writeln('Âûçîâ îáû÷íîé ïðîöåäóðû');
|
||||
end;
|
||||
|
||||
type
|
||||
A = class
|
||||
private
|
||||
x: integer;
|
||||
public
|
||||
constructor Create(xx: integer);
|
||||
begin
|
||||
x := xx;
|
||||
end;
|
||||
procedure pp;
|
||||
begin
|
||||
writeln('Âûçîâ ìåòîäà êëàññà, çíà÷åíèå ïîëÿ ðàâíî ',x);
|
||||
end;
|
||||
class procedure ppstatic;
|
||||
begin
|
||||
writeln('Âûçîâ êëàññîâîãî ìåòîäà êëàññà');
|
||||
end;
|
||||
end;
|
||||
|
||||
var p: procedure;
|
||||
|
||||
begin
|
||||
p := pp;
|
||||
var a1: A := new A(5);
|
||||
p += a1.pp;
|
||||
p += A.ppstatic;
|
||||
p;
|
||||
writeln;
|
||||
p -= pp;
|
||||
p;
|
||||
end.
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
// Îáîáùåííûå ôóíêöèè
|
||||
// Âûâåäåíèå òèïà T ïî òèïàì ïàðàìåòðîâ
|
||||
|
||||
procedure Swap<T>(var a,b: T);
|
||||
begin
|
||||
var v := a;
|
||||
a := b;
|
||||
b := v;
|
||||
end;
|
||||
|
||||
begin
|
||||
var a := 2;
|
||||
var b := 3;
|
||||
writelnFormat('Äî Swap a={0}, b={1}',a,b);
|
||||
Swap(a,b);
|
||||
writelnFormat('Ïîñëå Swap a={0}, b={1}',a,b);
|
||||
var c := 2.5;
|
||||
var d := 3.3;
|
||||
writeln;
|
||||
writelnFormat('Äî Swap c={0}, d={1}',c,d);
|
||||
Swap(c,d);
|
||||
writelnFormat('Ïîñëå Swap c={0}, d={1}',c,d);
|
||||
end.
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
// Вызов статического метода add класса Class1, помещенного в пространство имен ClassLibrary1
|
||||
// Класс Class1 помещен в библиотеку ClassLibrary1.dll, откомпилированную на C#
|
||||
|
||||
{$reference ClassLibrary1.dll}
|
||||
uses ClassLibrary1;
|
||||
|
||||
begin
|
||||
writeln(Class1.add(2,3));
|
||||
end.
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -1,16 +0,0 @@
|
|||
// Dll-áèáëèîòåêà
|
||||
library MyDll;
|
||||
|
||||
const n = 10;
|
||||
|
||||
function add(a,b: integer): integer;
|
||||
begin
|
||||
Result := a + b;
|
||||
end;
|
||||
|
||||
procedure PrintPascalABCNET;
|
||||
begin
|
||||
writeln('PascalABC.NET');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
// Это - главная программа
|
||||
// Именами из dll-библиотеки, написанной на PascalABC.NET, можно пользоваться,
|
||||
// не подключая пространства имен
|
||||
{$reference mydll.dll}
|
||||
|
||||
begin
|
||||
PrintPascalABCNET;
|
||||
writeln(n);
|
||||
writeln(add(2,3));
|
||||
end.
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
// Âûçîâ ôóíêöèè èç îáû÷íîé dll
|
||||
function add(a,b: integer): integer; external 'NativeDll.dll' name 'add'; // îáúÿâëåíèå âíåøíåé ôóíêöèè
|
||||
|
||||
begin // îñíîâíàÿ ïðîãðàììà
|
||||
writeln(add(2,3));
|
||||
end.
|
||||
Binary file not shown.
|
|
@ -1,13 +0,0 @@
|
|||
// Îòêîìïèëèðîâàòü â Delphi
|
||||
library NativeDll;
|
||||
|
||||
function add(a,b: integer): integer; stdcall;
|
||||
begin
|
||||
Result := a+b;
|
||||
end;
|
||||
|
||||
exports
|
||||
add;
|
||||
begin
|
||||
end.
|
||||
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
uses MyUnit; // ïîäêëþ÷èëè ìîäóëü
|
||||
|
||||
var a: array of integer := (1,5,3,7,3,6,4,5,1,8,3,5,6);
|
||||
|
||||
begin
|
||||
writeln('Ìàêñèìàëüíûé ýëåìåíò â ìàññèâå = ',Max(a));
|
||||
end.
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
/// Ìîäóëü óïðîùåííîé ñòðóêòóðû
|
||||
unit MyUnit; // èìÿ ìîäóëÿ äîëæíî ñîâïàäàòü ñ èìåíåì ôàéëà
|
||||
|
||||
// Äîêóìåíòèðóþùèå êîììåíòàðèè îòîáðàæàþòñÿ ïðè íàâåäåíèè íà èìÿ êóðñîðà ìûøè
|
||||
/// Âîçâðàùàåò ìàêñèìàëüíûé ýëåìåíò â ìàññèâå
|
||||
function Max(a: array of integer): integer;
|
||||
begin
|
||||
Result := integer.MinValue;
|
||||
foreach x: integer in a do
|
||||
if x>Result then
|
||||
Result := x;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
// Иллюстрация поиска имен вначале справа налево в секции uses, а затем в системном модуле PABCSystem
|
||||
uses System;
|
||||
|
||||
begin
|
||||
// Имя Random, определенное в пространстве имен System, перекрывает имя Random
|
||||
// в модуле PABCSystem, который неявно подключается первым
|
||||
var r: Random := new Random();
|
||||
writeln(r.Next(10));
|
||||
// Именно поэтому перед данным Random необходимо явно указывать имя модуля, в котором он находится
|
||||
var i: integer := PABCSystem.Random(10);
|
||||
writeln(i);
|
||||
end.
|
||||
|
|
@ -1,41 +0,0 @@
|
|||
// Ìîäóëü ABCObjects. Èçìåíåíèå ñâîéñòâ îáúåêòà
|
||||
uses ABCObjects,GraphABC;
|
||||
|
||||
const delay = 300;
|
||||
|
||||
procedure Pause;
|
||||
begin
|
||||
Sleep(delay);
|
||||
end;
|
||||
|
||||
var
|
||||
r: RectangleABC;
|
||||
z: StarABC;
|
||||
|
||||
begin
|
||||
z := new StarABC(Window.Center.X,Window.Center.Y,70,30,6,Color.Green);
|
||||
r := new RectangleABC(100,100,200,100,Color.Gold);
|
||||
Pause;
|
||||
r.Center := Window.Center;
|
||||
Pause;
|
||||
r.Height := 70;
|
||||
Pause;
|
||||
r.Width := 220;
|
||||
Pause;
|
||||
z.Radius := 150;
|
||||
Pause;
|
||||
z.Color := Color.LightCoral;
|
||||
Pause;
|
||||
z.Count := 5;
|
||||
Pause;
|
||||
|
||||
r.Text := 'PascalABC.NET';
|
||||
r.Color := Color.Gainsboro;
|
||||
Pause;
|
||||
r.BorderWidth := 3;
|
||||
r.BorderColor := Color.Blue;
|
||||
Pause;
|
||||
r.Center := Window.Center;
|
||||
Pause;
|
||||
// r.Bordered := False;
|
||||
end.
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
// Čëëţńňđŕöč˙ ďđîńňĺéřčő âîçěîćíîńňĺé GraphABC
|
||||
uses GraphABC;
|
||||
|
||||
begin
|
||||
Coordinate.Origin := Window.Center;
|
||||
Coordinate.SetMathematic;
|
||||
Brush.Color := Color.LightSkyBlue;
|
||||
while True do
|
||||
begin
|
||||
LockDrawing;
|
||||
ClearWindow;
|
||||
Ellipse(-120,-70,120,70);
|
||||
Line(0,0,200,0);
|
||||
Line(0,0,0,200);
|
||||
Redraw;
|
||||
Coordinate.Angle := Coordinate.Angle + 1;
|
||||
Sleep(100);
|
||||
end;
|
||||
end.
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
// Èëëþñòðàöèÿ îáðàáîòêè ñîáûòèé ìûøè
|
||||
uses GraphABC;
|
||||
|
||||
procedure MouseDown(x,y,mb: integer);
|
||||
begin
|
||||
MoveTo(x,y);
|
||||
end;
|
||||
|
||||
procedure MouseMove(x,y,mb: integer);
|
||||
begin
|
||||
if mb=1 then LineTo(x,y);
|
||||
end;
|
||||
|
||||
begin
|
||||
// Ïðèâÿçêà îáðàáîò÷èêîâ ê ñîáûòèÿì
|
||||
OnMouseDown := MouseDown;
|
||||
OnMouseMove := MouseMove
|
||||
end.
|
||||
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
// Âñå òèïû êðîìå óêàçàòåëåé - ïðîèçâîäíûå îò Object
|
||||
var
|
||||
i: integer;
|
||||
r: real;
|
||||
o: object;
|
||||
|
||||
begin
|
||||
o := i;
|
||||
writeln(o.GetType);
|
||||
o := r;
|
||||
writeln(o.GetType);
|
||||
if o.GetType=typeof(real) then
|
||||
writeln('Â ïåðåìåííîé o - âåùåñòâåííûé òèï');
|
||||
end.
|
||||
|
|
@ -1,22 +0,0 @@
|
|||
// Упаковка-распаковка размерных типов
|
||||
var
|
||||
i: integer := 2;
|
||||
r: real := 3.14;
|
||||
o: object;
|
||||
|
||||
begin
|
||||
o := i; // Упаковка: объект размерного типа integer упаковывается в объект ссылочного типа,
|
||||
// котрый и присваивается переменной o
|
||||
// Преобразование типов при упаковке - неявное
|
||||
writeln(integer(o)); // Распаковка: из упакованного объекта извлекается значение
|
||||
// Преобразование типов при распаковке - явное
|
||||
o := r;
|
||||
writeln(real(o));
|
||||
|
||||
try // При неверном преобразовании типов генерируется исключение InvalidCastException
|
||||
writeln(shortint(o));
|
||||
except
|
||||
on e: Exception do
|
||||
writeln(e.GetType);
|
||||
end;
|
||||
end.
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
// Ïðèìåð èñïîëüçîâàíèÿ êëàññîâîãî (ñòàòè÷åñêîãî) êîíñòðóêòîðà
|
||||
type
|
||||
Person = class
|
||||
private
|
||||
class arr: array of Person; // Êëàññîâîå ïîëå. Ñâÿçàíî íå ñ ïåðåìåííîé êëàññà, à ñ êëàññîì.
|
||||
name: string;
|
||||
age: integer;
|
||||
public
|
||||
class constructor; // Êîíñòðóêòîð êëàññà. Âûçûâàåòñÿ äî ñîçäàíèÿ ïåðâîãî îáúåêòà êëàññà è äî âûçîâà ëþáîãî êëàññîâîãî ìåòîäà
|
||||
begin
|
||||
writeln(' Âûçâàí êëàññîâûé êîíñòðóêòîð');
|
||||
SetLength(arr,3);
|
||||
arr[0] := new Person('Èâàíîâ',20);
|
||||
arr[1] := new Person('Ïåòðîâà',19);
|
||||
arr[2] := new Person('Ïîïîâ',35);
|
||||
end;
|
||||
constructor (n: string; a: integer);
|
||||
begin
|
||||
name := n;
|
||||
age := a;
|
||||
end;
|
||||
function ToString: string; override;
|
||||
begin
|
||||
Result := Format('Èìÿ: {0} Âîçðàñò: {1}',name,age);
|
||||
end;
|
||||
class function RandomPerson: Person; // Êëàññîâûé ìåòîä. Ìîæåò îáðàùàòüñÿ òîëüêî ê êëàññîâûì ïîëÿì
|
||||
begin
|
||||
Result := arr[Random(3)];
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
writeln('Ñëó÷àéíûå ïåðñîíû');
|
||||
for var i:=1 to 5 do
|
||||
writeln(Person.RandomPerson); // Âûçîâ êëàññîâîãî ìåòîäà
|
||||
end.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
// Сборка мусора: для освобождения объекта присвойте переменной nil
|
||||
var l := new List<integer>;
|
||||
|
||||
begin
|
||||
l.Add(3);
|
||||
l.Add(5);
|
||||
l.Add(2);
|
||||
foreach var x in l do
|
||||
Print(x);
|
||||
l := nil; // после этого память, занимаемая динамическим массивом, будет собрана сборщиком мусора
|
||||
end.
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
// Èëëþñòðàöèÿ èñïîëüçîâàíèÿ èíòåðôåéñîâ
|
||||
type
|
||||
IShape = interface
|
||||
procedure Draw;
|
||||
property X: integer read;
|
||||
property Y: integer read;
|
||||
end;
|
||||
|
||||
ICloneable = interface
|
||||
function Clone: Object;
|
||||
end;
|
||||
|
||||
Point = class(IShape,ICloneable)
|
||||
private
|
||||
xx,yy: integer;
|
||||
public
|
||||
constructor Create(x,y: integer);
|
||||
begin
|
||||
xx := x; yy := y;
|
||||
end;
|
||||
procedure Draw; begin end;
|
||||
property X: integer read xx;
|
||||
property Y: integer read yy;
|
||||
function Clone: Object;
|
||||
begin
|
||||
Result := new Point(xx,yy);
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
p: Point := new Point(2,3);
|
||||
ish: IShape := p;
|
||||
icl: ICloneable := p;
|
||||
|
||||
begin
|
||||
Println(ish.X,ish.Y);
|
||||
var p1: Point := Point(icl.Clone);
|
||||
p := nil;
|
||||
Println(p1.X,p1.Y);
|
||||
Println(ish is Point);
|
||||
Println(ish is ICloneable); // Cross cast!
|
||||
end.
|
||||
|
|
@ -1,82 +0,0 @@
|
|||
// Ïåðåãðóçêà îïåðàöèé
|
||||
type
|
||||
Frac = record
|
||||
private
|
||||
num,denom: integer;
|
||||
public
|
||||
constructor (n,d: integer);
|
||||
begin
|
||||
num := n;
|
||||
denom := d;
|
||||
end;
|
||||
class function operator+(a,b: Frac): Frac;
|
||||
begin
|
||||
Result := new Frac(a.num*b.denom+b.num*a.denom,a.denom*b.denom);
|
||||
end;
|
||||
class function operator-(a,b: Frac): Frac;
|
||||
begin
|
||||
Result := new Frac(a.num*b.denom-b.num*a.denom,a.denom*b.denom);
|
||||
end;
|
||||
class function operator*(a,b: Frac): Frac;
|
||||
begin
|
||||
Result := new Frac(a.num*b.num,a.denom*b.denom);
|
||||
end;
|
||||
class function operator/(a,b: Frac): Frac;
|
||||
begin
|
||||
Result := new Frac(a.num*b.denom,a.denom*b.num);
|
||||
end;
|
||||
class function operator=(a,b: Frac): boolean;
|
||||
begin
|
||||
Result := (a.num = b.num) and (a.denom = b.denom);
|
||||
end;
|
||||
class function operator<>(a,b: Frac): boolean;
|
||||
begin
|
||||
Result := not (a=b);
|
||||
end;
|
||||
class function operator<(a,b: Frac): boolean;
|
||||
begin
|
||||
Result := a.num/real(a.denom)<b.num/real(b.denom);
|
||||
end;
|
||||
class function operator<=(a,b: Frac): boolean;
|
||||
begin
|
||||
Result := a.num/real(a.denom)<=b.num/real(b.denom);
|
||||
end;
|
||||
class function operator>(a,b: Frac): boolean;
|
||||
begin
|
||||
Result := a.num/real(a.denom)>b.num/real(b.denom);
|
||||
end;
|
||||
class function operator>=(a,b: Frac): boolean;
|
||||
begin
|
||||
Result := a.num/real(a.denom)>=b.num/real(b.denom);
|
||||
end;
|
||||
class procedure operator+=(var a: Frac; b: Frac);
|
||||
begin
|
||||
a := a + b;
|
||||
end;
|
||||
class function operator-(a: Frac): Frac;
|
||||
begin
|
||||
Result := new Frac(-a.num,a.denom);
|
||||
end;
|
||||
class function operator+(a: Frac): Frac;
|
||||
begin
|
||||
Result := a;
|
||||
end;
|
||||
function ToString: string; override;
|
||||
begin
|
||||
Result := Format('{0}/{1}',num,denom);
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
f := new Frac(1,2);
|
||||
f1 := new Frac(3,5);
|
||||
|
||||
begin
|
||||
writelnFormat('{0} + {1} = {2}',f,f1,f+f1);
|
||||
writelnFormat('{0} - {1} = {2}',f,f1,f-f1);
|
||||
writelnFormat('{0} * {1} = {2}',f,f1,f*f1);
|
||||
writelnFormat('{0} / {1} = {2}',f,f1,f/f1);
|
||||
writeln(f1=f);
|
||||
f += f1;
|
||||
writeln(-f);
|
||||
end.
|
||||
|
|
@ -1,30 +0,0 @@
|
|||
// Описание методов внутри интерфейса класса
|
||||
// Удобство: методы можно реализовывать сразу после объявления
|
||||
// Неудобство: для больших классов интерфейс трудно читается
|
||||
type
|
||||
Person = class
|
||||
private
|
||||
// Поля класса, как правило, приватны. Доступ к ним - через методы и свойства
|
||||
name: string;
|
||||
age: integer;
|
||||
public
|
||||
// Конструктор неявно имеет имя Create
|
||||
constructor (n: string; a: integer);
|
||||
begin
|
||||
name := n; age := a;
|
||||
end;
|
||||
procedure Print;
|
||||
begin
|
||||
writeln('Имя: ',name,' Возраст: ',age);
|
||||
end;
|
||||
end;
|
||||
|
||||
var p,p1: Person;
|
||||
|
||||
begin
|
||||
p := new Person('Иванов',20); // Новый синтаксис вызова конструктора (рекомендуется)
|
||||
p.Print;
|
||||
p1 := Person.Create('Попов',19); // Старый синтаксис вызова конструктора (не рекомендуется)
|
||||
p1.Print;
|
||||
// Деструкторы отсутствуют, вместо них - автоматическая сборка мусора
|
||||
end.
|
||||
|
|
@ -1,26 +0,0 @@
|
|||
// Èëëþñòðàöèÿ êîíñòðóêòîðîâ è ìåòîäîâ â çàïèñÿõ
|
||||
// Åñëè ïåðåîïðåäåëåí ìåòîä ToString, òî îí âûçûâàåòñÿ ïðè âûâîäå îáúåêòà ýòîãî òèïà ïðîöåäóðîé writeln
|
||||
type
|
||||
SexType = (Male, Female);
|
||||
Person = record
|
||||
Name: string;
|
||||
Age, Weight: integer;
|
||||
Sex: SexType;
|
||||
constructor (Name: string; Age, Weight: integer; Sex: SexType);
|
||||
begin
|
||||
Self.Name := Name;
|
||||
Self.Age := Age;
|
||||
Self.Sex := Sex;
|
||||
Self.Weight := Weight;
|
||||
end;
|
||||
function ToString: string; override;
|
||||
begin
|
||||
Result := Format('Èìÿ: {0} Ïîë: {1} Âîçðàñò: {2} Âåñ: {3}', Name, Sex, Age, Weight);
|
||||
end;
|
||||
end;
|
||||
|
||||
var p: Person := new Person('Èâàíîâ',20,70,SexType.Male);
|
||||
|
||||
begin
|
||||
writeln(p);
|
||||
end.
|
||||
|
|
@ -1,56 +0,0 @@
|
|||
// Äåìîíñòðàöèÿ ñîçäàíèÿ ïðîñòîãî êëàññà ñòåêà íà áàçå ìàññèâà
|
||||
type
|
||||
Stack<T> = class
|
||||
private
|
||||
a: array of T;
|
||||
last: integer;
|
||||
public
|
||||
constructor Create(sz: integer);
|
||||
begin
|
||||
SetLength(a,sz);
|
||||
last := 0;
|
||||
end;
|
||||
constructor Create;
|
||||
begin
|
||||
Create(100);
|
||||
end;
|
||||
procedure push(i: T);
|
||||
begin
|
||||
a[last] := i;
|
||||
Inc(last);
|
||||
end;
|
||||
function pop: T;
|
||||
begin
|
||||
Dec(last);
|
||||
pop := a[last];
|
||||
end;
|
||||
function top: T;
|
||||
begin
|
||||
top := a[last-1];
|
||||
end;
|
||||
function empty: boolean;
|
||||
begin
|
||||
Result := (last=0);
|
||||
end;
|
||||
function ToString: string; override;
|
||||
begin
|
||||
Result := '';
|
||||
for var i:=0 to last-1 do
|
||||
Result += a[i]+' ';
|
||||
end;
|
||||
end;
|
||||
|
||||
var s: Stack<integer>;
|
||||
|
||||
begin
|
||||
s := new Stack<integer>;
|
||||
s.push(7);
|
||||
s.push(2);
|
||||
s.push(5);
|
||||
s.push(4);
|
||||
writeln(s);
|
||||
while not s.empty do
|
||||
write(s.pop,' ');
|
||||
end.
|
||||
|
||||
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
// Ñåêöèÿ Where - îãðàíè÷åíèå íà òèïû ïàðàìåòðîâ
|
||||
uses System,System.Collections.Generic;
|
||||
|
||||
type
|
||||
MyClass<T,T1> = class
|
||||
where T: System.Array,ICloneable;
|
||||
where T1: constructor;
|
||||
procedure p(obj1: T; var obj2: T1);
|
||||
begin
|
||||
obj1.Clone();
|
||||
obj2 := new T1;
|
||||
end;
|
||||
end;
|
||||
IntArr = array of integer;
|
||||
|
||||
var
|
||||
m: MyClass<IntArr,integer>;
|
||||
//m1: MyClass<integer>; // îøèáêà
|
||||
|
||||
begin
|
||||
end.
|
||||
|
|
@ -1,26 +0,0 @@
|
|||
// Èëëþñòðàöèÿ êîíñòðóêòîðîâ è ìåòîäîâ â çàïèñÿõ
|
||||
// Åñëè ïåðåîïðåäåëåí ìåòîä ToString, òî îí âûçûâàåòñÿ ïðè âûâîäå îáúåêòà ýòîãî òèïà ïðîöåäóðîé writeln
|
||||
type
|
||||
SexType = (Male, Female);
|
||||
Person = record
|
||||
Name: string;
|
||||
Age, Weight: integer;
|
||||
Sex: SexType;
|
||||
constructor (Name: string; Age, Weight: integer; Sex: SexType);
|
||||
begin
|
||||
Self.Name := Name;
|
||||
Self.Age := Age;
|
||||
Self.Sex := Sex;
|
||||
Self.Weight := Weight;
|
||||
end;
|
||||
function ToString: string; override;
|
||||
begin
|
||||
Result := string.Format('Èìÿ: {0} Âîçðàñò: {1} Âåñ: {2} Ïîë: {3}', Name, Age, Weight, Sex);
|
||||
end;
|
||||
end;
|
||||
|
||||
var p: Person := new Person('Èâàíîâ',20,70,SexType.Male);
|
||||
|
||||
begin
|
||||
writeln(p);
|
||||
end.
|
||||
|
|
@ -1,31 +0,0 @@
|
|||
Uses System;
|
||||
|
||||
var d1, d2, d3: DateTime; // Объекты для хранения даты и времени
|
||||
ts: TimeSpan; // Объект для хранения промежутков времени
|
||||
|
||||
begin
|
||||
// Получение текущей даты - вызов статического метода
|
||||
d1 := DateTime.Now;
|
||||
Writeln(d1);
|
||||
|
||||
// Дата и время через один месяц
|
||||
d2 := d1.AddMonths(1);
|
||||
Writeln(d2);
|
||||
|
||||
// Дата и время на 12 часов раньше
|
||||
d2 := d1.AddHours(-12);
|
||||
Writeln(d2);
|
||||
|
||||
// Формирование даты - вызов конструктора объекта (год, месяц,число)
|
||||
d3 := new DateTime(2001, 1, 1);
|
||||
Writeln(d3);
|
||||
|
||||
// Определение времени, прошедшего с начала тысячелетия (разность дат)
|
||||
ts := d1.Subtract(d3);
|
||||
|
||||
// Промежуток времени в днях (результат - вещественное число)
|
||||
Writeln(ts.TotalDays);
|
||||
|
||||
// Промежуток времени в днях, часах, минутах и секундах
|
||||
Writeln(ts.Days, ' ', ts.Hours, ':', ts.Minutes, ':', ts.Seconds);
|
||||
end.
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
// Èëëþñòðàöèÿ èñïîëüçîâàíèÿ êîìïîíåíòà WebBrowser
|
||||
{$apptype windows}
|
||||
{$reference System.Windows.Forms.dll}
|
||||
|
||||
uses
|
||||
System.Windows.Forms,
|
||||
System.Net;
|
||||
|
||||
begin
|
||||
var myForm := new Form;
|
||||
var w := new WebBrowser;
|
||||
w.Url := new System.Uri('http://pascalabc.net');
|
||||
w.Dock := Dockstyle.Fill;
|
||||
myForm.Controls.Add(w);
|
||||
myForm.WindowState := FormWindowState.Maximized;
|
||||
Application.Run(myForm);
|
||||
end.
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
// Èñïîëüçîâàíèå LinkedList - äâóñâÿçíîãî ñïèñêà ñòàíäàðòíîé áèáëèîòåêè - è åãî èòåðàòîðà
|
||||
uses System.Collections,System.Collections.Generic;
|
||||
|
||||
procedure print(l: ICollection);
|
||||
begin
|
||||
foreach x: integer in l do
|
||||
write(x,' ');
|
||||
writeln;
|
||||
end;
|
||||
|
||||
var l: LinkedList<integer> := new LinkedList<integer>;
|
||||
|
||||
begin
|
||||
l.AddLast(3);
|
||||
l.AddLast(5);
|
||||
l.AddLast(7);
|
||||
l.AddFirst(2);
|
||||
print(l);
|
||||
|
||||
var a := new integer[10];
|
||||
l.CopyTo(a,0);
|
||||
print(a);
|
||||
|
||||
var lit: LinkedListNode<integer> := l.Find(5);
|
||||
l.AddBefore(lit,777);
|
||||
print(l);
|
||||
end.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
// Îòðàæåíèå òèïîâ. Âûâîäÿòñÿ âñå ÷ëåíû òèïà DateTime
|
||||
uses System,System.Reflection;
|
||||
|
||||
begin
|
||||
var bf := BindingFlags.Public or BindingFlags.NonPublic or BindingFlags.Instance or BindingFlags.Static;
|
||||
var t: &Type := typeof(DateTime);
|
||||
var mi := t.GetMembers(bf);
|
||||
foreach m: MemberInfo in mi do
|
||||
writeln(m);
|
||||
end.
|
||||
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
// Ñîçäàíèå îêîííîãî ïðèëîæåíèÿ
|
||||
{$apptype windows}
|
||||
{$reference System.Windows.Forms.dll}
|
||||
|
||||
uses
|
||||
System,
|
||||
System.Windows.Forms;
|
||||
|
||||
var
|
||||
myForm: Form;
|
||||
myButton: Button;
|
||||
|
||||
procedure MyButtonClick(sender: Object; e: EventArgs);
|
||||
begin
|
||||
myForm.Close;
|
||||
end;
|
||||
|
||||
begin
|
||||
myForm := new Form;
|
||||
myForm.Text := 'Îêîííîå ïðèëîæåíèå';
|
||||
myButton := new Button;
|
||||
myButton.Text := ' Çàêðûòü îêíî ';
|
||||
myButton.AutoSize := True;
|
||||
myButton.Left := 90;
|
||||
myButton.Top := 110;
|
||||
myForm.Controls.Add(myButton);
|
||||
myButton.Click += MyButtonClick;
|
||||
Application.Run(myForm);
|
||||
end.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
// Использование вспомогательных переменных
|
||||
var r: real;
|
||||
|
||||
begin
|
||||
write('Введите r: ');
|
||||
readln(r);
|
||||
var r2,r4,r8: real; // вспомогательные переменные
|
||||
r2 := r * r;
|
||||
r4 := r2 * r2;
|
||||
r8 := r4 * r4;
|
||||
writeln(r,' в степени 8 = ',r8);
|
||||
end.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
// Перемена местами значений двух переменных с использованием третьей
|
||||
var x,y: real;
|
||||
|
||||
begin
|
||||
write('Введите x,y: ');
|
||||
readln(x,y);
|
||||
var v: real; // вспомогательная переменная
|
||||
v := x;
|
||||
x := y;
|
||||
y := v;
|
||||
writeln('Новые значения x,y: ',x,' ',y);
|
||||
end.
|
||||
|
|
@ -1,18 +0,0 @@
|
|||
// Ïðèñâàèâàíèÿ += -= *= /=
|
||||
var
|
||||
i: integer;
|
||||
r: real;
|
||||
|
||||
begin
|
||||
i := 1;
|
||||
writeln('i := 1; i = ',i);
|
||||
i += 2; // Óâåëè÷åíèå íà 2
|
||||
writeln('i += 2; i = ',i);
|
||||
i *= 3; // Óâåëè÷åíèå â 3 ðàçà
|
||||
writeln('i *= 3; i = ',i);
|
||||
writeln;
|
||||
r := 6;
|
||||
writeln('r := 6; r = ',r);
|
||||
r /= 2;
|
||||
writeln('r /= 2; r = ',r);
|
||||
end.
|
||||
|
|
@ -1,16 +0,0 @@
|
|||
// Ëîãè÷åñêèé òèï. Ëîãè÷åñêèå âûðàæåíèÿ ñ and, or è not
|
||||
var
|
||||
b: boolean;
|
||||
x: integer;
|
||||
begin
|
||||
write('Ââåäèòå x (îò 1 äî 9): ');
|
||||
readln(x);
|
||||
b := x=5;
|
||||
writeln('x=5? ',b);
|
||||
b := (x>=3) and (x<=5);
|
||||
writeln('x=3,4 èëè 5? ',b);
|
||||
b := (x=3) or (x=4) or (x=5);
|
||||
writeln('x=3,4 èëè 5? ',b);
|
||||
b := not Odd(x);
|
||||
writeln('x - ÷åòíîå? ',b);
|
||||
end.
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
// Вывод результатов вычислений
|
||||
begin
|
||||
writeln('Вычисления:');
|
||||
// Вывод пустой строки
|
||||
writeln;
|
||||
writeln('121 + 363 = ',121+363);
|
||||
writeln('121 - 363 = ',121-363);
|
||||
writeln('121 * 363 = ',121*363);
|
||||
writeln('121 / 363 = ',121/363);
|
||||
end.
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
// Âûâîä ðåçóëüòàòîâ âû÷èñëåíèé. Èñïîëüçóþòñÿ èìåíîâàííûå êîíñòàíòû
|
||||
const
|
||||
a = 121;
|
||||
b = 363;
|
||||
|
||||
begin
|
||||
writeln('Âû÷èñëåíèÿ:');
|
||||
writeln;
|
||||
writeln(a,' + ',b,' = ',a+b);
|
||||
writeln(a,' - ',b,' = ',a-b);
|
||||
writeln(a,' * ',b,' = ',a*b);
|
||||
writeln(a,' / ',b,' = ',a/b);
|
||||
end.
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
// Âûâîä ðåçóëüòàòîâ âû÷èñëåíèé. Èñïîëüçóþòñÿ ïåðåìåííûå è ïðîöåäóðà ââîäà
|
||||
var a,b: integer;
|
||||
|
||||
begin
|
||||
writeln('Ââåäèòå a è b:');
|
||||
readln(a,b);
|
||||
writeln;
|
||||
writeln(a,' + ',b,' = ',a+b);
|
||||
writeln(a,' - ',b,' = ',a-b);
|
||||
writeln(a,' * ',b,' = ',a*b);
|
||||
writeln(a,' / ',b,' = ',a/b);
|
||||
end.
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
// Îïåðàöèè div è mod
|
||||
var a: integer;
|
||||
|
||||
begin
|
||||
write('Ââåäèòå a: ');
|
||||
readln(a);
|
||||
writeln('Ïîñëåäíÿÿ öèôðà ÷èñëà: ',a mod 10);
|
||||
writeln('×èñëî áåç ïîñëåäíåé öèôðû: ',a div 10);
|
||||
writeln('Åñëè ÷èñëî a ÷åòíî, òî 0: ',a mod 2);
|
||||
end.
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
// Îïåðàöèè div è mod
|
||||
var a: integer := 247;
|
||||
|
||||
begin
|
||||
write('Öèôðû ÷èñëà â îáðàòíîì ïîðÿäêå: ');
|
||||
// Âûâîäèì ïîñëåäíþþ öèôðó
|
||||
write(a mod 10,' ');
|
||||
// Îòáðàñûâàåì ïîñëåäíþþ öèôðó
|
||||
a := a div 10;
|
||||
write(a mod 10,' ');
|
||||
a := a div 10;
|
||||
write(a mod 10,' ');
|
||||
end.
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
// Äåìîíñòðàöèÿ ðàáîòû ôóíêöèè eof. Çàïóñêàòü ïî Shift-F9
|
||||
var s: char;
|
||||
begin
|
||||
while not eof do
|
||||
begin
|
||||
read(s);
|
||||
writeln('- ',Ord(s),' -');
|
||||
end;
|
||||
end.
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
// Äåìîíñòðàöèÿ ðàáîòû ôóíêöèè eoln
|
||||
begin
|
||||
while not eoln do
|
||||
begin
|
||||
var c: char;
|
||||
read(c);
|
||||
write(c,' ');
|
||||
end;
|
||||
end.
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
// Ïåðâàÿ ïðîãðàììà
|
||||
program HelloWorld;
|
||||
begin
|
||||
writeln('Ïðèâåò, ìèð!');
|
||||
end.
|
||||
|
|
@ -1,13 +0,0 @@
|
|||
// Ãåíåðàöèÿ ñëó÷àéíîãî ÷èñëà
|
||||
var
|
||||
i: integer;
|
||||
r: real;
|
||||
|
||||
begin
|
||||
i := Random(100);
|
||||
writeln('Ñëó÷àéíîå öåëîå â äèàïàçîíå 0..99: ',i);
|
||||
i := Random(2,5);
|
||||
writeln('Ñëó÷àéíîå öåëîå â äèàïàçîíå 2..5: ',i);
|
||||
r := Random;
|
||||
writeln('Ñëó÷àéíîå âåùåñòâåííîå â äèàïàçîíå [0,1): ',r);
|
||||
end.
|
||||
|
|
@ -1,10 +0,0 @@
|
|||
// Áðîñàíèå êóáèêîâ
|
||||
|
||||
var k1,k2: integer;
|
||||
|
||||
begin
|
||||
k1 := Random(1,6);
|
||||
k2 := Random(1,6);
|
||||
writeln('Î÷êè íà êóáèêàõ: ',k1,' ',k2);
|
||||
writeln('Ñóììà î÷êîâ: ',k1+k2);
|
||||
end.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
// Ââîä ñòðîêè
|
||||
var s: string;
|
||||
|
||||
begin
|
||||
write('Ââåäèòå Âàøå èìÿ: ');
|
||||
readln(s);
|
||||
writeln('Çäðàâñòâóéòå, ',s);
|
||||
end.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
// Äåìîíñòðàöèÿ îïåðàöèè shl
|
||||
begin
|
||||
writeln('Ñòåïåíè äâîéêè');
|
||||
writeln(' n 2^n');
|
||||
for var i:=0 to 30 do
|
||||
writeln(i:2,(1 shl i):12);
|
||||
end.
|
||||
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
// Стандартные функции
|
||||
var x: real;
|
||||
|
||||
begin
|
||||
write('Введите x: ');
|
||||
readln(x);
|
||||
writeln('Квадрат ',x,' равен ',sqr(x));
|
||||
writeln(x,' в степени 5 равно ',power(x,5));
|
||||
writeln('Квадратный корень из ',x,' равен ',sqrt(x));
|
||||
writeln('Модуль ',x,' равен ',abs(x));
|
||||
writeln('Натуральный логарифм ',x,' равен ',ln(x));
|
||||
writeln('Синус ',x,' равен ',sin(x));
|
||||
writeln('Косинус ',x,' равен ',cos(x));
|
||||
end.
|
||||
|
|
@ -1,33 +0,0 @@
|
|||
/// Ñòàíäàðòíûå ðàçìåðíûå òèïû äàííûõ è èõ ðàçìåð
|
||||
var
|
||||
i: integer;
|
||||
j: shortint;
|
||||
k: smallint;
|
||||
l: longint; // ñèíîíèì integer
|
||||
i64: int64;
|
||||
b: byte;
|
||||
w: word;
|
||||
lw: longword;
|
||||
car: cardinal; // ñèíîíèì longword
|
||||
ui64: uint64;
|
||||
r: real;
|
||||
d: double; // ñèíîíèì real
|
||||
sn: single;
|
||||
c: char;
|
||||
|
||||
begin
|
||||
writeln('sizeof(integer) = ':20, sizeof(integer));
|
||||
writeln('sizeof(shortint) = ':20,sizeof(shortint));
|
||||
writeln('sizeof(smallint) = ':20,sizeof(smallint));
|
||||
writeln('sizeof(longint) = ':20, sizeof(longint));
|
||||
writeln('sizeof(int64) = ':20, sizeof(int64));
|
||||
writeln('sizeof(byte) = ':20, sizeof(byte));
|
||||
writeln('sizeof(word) = ':20, sizeof(word));
|
||||
writeln('sizeof(longword) = ':20,sizeof(longword));
|
||||
writeln('sizeof(cardinal) = ':20,sizeof(cardinal));
|
||||
writeln('sizeof(uint64) = ':20, sizeof(uint64));
|
||||
writeln('sizeof(real) = ':20, sizeof(real));
|
||||
writeln('sizeof(double) = ':20, sizeof(double));
|
||||
writeln('sizeof(single) = ':20, sizeof(single));
|
||||
writeln('sizeof(char) = ':20, sizeof(char));
|
||||
end.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
// Ñëîæåíèå ñòðîê
|
||||
var s1: string := 'Pascal';
|
||||
var s2: string := 'NET';
|
||||
|
||||
begin
|
||||
writeln(s2+'-'+s1);
|
||||
writeln(s1+'.'+s2);
|
||||
end.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
/// Использование процедуры WritelnFormat
|
||||
begin
|
||||
// Вывод в обратном порядке
|
||||
WritelnFormat('{2},{1},{0}',1,2,3);
|
||||
// Вывод фигурных скобочек
|
||||
WritelnFormat('{{}}{0}','Вывод фигурных скобочек в форматной строке');
|
||||
// Задание количества знаков после запятой для вещественного числа
|
||||
WritelnFormat('{0:f3}',3.1415);
|
||||
// Задание ширины поля вывода
|
||||
WritelnFormat('{0,10:f}',3.1415);
|
||||
end.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
// Исправьте ошибку компиляции.
|
||||
// Обратите внимание, что курсор позиционируется в конце слова, вызвавшего ошибку
|
||||
var i: integer
|
||||
|
||||
begin
|
||||
i := 2;
|
||||
writeln(i);
|
||||
end.
|
||||
|
|
@ -1,5 +0,0 @@
|
|||
// Èñïðàâüòå îøèáêè êîìïèëÿöèè. Îïèøèòå ïåðåìåííóþ r
|
||||
begin
|
||||
r := 2.5;
|
||||
witeln(r);
|
||||
end.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
// Исправьте ошибку компиляции. Не всегда надо "верить" тексту ошибки
|
||||
|
||||
var k: real;
|
||||
|
||||
begin
|
||||
k := 2,5;
|
||||
writeln(r);
|
||||
end.
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
// Èñïðàâüòå îøèáêè êîìïèëÿöèè, èçìåíèâ òèï ïåðåìåííîé x
|
||||
var x: integer;
|
||||
|
||||
begin
|
||||
x := 3/5;
|
||||
end.
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
// Введите не число
|
||||
// Посмотрите, как выглядит ошибка при выполнении программы
|
||||
var i: integer;
|
||||
|
||||
begin
|
||||
read(i);
|
||||
end.
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
// Посмотрите, как выглядит ошибка выполнения при целочисленном делении на 0
|
||||
var i: integer := 0;
|
||||
|
||||
begin
|
||||
write(2 div i);
|
||||
end.
|
||||
|
|
@ -1,6 +0,0 @@
|
|||
// При обычном делении на 0 ошибки не возникает
|
||||
var r: real := 0;
|
||||
|
||||
begin
|
||||
write(1/0);
|
||||
end.
|
||||
|
|
@ -1,4 +0,0 @@
|
|||
// При работе с вещественными числами невозможно получить ошибку выполнения
|
||||
begin
|
||||
writeln(sqrt(-1));
|
||||
end.
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
// Исполнитель Чертежник - отличное средство для начального обучения программированию
|
||||
// школьников младших и средних классов
|
||||
// Для генерации шаблона задания нажмите Ctrl-L и наберите DM и имя задания
|
||||
uses Drawman;
|
||||
|
||||
begin
|
||||
Task('a1');
|
||||
ToPoint(2,3);
|
||||
PenDown;
|
||||
OnVector(1,2);
|
||||
PenUp;
|
||||
ToPoint(0,0);
|
||||
end.
|
||||
|
||||
|
|
@ -1,16 +0,0 @@
|
|||
// Исполнитель Робот - отличное средство для начального обучения программированию
|
||||
// школьников младших и средних классов
|
||||
// Для генерации шаблона задания нажмите Ctrl-L и наберите RB и имя задания
|
||||
uses Robot;
|
||||
|
||||
begin
|
||||
Task('a1');
|
||||
Right; Right; Right; Right;
|
||||
Up;
|
||||
Left; Paint;
|
||||
Left; Paint;
|
||||
Left; Paint;
|
||||
Left; Paint;
|
||||
Left;
|
||||
end.
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Reference in a new issue