Program Výuková kalkulačka

[MatoHo]

  Som na týchto www nový, a chcel by som predstaviť môj prográmek, ale má na riadku 117 a 118 chybu, a neviem ako to urobiť. Som len začínajúci amatér v Basicu, a vôbec v programovaní. Pomôže mi s týmto problémikom niekto?
Je to kalkulačka, ktorá zadá príklad a Vy musíte z hlavy vypočítať výsledok a napísať ho. Ak je správne vypíše OK, a napíše ďalší príklad. Ak je chybný, napíše - Zle - znovu, a bude čakať na ďalší výsledok. A tak stále dookola. Ale dá sa aj program ukončiť. Ale v delení mám chybu, a nedokážem to vyriešiť. Pomôžete mi prosím? Táto kalkulačka Vás preverí na 100% v násobilke a sčítaní a odčítaní. Prosím s spoluprácu v tomto, Ďakujem. 

Kód: [Vybrat]

1 REM "INTERAKTIVE KALKULATOR TO HOLOVANISIN MARTIN"
2 GCLEAR: CLEAR: SCALE 0,100,0,100
3 MOVE 25,90: LABEL 1,2; "Kalkulacka interaktivna"
4 MOVE 15,85: LABEL 1,1; "Scitanie - S"
5 MOVE 15,80: LABEL 1,1; "Odcitanie - O"
6 MOVE 15,75: LABEL 1,1; "Nasobenie - N"
7 MOVE 15,70: LABEL 1,1; "Delenie - D"
8 MOVE  5,65: LABEL 1,1; "Koniec - K alebo 999"
9 MOVE  5,60: LABEL 1,1; "Zmena operacie - znovu ak problemy - 888"
10 INPUT K$
11 IF K$ = "S" THEN 20
12 IF K$ = "O" THEN 50
13 IF K$ = "N" THEN 80
14 IF K$ = "D" THEN 110
15 IF K$ = "K" THEN CLEAR: GCLEAR: END
18 IF K$ <> "S" THEN RUN
20 REM "SCITANIE"
21 S1 = RND(100): S1 = S1*100: S1 = INT (S1)
22 S2 = RND(100): S2 = S2*100: S2 = INT (S2)
23 MOVE 5,50: LABEL 1,1; S1
24 MOVE 15,50: LABEL 1,1; "+"
25 MOVE 17,50: LABEL 1,1; S2
26 MOVE 27,50: LABEL 1,1; "="
27 INPUT S
28 LET S3 = S1 + S2
29 MOVE 30,50: LABEL 1,1; S
31 IF S = S3 THEN MOVE 41,50: LABEL 1,1; "-OK": PAUSE 25
32 IF S = S3 THEN MOVE 41,50: LABEL 1,1; "-OK"
33 IF S = S3 THEN MOVE 30,50: LABEL 1,1; S
34 IF S = S3 THEN MOVE 5,50: LABEL 1,1; S1
35 IF S = S3 THEN MOVE 15,50: LABEL 1,1; "+"
36 IF S = S3 THEN MOVE 17,50: LABEL 1,1; S2
37 IF S = S3 THEN MOVE 27,50: LABEL 1,1; "="
38 IF S = 888 THEN RUN
41 IF S = 999 THEN GCLEAR: CLEAR: END
42 IF S <> S3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu": PAUSE 40
43 IF S <> S3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu"
44 IF S <> S3 THEN MOVE 30,50: LABEL 1,1; S
45 IF S <> S3 THEN 27
46 IF S = S3 THEN 20
50 REM "ODCITANIE"
51 O1 = RND(100): O1 = O1*100: O1 = INT (O1)
52 O2 = RND(100): O2 = O2*100: O2 = INT (O2)
53 MOVE 5,50: LABEL 1,1; O1
54 MOVE 15,50: LABEL 1,1; "-"
55 MOVE 17,50: LABEL 1,1; O2
56 MOVE 27,50: LABEL 1,1; "="
57 INPUT O
58 LET O3 = O1 - O2
59 MOVE 30,50: LABEL 1,1; O
60 IF O = O3 THEN MOVE 41,50: LABEL 1,1; "-OK": PAUSE 25
61 IF O = O3 THEN MOVE 41,50: LABEL 1,1; "-OK"
63 IF O = O3 THEN MOVE 30,50: LABEL 1,1; O
64 IF O = O3 THEN MOVE 5,50: LABEL 1,1; O1
65 IF O = O3 THEN MOVE 15,50: LABEL 1,1; "-"
66 IF O = O3 THEN MOVE 17,50: LABEL 1,1; O2
67 IF O = O3 THEN MOVE 27,50: LABEL 1,1; "="
68 IF O = 888 THEN RUN
69 IF O = 999 THEN GCLEAR: CLEAR: END
70 IF O <> O3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu": PAUSE 40
71 IF O <> O3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu"
72 IF O <> O3 THEN MOVE 30,50: LABEL 1,1; O
73 IF O <> O3 THEN 57
74 IF O = O3 THEN 50
80 REM "NASOBENIE"
81 N1 = RND(20): N1 = N1*20: N1 = INT (N1)
82 N2 = RND(20): N2 = N2*20: N2 = INT (N2)
83 MOVE 5,50: LABEL 1,1; N1
84 MOVE 15,50: LABEL 1,1; "x"
85 MOVE 17,50: LABEL 1,1; N2
86 MOVE 27,50: LABEL 1,1; "="
87 INPUT N
88 LET N3 = N1 * N2
89 MOVE 30,50: LABEL 1,1; N
90 IF N = N3 THEN MOVE 41,50: LABEL 1,1; "-OK": PAUSE 25
92 IF N = N3 THEN MOVE 41,50: LABEL 1,1; "-OK"
93 IF N = N3 THEN MOVE 30,50: LABEL 1,1; N
94 IF N = N3 THEN MOVE 5,50: LABEL 1,1; N1
95 IF N = N3 THEN MOVE 15,50: LABEL 1,1; "x"
96 IF N = N3 THEN MOVE 17,50: LABEL 1,1; N2
97 IF N = N3 THEN MOVE 27,50: LABEL 1,1; "="
98 IF N = 888 THEN RUN
99 IF N = 999 THEN GCLEAR: CLEAR: END
100 IF N = 999 THEN GCLEAR: CLEAR: END
101 IF N <> N3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu": PAUSE 25
102 IF N <> N3 THEN MOVE 41,50: LABEL 1,1; "Zle - znovu"
103 IF N <> N3 THEN MOVE 30,50: LABEL 1,1; N
104 IF N <> N3 THEN 87
105 IF N = N3 THEN 80
110 REM "DELENIE"
111 D1 = RND(20): D1 = D1*20: D1 = INT (D1)
112 D2 = RND(10): D2 = D2*10: D2 = INT (D2)
113 MOVE 5,50: LABEL 1,1; D1 :MOVE 15,50: LABEL 1,1; ":"
114 MOVE 17,50: LABEL 1,1; D2: MOVE 27,50: LABEL 1,1; "="
115 IF D1 = 0 THEN CLEAR: GOTO 110
116 IF D2 = 0 THEN CLEAR: GOTO 110
117 INPUT D
118 LET D3=D1/D2 :INT LET D3=(D3 * 1000)+ 0,5 :LET D3=D3/100
119 MOVE 30,50: LABEL 1,1; D
120 IF D = D3 THEN MOVE 71,50: LABEL 1,1; "-OK": PAUSE 25
121 IF D = D3 THEN MOVE 71,50: LABEL 1,1; "-OK"
123 IF D = D3 THEN MOVE 30,50: LABEL 1,1; D
124 IF D = D3 THEN MOVE 5,50: LABEL 1,1; D1
125 IF D = D3 THEN MOVE 15,50: LABEL 1,1; ":"
126 IF D = D3 THEN MOVE 17,50: LABEL 1,1; D2
127 IF D = D3 THEN MOVE 27,50: LABEL 1,1; "="
128 IF D = 888 THEN RUN
129 IF D = 999 THEN GCLEAR: CLEAR: END
131 IF D <> D3 THEN MOVE 71,50: LABEL 1,1; "Zle - znovu": PAUSE 25
132 IF D <> D3 THEN MOVE 71,50: LABEL 1,1; "Zle - znovu"
133 IF D <> D3 THEN MOVE 30,50: LABEL 1,1; D
134 IF D <> D3 THEN 115
135 IF D = D3 THEN 110


[Reklama]

[#]

Mozna by bylo fajn zacit "co za dialekt BASICu" to vlastne je? A proc to vubec delas v BASICu?

[Radovan.]

Nemělo by tam být spíš:
LET D3=INT (D3 * 1000 + 0,5)

Já bych to ale udělal jinak. Vygenerovat dva násobky, z nich spočítat součin a ten použít jako dělenec. Tak ti dělení vyjde vždy beze zbytku.

[borekz]

Mozna by bylo fajn zacit "co za dialekt BASICu" to vlastne je?

PMD85.