sergiejG2
Moderator
Dołączył: 11 Paź 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Katowice
|
 Wysłany: Pon 21:04, 01 Lut 2010 Temat postu: |
|
|
Program z dostępem do funkcji bibliotecznych:
| Kod: |
load_dat
i:=1
j:=1
k:=1
x:=0.0
y:=0.0
A[9]:=0.0
i=1
for i=1,i<=3,i=i+1
j=1
for j=1,j<=16,j=j+1
load_A j
x=0.0
y=0.0
obl_aTa x,j
obl_aTR y,j
k=1
for k=1,k<=9,k=k+1
R[k]=R[k]+(C[j]-y)*A[k]/x
endfor
endfor
dispR i
endfor
chck_res
|
Program bez dostępu do funkcji (podobno na odrabianie)
| Kod: |
load_dat
i:=1
j:=1
k:=1
m:=1
x:=0.0
y:=0.0
A[9]:=0.0
i=1
for i=1,i<=3,i=i+1
m=1
j=1
for j=1,j<=16,j=j+1
k=1
for k=1,k<=9,k=k+1
A[k]=aij[m]
m=m+1
endfor
x=0.0
y=0.0
k=1
for k=1,k<=9,k=k+1
x=x+A[k]*A[k]
y=y+A[k]*R[k]
endfor
k=1
for k=1,k<=9,k=k+1
R[k]=R[k]+(C[j]-y)*A[k]/x
endfor
endfor
dispR i
endfor
chck_res
|
Program pierwszy jest programem na 100% działającym, w czasie pisania programu nie używamy przycisku ENTER (po napisaniu programu wciskamy klawisz funkcyjny przypisany w górnej części ekranu do polecenia Execute)
|
|
