dimension koef(100)

 real koef,I,J

 write (*,*)''

 write (*,*)''

 write (*,*)' PANDU MULYA'

 write (*,*)' 325140086'

 write (*,*)''

 write (*,*)'PROGRAM TURUNAN'

 write (*,*)''

 write (*,*)'Turunan Fungsi X Terhadap X,-d/dx'

 write (*,*)'Bentuk Persamaan Ax^n+Bx^(n-1)+Cx^(n-2)+...'

 write (*,*)''

 write (*,*)'Bentuk Persamaan Kuadrat Ax^n+Bx^(n-1)+Cx^(n-2)+...'

 write (*,*)'Masukkan Nilai N'

 read (*,*) N

 write (*,*)'Masukkan Nilai X'

 read (*,*) X

 FXsum = 0

 do 1 I=1,N,1

 write (*,20)I,N

20 format ('Masukkan Koefisien ke',2x,f2.0,'Untuk N',I3)

 read (*,*) Koef(I)

1 continue



 write (*,*)'Masukkan Konstanta'

 read (*,*) C

 

 call Form(Koef,fx,fy,n,x,FXsumA,FXsumB,C,Hasil)

 pause

 end

 

 subroutine Form(Koef,fx,fy,n,x,FXsumA,FXsumB,C,Hasil)

 dimension Koef(100)

 real Koef,I,J

 do 2 I=1,N,1

 FX = Koef(I)*(X**N)

 FY = Koef(I)*((X+0,0001)**N)

 N=N-1

 FXsumA = FXsumA+FX

 FXsumB = FXsumB+FY

2 continue

 FXsumA = FXsumA+C

 FXsumB = FXsumB+C

 Hasil = (FXsumB-FXsumA)/0,0001

 write (*,30) Hasil

30 format('Hasil Perhitungan Turunan :',F20.10)

 write (*,*) Selesai

 return

 end

C:\Users\w7\Documents\~tugas2baskom.f:29.72:



 pause 

 1

Warning: Deleted feature: PAUSE statement at (1)

C:\Users\w7\Documents\~tugas2baskom.f:22.23:



 read (*,*) Koef(I) 

 1

Warning: Extension: REAL array index at (1)

C:\Users\w7\Documents\~tugas2baskom.f:19.11:



 do 1 I=1,N,1 

 1

Warning: Deleted feature: Loop variable at (1) must be integer

C:\Users\w7\Documents\~tugas2baskom.f:37.25:



 FY = Koef(I)*((X+0,0001)**N) 

 1

Error: Expected a right parenthesis in expression at (1)

C:\Users\w7\Documents\~tugas2baskom.f:44.7:



 Hasil = (FXsumB-FXsumA)/0,0001 

 1

Error: Unclassifiable statement at (1)

C:\Users\w7\Documents\~tugas2baskom.f:36.17:



 FX = Koef(I)*(X**N) 

 1

Warning: Extension: REAL array index at (1)

C:\Users\w7\Documents\~tugas2baskom.f:35.11:



 do 2 I=1,N,1 

 1

Warning: Deleted feature: Loop variable at (1) must be integer