1
2
3
4
5
6
7
8
9
PROGRAM iloczyn macierzy
     REAL A(10,10), B(10,10), C(10,10)
     INTEGER Aw,Ak,Bw,Bk,Cw,Ck,i,j,k
     PRINT *,'Wprowadz wymiary macierzy A (w,k)'
     READ *,Aw,Ak
     PRINT *,'Wprowadz wymiary macierzy B (w,k)'
     READ *,Bw,Bk
     IF (Ak.NE.bw) THEN
     PRINT *,'Nie zgadzaja sie wymiary macierzy'
 ...

1
2
3
4
5
6
7
8
9
PROGRAM iloczyn
     REAL A(10,10), B(10,10), C(10,10)
     INTEGER Aw,Ak,Bw,Bk,Cw,Ck,i,j,k
     PRINT *,'Wprowadz wymiary macierzy A (w,k)'
     READ *,Aw,Ak
     PRINT *,'Wprowadz wymiary macierzy B (w,k)'
     READ *,Bw,Bk
     IF (Ak.NE.bw) THEN
     PRINT *,'Nie zgadzaja sie wymiary macierzy'
 ...

1
2
3
4
5
6
7
8
9
PROGRAM iloczyn macierzy
     REAL A(10,10), B(10,10), C(10,10)
     INTEGER Aw,Ak,Bw,Bk,Cw,Ck,i,j,k
     PRINT *,'Wprowadz wymiary macierzy A (w,k)'
     READ *,Aw,Ak
     PRINT *,'Wprowadz wymiary macierzy B (w,k)'
     READ *,Bw,Bk
     IF (Ak.NE.bw) THEN
     PRINT *,'Nie zgadzaja sie wymiary macierzy'
 ...

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
public class ImageApp {   
  
