Καταχωρήθηκε 16 February 2010 - 07:34 AM

Ατακαδόρε...

Καταχωρήθηκε 16 February 2010 - 07:41 AM
sorry about that

Gauss system solver:

Κώδικας:

1 REM D
2 FULLW 2:CLEARW 2
3 DIM A(3,4)
10 FOR I=1 TO 3
20 FOR J=1 TO 4
25 PRINT "☣ ½ρ ";J;" ΅Ώ ½ί¬ ";I;"ί¬ άΏϊϊΐ¬ ½Ό Ό½ΐϊ½¬"
30 INPUT A(I,J)
40 NEXT J
50 NEXT I
60 K=A(2,1)/A(1,1):L=A(3,1)/A(1,1)
70 FOR M1=1 TO 4
80 A(2,M1)=A(2,M1)-K*A(1,M1)
90 NEXT M1
100 FOR M2=1 TO 4
110 A(3,M2)=A(3,M2)-L*A(1,M2)
120 NEXT M2
130 K=A(3,2)/A(2,2)
140 FOR M3=2 TO 4
150 A(3,M3)=A(3,M3)-K*A(2,M3)
160 NEXT M3
170 K=A(2,3)/A(3,3):L=A(1,3)/A(3,3)
180 FOR M4=3 TO 4
190 A(2,M4)=A(2,M4)-K*A(3,M4)
200 NEXT M4
210 FOR M5=2 TO 4
220 A(1,M5)=A(1,M5)-L*A(3,M5)
230 NEXT M5
240 K=A(1,2)/A(2,2):A(1,2)=A(1,2)-K*A(2,2):A(1,4)=A(1,4)-K*A(2,4)
250 X=A(1,4)/A(1,1):Y=A(2,4)/A(2,2):Z=A(3,4)/A(3,3)
260 FULLW 2:CLEARW 2
270 PRINT "X=";X;:PRINT "Y=";Y;:PRINT "Z=";Z
280 INPUT AN$



panhell Very Happy

Κώδικας:

1 REM ΕΙΔιΙΗοοΗ τΕΔθΔικζοΔτ όΗηοΔθΔικΗζ Η βδζοεζ
3 FULLW 2:CLEARW 2
5 GOTOXY 1,1:PRINT "ΔξΔοΗ δμδΖΗΰΔοδξΔτ":INPUT ONOM$
6 GOTOXY 1,3:PRINT "EΕωξτοΔ δμδΖΗΰΔοδξΔτ":INPUT EPON$
7 PRINT "ΕΗΙΗλΗθω βωζΖδ Ζε όΗηοΔθΔικΗ ζTHN 160όΗηοκΗ λθκοΗλΗ"
10 GOTOXY 0,8:PRINT "☽£ Φ’ϊσάΓ ο’ίϊ½αν˜ρ":INPUT MATHS
20 GOTOXY 0,10:PRINT "☽£ Φ’ϊσάΓ φΌανΐ¬":INPUT PHYSICS
30 GOTOXY 0,12:PRINT "☽£ Φ’ϊσάΓ ςίϊ£Γ¬":INPUT CHEM
40 GOTOXY 0,14:PRINT "☽£ Φ’ϊσάΓ δν’£ί¬":INPUT COMP
50 FULLW 2:CLEARW 2
55 REM MATHS BASIC
60 MATH=MATHS/8*1.15
61 PHYSIC=PHYSICS/8*0.95
62 CHEMIS=CHEM/8*0.95
63 COMPOS=COMP/8*0.95
64 SUM=(MATH+PHYSIC+CHEMIC+COMPOS)*80
65 SUM=(MATH+PHYSIC+CHEMIS+COMPOS)*80
66 MATH=MATHS/8*0.95
67 PHYSIC=PHYSICS/8*1.15
68 CHEMIS=CHEM/8*0.95
69 COMPOS=COMP/8*0.95
70 SUM1=(MATH+PHYSIC+CHEMIS+COMPOS)*80
80 REM CHEMIS
81 MATH=MATHS/8*0.95
82 PHYSIC=PHYSICS/8*0.95
83 CHEMIS=CHEM/8*1.15
84 COMPOS=COMP/8*0.95
85 SUM2=(MATH+PHYSIC+CHEMIS+COMPOS)*80
90 GOTOXY 1,8:PRINT "ΔξΔοΗΖδΕωξτοΔ δμδΖΗΰΔοδξΔτ:";ONOM$;" ";EPON$
100 GOTOXY 4,10:PRINT "ΗΊ£αν΅ραί ΦϊσάΓ¬"
110 GOTOXY 4,12:PRINT "ο£ Φαν΅ ϊ²’ίϊ ϊ’ίϊ½αν: ";SUM
120 GOTOXY 4,14:PRINT "ο£ Φαν΅ ϊ²’ίϊ ‘Όανΐ: ";SUM1
130 GOTOXY 4,16:PRINT "ο£ Φαν΅ ϊ²’ίϊ «ίϊ£Γ: ";SUM2
140 GOTOXY 1,18:PRINT "EΕκητοδκΖδ ξΗ ζτξδςκζδΖδ; ξ/Δ":INPUT AN$
150 IF AN$="ξ" THEN GOTO 1
160 FULLW 2:CLEARW 2
170 GOTOXY 10,10:PRINT "δτςΗΙκζΖω"
180 END

Καταχωρήθηκε 16 February 2010 - 07:42 AM

Α!
Τώρα τα κατάλαβα όλα..

Καταχωρήθηκε 16 February 2010 - 08:00 AM

Ναι ρε φίλε έτσι μάλιστα είπα και εγώ!!!όχι ότι καταλαβαίνω τίποτα αλλά λέμε τώρα...ωραίος ο baltar!!!!!Το μετέφερα στο πρώτο ποστ!!

Καταχωρήθηκε 16 February 2010 - 08:02 AM

Κώδικας 15 χρόνων; Τι κάνει άραγε

Καταχωρήθηκε 16 February 2010 - 08:03 AM

Ναι είναι σε κωδικοποίηση 737 (η για την ακρίβεια με μικρές διαφορές. Το textpad θα μπορεί να το διαβάσει όπως και ο Atari με ελληνικά fonts.) Μπορείτε να βρείτε κάποια πράγματα για ελληνικά στον ατάρι στο forum μας:
dbug.kicks-ass.net/dbugforums/cgi-bin/ya...YaBB.pl?board=gam_gr
Το πρώτο πρόγραμμα χρησιμοποιεί τον αλγόριθμο του Gauss για να επιλυσει σύστημα 3χ3 και το χα γράψει στην 3η λυκείου γιατί βαριόμουν να τα λύνω χειροκίνητα ενώ το δεύτερο υπολογίζει τον βαθμό των πανελληνίων
είναι σε ST BASIC και όντως είναι ένα σύντομο ανεκδοτο