UELIMIN]CIO-L UCDJ,I,N,M,K,LD13)"GAUSS ELIMIN]CIO"D "A program t|bbismeretlenes linel}ris egyenletrendszert old meg.":"Az egy~tthat[kat sorban kell beirni,majd az egyenlet jobb oldal}nak `rt`k`tU."D"Annyi eggy~that[d legyen ah}ny ismeretle- nes az egyenlet."(E"P@LDA:":"I. aX+bY=c":"II. dX+eY=f"kE2"H}ny ismeretlenes az egyenletrendszer";N:A(N,N1),B(N),X(N)vE<I1NE>I". egyenlet:"EFJ1N:A(I,J):J:B(I):IEPI1NEZUA(I,I)0,"A MATRIX A(";I","I") =0 !":EdA(I,N1)B(I):IFnMN1FqFs"A MATRIX:")FxI1N:J1M:FA(I,J);" ";DF::OFI1N]FALA(I,I)hFJIM}FA(I,J)A(I,J)ALFJFJ1I1:IN,250FKJ1NFDA(K,I)FLUIM:A(K,L)A(K,L)DA(I,L)FL,KFIF,X(N)A(N,M)F6I1NG@JNI1:JN,390"GJSUMA(J,M)/GTKJ1NGG^SUMSUMA(J,K)X(K)NGhK[GrX(J)SUMdG|400tGX(J)A(J,M){GIG"@S L]M A GY\K\K!"GI1N:"X("I")="X(I):GH