Program służy do dzielenia wielomianów przez dwumian (x-a). Przy obliczaniu ilorazu korzysta on ze schematu Hornera.
Kod programu napisnago w Visual Basic wygląda następująco:
dim n
N = InputBox("WPISZ STOPIEŃ WIELOMIANU","DANE")
dim A(255)
If n=empty then n=1
If n>0 Then
For i= 1 To n+1
While A(N+2-i)=empty
A(N+2-i) = InputBox("Wpisz współczynniki w kolejne
okna(od współczynnika przy najwyższej potędze do wyrazu wolnego)","DANE","0")
if A(N+2-i) = empty then MsgBox ("Nie dam się oszukać!")
Wend
next
dim B
While B = empty
B=InputBox("Określ dwumian Q(x)=x- ","DANE","1")
if b = empty then MsgBox ("Nie dam się oszukać!")
Wend
dim c(255)
C(N+1) = A(N+1)
For i = 1 To N
C(N+1-i) = C(N+2-i)*B+A(N+1-i)
Next
document.write("DZIELENIE WIELOMIANU PRZEZ DWUMIAN - SCHEMAT HORNERA
")
document.write("DZIELIMY WIELOMIAN W(x)=")
For i = 1 To N
document.Write(A(N+2-i))
document.write("x")
document.write("SUP")
document.write (N+1-i)
document.write("/SUP")
document.write("+")
next
document.write(A(1))
document.write("
")
document.write(" PRZEZ DWUMIAN Q(x)=x-")
document.write(B)
document.write("br")
Document.Write("TABLE Border=1TrTd/Td")
For i = 1 To N
document.write("TD")
document.Write(A(N+2-i))
document.write("/TD")
Next
document.write("TD")
document.write(A(1))
document.write("/Td/Tr")
document.write("TrTd")
document.write(b)
document.write("/Td")
For i = 1 To N+1
Document.write("Td")
document.Write(C(N+2-i))
document.write("/Td")
next
document.write("/Tr/table")
document.write("WIELOMIAN WYNIKOWY P(x)=")
For i = 1 To N-1
document.Write(C(N+2-i))
document.write("x")
document.write("SUP")
document.write(N-i)
document.write("/SUP")
document.write("+")
next
document.write(c(2))
document.write("+")
document.write(c(1))
document.write(":(x-")
document.write(B)
document.write(")")
else
Document.write("Ciekawe jak ja mam to podzielić?")
End
Program ten zawiera skrypty napisane w Visual Basic i Java Script. Do ich przeglądania musisz mieć zainstalowaną przeglądarkę Internet Explorer.Strony należy oglądać przy roździelczości 800x600 i charset=iso-8859-2