1
2
3
4
a=10
b=20
c=a+b
print a

1
print "10"

1
print 10

1
2
3
4
5
6
7
8
9
!****************************************************************************
!  PROGRAM: TEMP1D
!  Autor: Milenin Andriy,  CopyRight, 2006-2008
!  Akademia Górniczo-Hutnicza,  milenin@agh.edu.pl
!****************************************************************************
 
! Dane wejscowe
! Rmin - promin minimalny, m
! Rmax - promin maksymalny, m
 ...

1
2
3
4
5
6
7
8
9
Subroutine Nizmat(a,b,m,n,iUP,iBrojac)
        Dimension A(1000,1000)
        Dimension B(2)
        Dimension iUP(1000,2)
        iBrojac=0
        Do I=1,M
                Do J=1,N-1
                        If ((A(I,J).EQ.B(1)).AND.(A(I,J+1).EQ.B(1))) Then
                                iBrojac=iBrojac+1
 ...

1
2
3
4
5
6
7
8
9
program cheers
implicit none
character(len=1) :: reply
character(len=20) :: name
write(*,*)'please input your name'
read(*,*)name
write(*,*)'happy new year',name
write(*,*)'do you want to play a game?(y/n)'
read(*,*)reply
 ...

1
2
3
4
5
6
7
8
9
program cheers
implicit none
character(len=1) :: reply
character(len=20) :: name
write(*,*)'please input your name'
read(*,*)name
write(*,*)'happy new year',name
write(*,*)'do you want to play a game?(y/n)'
read(*,*)reply
 ...

1
2
3
4
5
6
7
8
9
program cheers
implicit none
character(len=1) :: logic
character(len=20) :: name
write(*,*)'please input your name'
read(*,*)name
write(*,*)'happy new year',name
write(*,*)'do you want to play a game?(y/n)'
read(*,*)logic
 ...

1
print *, "Hello world!"

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
0><|=02|), )-(4|_||°7574|)7 |)32 3|\|61!5()-(3|\| 624|=5()-(4|=7 0><|=02|)5)-(!23 I33)-(32I33267 3!|\|!63 31!73|_||\|!\/325!7°A°73|\|. |_||\||) |)|_| 63)-(°O°257 4|_|()-( z|_| 3!|\|32 31!73 - |)3|\||\| |)|_| |<4|\||\|57 |)!353|\| 73><7 1353|\| |)32 !|\| 13375|°34|< 635()-(2!3I33|\| !57. \/\/45 ? |)|_| )-(457 \/02)-(32 |\|0()-( |\|!3 \/\/45 |)4\/0|\| 63)-(°O°27 ? 72°O°573 |)!()-( 35 63)-(7 \/!313|\| 50. 3|\|7\/\/3|)32 I3!57 |)|_| °U°I332 |)3|\| )-(!|\|7 )-(!32 )-(32 63|<0/\/\/\/\3|\| 0|)32 |)|_| \/\/4257 5()-(0|\| !/\/\/\/\32 3!|\| \/\/!553|\||)32. 3!|\|3213!, _|37z7 63)-(7 35 4I3 !|\| |)!3 |\|47|_|2. |)3|\| (4()-(3 5|_|()-(3|\|. |_||\||) |)3|\| |=!|\||)357 |)|_| )-(!32: |\|02|) \/!32 4()-(7 624|) |\||_|11 4()-(7 |°|_||\||<7 \/!32 5!3I33|\| |=°U°|\||= 057 |\||_|11 3!|\|5 53()-(5 624|) 3!|\|5 |=°U°|\||= |°|_||\||<7 |\||_|11 |\|3|_||\| |=°U°|\||= \/!31 5|°4ß |_||\||) 32|=016. 

1
2
3
4
5
6
7
8
class Hello3 {
 
 
public static void main(String[] arguments) {
 
 
String foo = "what the fuck"
System.out.println(foo);
 ...

1
2
3
4
5
write(*,*) "hello world"
do i=1,100
write(*,*) i
enddo
end

1
2
write(*,*) "hello world"
end

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=2
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=2
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work,i
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
 
integer data(1:100),kosu,work
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer data(1:100),kosu,work
 
kosu=12
 
data(1)=89
data(2)=50
data(3)=8
data(4)=10
data(5)=40
 ...

1
2
3
4
5
6
7
8
9
integer A(1:100),kosu
 
kosu=12
 
A(1)=89
A(2)=50
A(3)=8
A(4)=10
A(5)=40
 ...

1
2
3
4
5
6
7
8
A1=89
A2=50
A3=600
 
MAXV=A1
 
if(A2.gt.MAXV) MAXV=A2
if(A3.gt.MAXV) MAXV=A3
 ...

1
WRITE 1

1
2
3
4
5
program wb
 
write(*,*)'lijunwangbada'
 
end

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
3
4
5
6
7
8
9
integer l,u,h
parameter (l=0,u=50,h=2)
real x,y
 
write(6,200)
200 format(' ',3x,'x',8x,'y')
 
do 10 i=l,u,h
  x=real(i)/10.0
 ...

1
2
3
4
5
6
7
8
9
integer l,u,h
parameter (l=0,u=50,h=2)
real x,y
 
write(6,200)
200 format(' ',3x,'x',8x,'y')
 
do 10 i=l,u,h
  x=real(i)/10.0
 ...

1
2
3
4
5
6
7
8
* 4-ji siki no suhyo
 
integer l,u,h
parameter (l=0,u=50,h=2)
real x,y
 
write(6,200)
200 format(' ',3x,'x',8x,'y')
 ...

1
2
3
4
5
6
7
8
9
integer a,m,n
real roota,c,eps
parameter (m=1,n=50,eps=1.0e-6)
 
do 20 a=m,n
  roota=1
 
10 continue
    c=0.5*(a/roota-roota)
 ...