    public void loadAndDisplayImage(JFrame frame) {   
        // Load the img   
        BufferedImage loadImg = ImageUtil.loadImage("C:\Users\sndl\Pictures\logo.gif");   
        frame.setBounds(0, 0, loadImg.getWidth(), loadImg.getHeight());   
        // Set the panel visible and add it to the frame   
        frame.setVisible(true);   
        // Get the surfaces Graphics object   
 ...

1
2
3
4
5
6
7
8
9
      program main
 
      integer m, n
      m = 1
      n = 2
 
      read(*,*) n
      call danger()
      write(*,*) m, n
 ...

1
2
3
4
5
6
7
8
9
program vipper
  implicit none
  integer, parameter :: nop = 5
  integer, allocatable :: iexam(:, :)
  real :: ave(nop), std(nop)
  integer :: i, j, nos
  read(*, *) nos
  allocate( iexam(nop, nos) )
  read(*, *) iexam
 ...

1
2
3
4
5
6
7
8
9
program vipper
  implicit none
  integer, parameter :: nop = 5
  integer, allocatable :: iexam(:, :)
  real :: ave(nop), std(nop)
  integer :: i, j, nos
  read(*, *) nos
  allocate( iexam(nop, nos) )
  read(*, *) iexam
 ...

1
2
3
4
5
6
7
8
9
program vipper
  implicit none
  integer, parameter :: nop = 5
  integer, allocatable :: iexam(:, :)
  real :: ave(nop), std(nop)
  integer :: i, j, nos
  read(*, *) nos
  allocate( iexam(nop, nos) )
  read(*, *) iexam
 ...

1
2
3
4
5
6
7
8
9
program vipper
  implicit none
  integer, parameter :: nop = 5
  integer, allocatable :: iexam(:, :)
  real :: ave(nop), std(nop)
  integer :: i, j, nos
  read(*, *) nos
  allocate( iexam(nop, nos) )
print *, nos
 ...

1
2
3
4
5
6
7
8
9
program vipper
  implicit none
  integer, parameter :: nop = 5
  integer, allocatable :: iexam(:, :)
  real :: ave(nop), std(nop)
  integer :: i, j, nos
  read(*, *) nos
  allocate( iexam(nop, nos) )
print *, nos
 ...

1
2
3
4
5
6
7
8
9
program vipper
  implicit none
  integer, parameter :: nop = 5
  integer, allocatable :: iexam(:, :)
  real :: ave(nop), std(nop)
  integer :: i, j, nos
  read(*, *) nos
  allocate( iexam(nop, nos) )
  read(*, *) iexam
 ...

1
2
3
4
5
6
program coba
real aa
aa=5
bb=aa**2*4
print*,"rslt",bb
end

1
2
3
PROGRAM Test_ideone
  WRITE(6,*) "Hello World!"
END PROGRAM Test_ideone

1
 

1
2
3
PROGRAM Test_ideone
  WRITE(6,*) "Hello World!"
END PROGRAM Test_ideone

1
2
3
program something
write(*,*) 22
end program

1
2
3
4
5
6
program tes1
real aa, b
b=3
aa=b/4*5*2
print*,"result is",aa
end

1
2
3
4
program tes1
aa=1/4*5*2
print*,"result is",aa
end

1
2
3
program tes1
aa=1/4*5*2
end

1
2
3
4
5
6
7
8
9
Real aver(1:5),s,ep
Integer exam(1:100,1:5),sum(1;5),psum(1:100),I,j,n
 
Read(5,*)n, ((exam(I,j),j=1,5,1),i=1,n,1)
 
Do 20 j=1,5,1
Sum(j)=0
Do 10 i=1,n,1
Sum(j)=sum(j)+exam(I,j)
 ...

1
2
3
4
5
6
7
8
9
Real aver(1:5),s,ep,
Integer exam(1:100,1:5),sum(1;5),psum(1:100),I,j,n
 
Read(5,*)n, ((exam(I,j),j=1,5,1),i=1,n,1)
 
Do 20 j=1,5,1
Sum(j)=0
Do 10 i=1,n,1
Sum(j)=sum(j)+exam(I,j)
 ...

1
2
3
4
5
6
7
8
9
program zoo 
implicit none 
integer :: i, ntotal, iyoungest, ioldest, idist(7) 
integer, allocatable :: ivisitor(:) 
real :: ave 
read(*, *) ntotal 
allocate( ivisitor(ntotal) ) 
read(*, *) ivisitor 
iyoungest = minval(ivisitor) 
 ...

1
2
3
4
5
6
7
8
9
program zoo 
implicit none 
integer :: i, ntotal, iyoungest, ioldest, idist(7) 
integer, allocatable :: ivisitor(:) 
real :: ave 
read(*, *) ntotal 
allocate( ivisitor(ntotal) ) 
read(*, *) ivisitor 
iyoungest = minval(ivisitor) 
 ...

1
2
3
4
5
6
7
8
9
program zoo 
implicit none 
integer :: i, ntotal, iyoungest, ioldest, idist(7) 
integer, allocatable :: ivisitor(:) 
real :: ave 
read(*, *) ntotal 
allocate( ivisitor(ntotal) ) 
read(*, *) ivisitor 
iyoungest = minval(ivisitor) 
 ...

1
2
3
4
5
6
7
8
9
program zoo 
implicit none 
integer :: i, ntotal, iyoungest, ioldest, idist(7) 
integer, allocatable :: ivisitor(:) 
real :: ave 
read(10, *) ntotal 
allocate( ivisitor(ntotal) ) 
read(*, *) ivisitor 
iyoungest = minval(ivisitor) 
 ...

1
2
3
4
5
6
7
8
9
 
   
        
 
        
                                         
                         
                
                program zoo 
 ...

1
2
3
4
5
6
7
 SIMPLE: PROGRAM;
C CODE IN THIS TYPEFACE IS HAL/S SOURCE
 DECLARE PI CONSTANT (3.14159266);
 DECLARE R SCALAR;
 READ(5) R;
 WRITE(6) PI R**2;
 CLOSE SIMPLE

1
2
3
4
5
6
7
8
9
v################################################
v################################################
>###8995*\9-13\##>-p55:2**3$#!+59*:!3$9$$2+2p6v##
v############################################$<##
v##########################?#####################
1################################################
4#####?##########>v##############################
8##########>##v##$ ##############################
*###########>v#########################v-<#######
 ...

1
2
3
4
5
6
7
8
9
Er ist’s 
        
                   
        
        Frühling läßt sein blaues Band       
        
        wieder flattern durch die Lüfte;               
        
        süße, wohlbekannte Düfte     
 ...