1
2
3
4
5
6
7
8
9
import java.text.NumberFormat;
import java.lang.Math;
class Morgage {
public static void main (String[] args) {
double pv=200000; //Principal
double i=5.75; //Interest rate
double t=30; //Term in years
double A=0; //Payment
NumberFormat currency = NumberFormat.getCurrencyInstance();
 ...

1
17 28 *

1
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363 E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80).";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
2
3
4
5
6
7
8
9
       _       _       _       _       _       _       _       _
     _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-
   `(___)  `(___)  `(___)  `(___)  `(___)  `(___)  `(___)  `(___)
    // \\   // \\   // \\   // \\   // \\   // \\   // \\   // \\
       _       _       _       _       _       _       _       _
    _-(_)-  _-(_)-  _-(_)-  _-(")-  _-(_)-  _-(_)-  _-(_)-  _-(_)-
  `(___)  `(___)  `(___)  `%%%%%  `(___)  `(___)  `(___)  `(___)
   // \\   // \\   // \\   // \\   // \\   // \\   // \\   // \\
      _       _       _       _       _       _       _       _

1
1 2 * .

1
2
3
4
5
6
7
8
9
 
class Main
{
  public static void main (String[] args) 
  {
 
    int a=-7,b=2;
        System.out.print("a/b=");
        System.out.println(a/b);
 ...

1
2
3
4
5
6
7
8
9
        program TEST 
                integer ans 
                do 
                        read (*,*) ans 
                        if (ans.eq.42) stop 
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
: HELLO  ( -- )  ." Hello, world!" CR ;
  HELLO

1
square dup *

1
square dup *

1
2
: HELLO  ( -- )  CR ." Hello, world!" ; HELLO <cr>
Hello, world!

1
1 2 + .

1
'Hello emit

1
50 20 + .

1
1 2 + .

1
1 2 +.

1
1 2+.

1
1,2+=

1
1 2 + =

1
." Привет Мир"

1
2
: plus1 1 + ;
2 plus1 .

1
: hb bl parse ." Happy birthday, " type 33 emit ; hb synx`

1
2
3
: x " hello, world!" ;
 
x type

1
2
3
: x ' hello, world!' ;
 
x type

1
2
3
4
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
2
3
4
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
 

1
2
3
4
5
6
7
8
9
       _       _       _       _       _       _       _       _
     _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-  _-(_)-
   `(___)  `(___)  `(___)  `(___)  `(___)  `(___)  `(___)  `(___)
    // \\   // \\   // \\   // \\   // \\   // \\   // \\   // \\
       _       _       _       _       _       _       _       _
    _-(_)-  _-(_)-  _-(_)-  _-(")-  _-(_)-  _-(_)-  _-(_)-  _-(_)-
  `(___)  `(___)  `(___)  `%%%%%  `(___)  `(___)  `(___)  `(___)
   // \\   // \\   // \\   // \\   // \\   // \\   // \\   // \\
      _       _       _       _       _       _       _       _

1
2
3
4
5
6
7
8
9
: SIGN  ( n -- )
    DUP 0> IF ." ПОЛОЖИТЕЛЬНОЕ ЧИСЛО" DROP
           ELSE 0=
             IF ." НОЛЬ"
             ELSE ." ОТРИЦАТЕЛЬНОЕ ЧИСЛО"
             ENDIF
           ENDIF ;
 
-3

1
2
2 2 +
dup .