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$

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 \"ο£ Φ�αν΅
ϊ²�ϊ�ϊ�ίϊ�αν�#58; \";SUM
120 GOTOXY 4,14:PRINT \"ο£ Φ�αν΅
ϊ²�ϊ�‘Όανΐ: \";SUM1
130 GOTOXY 4,16:PRINT \"ο£ Φ�αν΅ ϊ²�ϊ�«ίϊ£Γ�#58;
\";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