Ideone.com | Online Fortran Compiler & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 43001 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

25 days 18 hours ago view (lines: 9, size: 253, inputs: 1) Fortran Success

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

25 days 20 hours ago view (lines: 1, size: 0, inputs: 1) Fortran Compilation error

25 days 21 hours ago view (lines: 8, size: 107, inputs: 1) Fortran Success

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

25 days 21 hours ago view (lines: 8, size: 127, inputs: 2) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 127, inputs: 2) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 127, inputs: 1) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 127, inputs: 1) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 123, inputs: 1) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 149, inputs: 1) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 156, inputs: 1) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 156, inputs: 1) Fortran Runtime error

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

25 days 21 hours ago view (lines: 8, size: 156, inputs: 1) Fortran Compilation error

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

25 days 21 hours ago view (lines: 2, size: 24, inputs: 1) Fortran Success

1
2
write(*,*) 'podaj n'
end

25 days 21 hours ago view (lines: 1, size: 20, inputs: 1) Fortran Compilation error

1
write(*,*) 'podaj n'

27 days 13 hours ago view (lines: 5, size: 96, inputs: 1) Fortran Runtime error

1
2
3
4
5
        program TEST 
        real ans, rr 
        read (*,*) ans 
        rr=ans+9
        end

27 days 14 hours ago view (lines: 9, size: 253, inputs: 1) Fortran Success

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

27 days 14 hours ago view (lines: 5, size: 118, inputs: 1) Fortran Runtime error

1
2
3
4
5
        program TEST 
                integer ans 
                read (*,*) ans
                rr=ans+7
        end

27 days 16 hours ago view (lines: 14, size: 234, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
 PROGRAM test
        integer i,j,k,tot
        integer , DIMENSION(5)      :: a
        do i=1,5
           a(i)=i
        end do
        j=1
        k=5
        tot = 0.
 ...

27 days 16 hours ago view (lines: 11, size: 205, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
 PROGRAM test
        integer i,j,k,tot
        integer , DIMENSION(5)      :: a
        j=1
        k=5
        tot = 0.
          DO i = j, k
             tot = tot + a(i)
          END DO
 ...

27 days 16 hours ago view (lines: 10, size: 173, inputs: 1) Fortran Compilation error

1
2
3
4
5
6
7
8
9
 PROGRAM test
        integer i,j,k,tot
        j=10
        k=20
        tot = 0.
          DO i = j, k
             tot = tot + a(i)
          END DO
          write(*,*) tot

27 days 17 hours ago view (lines: 8, size: 195, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
 PROGRAM test
        integer i,j,k
        j=10
        k=20
      inner:    DO i = j, k, l      ! from j to k in steps of l (l is optional)
                write(*,*) i
             END DO inner
   END PROGRAM test

27 days 17 hours ago view (lines: 3, size: 63, inputs: 1) Fortran Success

1
2
3
 PROGRAM test
      PRINT *, 'Hello world!'
   END PROGRAM test

27 days 17 hours ago view (lines: 10, size: 175, inputs: 2) Fortran Runtime error

1
2
3
4
5
6
7
8
9
program circle
      integer r, area
 
      write (*,*) 'Give radius r:'
      read  (*,*) r
      area = 3.14159*r*r
      write (*,*) 'Area = ', area
 
      stop

27 days 17 hours ago view (lines: 10, size: 175, inputs: 2) Fortran Runtime error

1
2
3
4
5
6
7
8
9
program circle
      integer r, area
 
      write (*,*) 'Give radius r:'
      read  (*,*) r
      area = 3.14159*r*r
      write (*,*) 'Area = ', area
 
      stop

27 days 17 hours ago view (lines: 10, size: 172, inputs: 3) Fortran Runtime error

1
2
3
4
5
6
7
8
9
program circle
      real r, area
 
      write (*,*) 'Give radius r:'
      read  (*,*) r
      area = 3.14159*r*r
      write (*,*) 'Area = ', area
 
      stop

27 days 17 hours ago view (lines: 10, size: 172, inputs: 3) Fortran Runtime error

1
2
3
4
5
6
7
8
9
program circle
      real r, area
 
      write (*,*) 'Give radius r:'
      read  (*,*) r
      area = 3.14159*r*r
      write (*,*) 'Area = ', area
 
      stop

27 days 17 hours ago view (lines: 10, size: 172, inputs: 3) Fortran Runtime error

1
2
3
4
5
6
7
8
9
program circle
      real r, area
 
      write (*,*) 'Give radius r:'
      read  (*,*) r
      area = 3.14159*r*r
      write (*,*) 'Area = ', area
 
      stop

27 days 17 hours ago view (lines: 10, size: 213, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
        program TEST 
                integer i, n, sum,ans
 
                sum = 0
                do 10 i = 1, n
                sum = sum + i
                write(*,*) 'i =', i
                write(*,*) 'sum =', sum
                10  continue

27 days 17 hours ago view (lines: 11, size: 232, inputs: 1) Fortran Success

1
2
3
4
5
6
7
8
9
        program TEST 
                integer i, n, sum,ans
                write(*,*) 'Hey'
 
                sum = 0
                do 10 i = 1, n
                sum = sum + i
                write(*,*) 'i =', i
                write(*,*) 'sum =', sum
 ...

27 days 17 hours ago view (lines: 9, size: 253, inputs: 4) Fortran Success

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

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8 9	PROGRAM test integer i,j,k,tot integer , DIMENSION(5) :: a do i=1,5 a(i)=i end do j=1 k=5 tot = 0.
...

1 2 3 4 5 6 7 8 9	program TEST integer i, n, sum,ans write(,) 'Hey' sum = 0 do 10 i = 1, n sum = sum + i write(,) 'i =', i write(,) 'sum =', sum
...

UsernamePassword

Username
Password