POLINOM- PROGRAM FOTRAN

      dimension k(20)
      write(*,'(24(/))')
      call input(k)
      call output(k)
      end

    Maksud dari blok program diatas adalah untuk melakukan pendeklarasian dimana dimensi variabel k sama dengan 20. Lalu digunakan juka untuk melakukan panggilan unit program input dan output pada variabel k. 

      subroutine input(koef)
      dimension koef(20)
      common i
      write(*,'(A,\)') 'Orde : '
      read(*,'(I2)') i
      write(*,*)
      do 10 l=i+1,1,-1
        write(*,'(A,I2,A,\)') 'Koefisien x^',l-1,'='
        read(*,'(I3)') koef(l)
  10  continue
      end

    Maksud dari blok program diatas adalah untuk melakukan pendeklarasian unit program input dari variabel koef. Dimana dimensi variabel koef sebesar 20. Dimana kita harus memasukan banyaknya data orde dimana data yang disimpan tadi merupakan variabel i. Lalu menjalankan program pada urutan 10 dimana l sama dengan variabel i ditambah dengan 1,1,-1. Selanjutnya kita memasukan inputan koefisien x^ dari orde n, n-1, n-2,.... lalu data yanng kita input tadi merupakan variabel koef ke 1.

      subroutine output(koef)
      dimension koef(20)
      integer hasil
      common i
      write(*,*)
      write(*,'(A,\)') 'Nilai x = '
      read(*,'(I3)') mx
      hasil = 0
        do 30 l=i+1,1,-1
      hasil=hasil+(koef(l)*mx**(l-1))
  30  continue
        write(*,'(/)')
        write(*,'(A,I3,A,\)') 'F (',mx,') = '
    do 40 l=i+1,1,-1
          write(*,'(\,I3,\)') koef(l)
      if ((l-1) .NE. 0) then
            write(*,'(\,A,I2)') 'x^',l-1
      end if
      if (l .GT. 1) then
            write(*,'(\,A)') ' +'
      end if
   40    continue
        write(*,'(\,A,I6,/)') '= ', hasil

Maksud dari blok program diatas adalah untuk melakukan pendeklarasian unit program output dari variabel koef. Dimana dimensi variabel koef sebesar 20. Dan variabel hasil yang bertypedatakan integer. Lalu komputer akan mencetak Nilai dimana data yang dicetak tadi merupakan variabel dari mx. Lalu variabel hasil diberi nilai awal 0. Kemudian menjalankan program pada urutan 30 dimana l sama dengan variabel i ditambah dengan 1,1,-1. Lalu komputer akan melakukan perhitungan dimana var hasil ditambah variabel koef dari data ke 1 dikali variabel mx dikali (l-1). Kemudian komputer mencetak F dari variabel ke mx sama dengan menjalankan program pada urutan 40 dimana l sama dengan variabel i ditambah dengan 1,1,-1. Kemudian komputer mencetak variabel koef ke 1 jika ((l-1) .NE. 0) maka komputer akan mencetak x^ pangkat dari 1-1. Dan jika (l .GT. 1) maka komputer akan mencetak simbol +.