Калькулятор

[Dionis]

Программу можно сократить раз в десять. Зачем столько практически одинаковых строчек ? Вроде

Code: Select all

if button_pressed("1") then
 A$ = A$ & "1"
 end if

Почему нельзя все эти 1,2,3 итд заменить переменной и прогнать все в том же цикле for. Ну типа

Code: Select all

for(I$=0; I$ <10; I$++)
if button_pressed(I$) then A$ = A$ & I$
NEXT I$

заменяет блок

Code: Select all

if button_pressed("1") then
 A$ = A$ & "1"
 end if
if button_pressed("2") then
 A$ = A$ & "2"
 end if
if button_pressed("3") then
 A$ = A$ & "3"
 end if
if button_pressed("4") then
 A$ = A$ & "4"
 end if
if button_pressed("5") then
 A$ = A$ & "5"
 end if
if button_pressed("6") then
 A$ = A$ & "6"
 end if
if button_pressed("7") then
 A$ = A$ & "7"
 end if
if button_pressed("8") then
 A$ = A$ & "8"
 end if
if button_pressed("9") then
 A$ = A$ & "9"
 end if
if button_pressed("0") then
 A$ = A$ & "0"

Здесь конечно много лишних итераций (нажатие происходит одно, а проверяем - 10), но для калькулятора, думаю, в этом плане быстродействие не нужно.