/* krame1.mar */ /* soluzione e discussione sistema con kramer*/ /* valori interi */ nowarnings domains predicates azione opera verifica(integer,integer,integer) elabora(integer) calcola goal azione. clauses azione:-makewindow(1,5,1,"",1,1,20,78),opera. opera:- clearwindow, write("scrivi 1 per calcolo sistema"),nl, write("scrivi 0 per finire"),nl, readint(N),clearwindow, elabora(N). elabora(1):-calcola. elabora(0):-exit. calcola:- write("soluzione sistema con 2 equazioni"),nl, write("a1x + b1y = c1"),nl, write("a2x + b2y = c2"),nl, write("scrivi valori interi ,seguiti da enter"),nl, write("prima equazione:"),nl, write("a1="),readint(A1), write("b1="),readint(B1), write("c1="),readint(C1), write("seconda equazione:"),nl, write("a2="),readint(A2), write("b2="),readint(B2), write("c2="),readint(C2), DS=A1*B2-A2*B1, DX=C1*B2-C2*B1, DY=A1*C2-A2*C1, verifica(DS,DX,DY). verifica(DS,DX,DY):- DS<>0, X=DX/DS, Y=DY/DS, write("soluzione sistema determinato:"),nl, write("x=",X),nl, write("y=",Y),nl, write("premi enter"), readchar(_),opera; DS=0,DX=0, write("indeterminato"),nl, write("premi enter"),readchar(_),opera; DS=0,DX<>0, write("impossibile"),nl, write("premi enter"),readchar(_),opera.
+--------------------------------------------------- ¦+-------------------------------------------------- +¦soluzione sistema con 2 equazioni +¦a1x + b1y = c1 ¦¦a2x + b2y = c2 ¦¦scrivi valori interi ,seguiti da enter ¦¦prima equazione: ¦¦a1=1 ¦¦b1=2 ¦¦c1=3 ¦¦seconda equazione: ¦¦a2=4 ¦¦b2=5 ¦¦c2=6 ¦¦soluzione sistema determinato: ¦¦x=-1 ¦¦y=2 +¦premi enter +¦ +---------------------------------------------- ¦+--------------------------------------------- +¦soluzione sistema con 2 equazioni +¦a1x + b1y = c1 ¦¦a2x + b2y = c2 ¦¦scrivi valori interi ,seguiti da enter ¦¦prima equazione: ¦¦a1=1 ¦¦b1=2 ¦¦c1=3 ¦¦seconda equazione: ¦¦a2=2 ¦¦b2=4 ¦¦c2=6 ¦¦indeterminato ¦¦premi enter ¦¦ +-------------------------------------------------- ¦+------------------------------------------------- +¦soluzione sistema con 2 equazioni +¦a1x + b1y = c1 ¦¦a2x + b2y = c2 ¦¦scrivi valori interi ,seguiti da enter ¦¦prima equazione: ¦¦a1=2 ¦¦b1=4 ¦¦c1=6 ¦¦seconda equazione: ¦¦a2=4 ¦¦b2=8 ¦¦c2=5 ¦¦impossibile ¦¦premi enter ¦¦
ritorna