1
2
3
4
5
6
7
8
9
PROGRAM Radioactive_Decay
Friedel Pretorius
!----------------------------------------------------------------------------
! This program calculates the amount of a radioactive substance that 
! remains after a specified time, given an initial amount and its 
! half-life.  Variables used are:
!   InitalAmount    : initial amount of substance (mg)
!   HalfLife        : half-life of substance (days)
!   Time            : time at which the amount remaining is calculated (days)
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Radioactive_Decay
!----------------------------------------------------------------------------
! Tyler Martin        Engr 225 Lab 1                January 18, 2012
!   
! This program calculates the amount of a radioactive substance that 
! remains after a specified time, given an initial amount and its 
! half-life.  Variables used are:
!   InitalAmount    : initial amount of substance (mg)
!   HalfLife        : half-life of substance (days)
 ...

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
PROGRAM HELLO
  WRITE (*,*) 'hello, world'
END

1
2
3
4
5
6
7
8
9
      program final
      real v,f,vo,fo,z
      integer a,b,c
      print*,"Vize-Final-Ortalama hesaplama Programı"
      print*,"İdris Kalp, 2012"
 
C     Seçenekler menüsü
 
20    print*,"Ne hesaplamak istiyorsunuz?"
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=2
a(1,2)=4
a(1,3)=2
a(1,4)=8
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=2
a(1,2)=4
a(1,3)=2
a(1,4)=8
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=2
a(1,2)=4
a(1,3)=2
a(1,4)=8
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=2
a(1,2)=4
a(1,3)=2
a(1,4)=8
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=2
a(1,2)=4
a(1,3)=2
a(1,4)=8
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=2
a(1,2)=4
a(1,3)=2
a(1,4)=8
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n)
 
a(1,1)=0
a(1,2)=0
a(1,3)=1
a(2,1)=0
a(2,2)=2
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=1
a(1,2)=1
a(1,3)=1
a(1,4)=1
a(2,1)=1
 ...

1
2
3
4
5
6
7
8
9
integer n
parameter (n=3)
real a(n,n+1)
 
a(1,1)=1
a(1,2)=2
a(1,3)=3
a(1,4)=4
a(2,1)=4
 ...

1
2
3
4
5
6
7
8
9
integer m,n
real x0,x1,s,t,eps
parameter (m=20,eps=1.0e-6)
real a(0:m)
 
n=12
 
a(0)=12
a(1)=11
 ...

1
2
3
4
5
6
7
8
9
integer m,n
real x0,x1,s,t,eps
parameter (m=20,eps=1.0e-6)
real a(0:m)
 
n=12
 
a(0)
a(1)
 ...

1
2
3
4
5
6
7
8
        PROGRAM FIRST
        DO 11, I=1, 10
           WRITE(6,99) I
11      CONTINUE
        STOP
99      FORMAT(1X,I5)
        END
 

1
2
3
4
5
6
7
8
        PROGRAM FIRST
        DO 11, I=1, 10
           WRITE(6,99) I
10      CONTINUE
        STOP
99      FORMAT(1X,I5)
        END
 

1
2
3
4
5
6
7
8
9
DO ,915 <- #1
DO ,2216 <- #2
DO .2216 <- #1
DO .129 <- #0
DO .1215 <- #0
 
(19) PLEASE DON'T FORGET #1
DO REINSTATE FORGETTING
PLEASE DO (18514) NEXT
 ...

1
CALL SYSTEM_CLOCK(1)

1
SYSTEM_CLOCK(1)

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
 

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj a'
a=2
write(*,*) 'Podaj b'
b=5
pole = a*b
write(*,*) 'Pole = ', pole
end

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj a'
read  (*,*) a
write(*,*) 'Podaj b'
read  (*,*) b
pole = a*b
write(*,*) 'Pole = ', pole
end

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj a'
read  (*,*) a
write(*,*) 'Podaj b'
read  (*,*) b
pole = a*b
write(*,*) 'Pole = ', pole
end

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj a'
read  (*,*) a
write(*,*) 'Podaj b'
read  (*,*) b
pole = a*b
write(*,*) 'Pole = ', pole
end

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj a'
read  (*,*) a
write(*,*) 'Podaj b'
read  (*,*) b
pole = a*b
write(*,*) 'Pole = ', pole
end

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj a'
read(*,*) a
write(*,*) 'Podaj b'
read(*,*) b
pole = a*b
write(*,*) 'Pole = ', pole
end

1
2
3
4
5
6
7
8
real a, b, pole
write(*,*) 'Podaj dlugosc boku a'
read(*,*) a
write(*,*) 'Podaj dlugosc boku b'
read(*,*) b
pole = a*b
write(*,*) 'Pole = ', pole
end