Как сделать так, чтобы π и 16 оказались на одной прямой?

Итак, я делаю программу на своем TI-84 Plus, которая находит площадь круга. Я хочу, чтобы он отображал приблизительный ответ и точный ответ, но я не могу заставить последний работать. Код такой (я понимаю, что он не очень эффективен):

Prompt R
ClrHome
(πR²)→A
(R²)→B
round(B,2)→B
Disp "A="
Disp ""
Disp "APPROXIMATION:"
Disp A
Disp "EXACT:"
Disp "π",B
Disp "PRESS ENTER"
Pause

Однако это отображается так (когда радиус равен 4):

A=

APPROXIMATION:
               50.27
EXACT:
π
               16
PRESS ENTER

Я хотел бы знать, как сделать так, чтобы π и 16 (в данном случае) находились в одной строке, с π до 16, и чтобы это работало для всех цифр. Я пытался использовать команду Output(, но если B превышает 2 цифры, она переходит на следующую строку. Спасибо!


ti-basic
person John Spencer    schedule 01.04.2016    source источник
comment
Вместо этого используйте Output().   -  person alvits    schedule 02.04.2016

Ответы (2)


arrow_upward
2
arrow_downward

Возможно, используйте Output(X,Y,"π") и Output(X,Y-3,B). Вот как я бы это сделал:

    :Prompt R
    :ClrHome
    :(πR²)→A
    :(R²)→B
    :log(B)→C
    :round(B,2)→B
    :Output(1,1,"A")
    :Output(3,1,"APPROXIMATION:")
    :Output(3,16,A)
    :Output(5,1,"EXACT:")
    :Output(5,8,B)
    :Output(5,11+C,"π")
    :Output(7,1,"PRESS ENTER")
    :Pause

По сути, после выполнения вычислений в тексте этой программы программа будет использовать log(B)→C, чтобы найти, на сколько пробелов нужно сдвинуть π вправо. После этого он выводит A в первой строке текста, приближение в третьей строке сетки главного экрана (для вывода) и точное приближение в терминах π в пятой строке сетки главного экрана ( для вывода).

Надеюсь это поможет!

person David Wang    schedule 02.04.2016
comment
Я пробовал это, но это продолжало выдавать мне ошибку домена. Мне еще предстоит попытаться найти решение, но я думаю, что виновником является :Output(5,11+C. Я немного осмотрелся и увидел, что если вы наберете (1+int(log(abs(B)->C, то он будет точно подсчитывать цифры в числе, благодаря чему я смогу правильно его отобразить. Мне все еще нужно проверить это, хотя, но это должно работать. - person John Spencer; 02.04.2016
comment
О, я забыл округлить C. Я бы добавил перед набором команд вывода: round(C,0)->C - person David Wang; 03.04.2016
comment
Тем не менее, во время моего тестирования я обнаружил, что если у радиуса есть десятичная дробь, десятичная дробь не учитывается в log(B)->C; так что в итоге я изменил EXACT: на R^2=, а затем использовал команду disp для отображения B. В противном случае π было бы на месте десятичной точки, так что в итоге все выглядело так (если радиус равен 9,6). , например): 92π, затем на следующей строке 16. Отсюда и изменение формата. - person John Spencer; 05.04.2016

arrow_upward
1
arrow_downward

Лично я предпочитаю использовать Output( для отображения текста, но есть еще два способа сделать это.

  1. Вы можете использовать Text( (в меню Draw) для записи текста на экран графика. Для этого вам нужно убедиться, что все графики выключены, оси отключены и сетка отключена (насколько я знаю, сетка применима только для TI84 +C Silver Edition).
  2. Вы можете использовать Disp для отображения строки, содержащей нужные вам значения. Для этого вам нужно преобразовать значение B в строку. Есть несколько способов сделать это, один из них опубликован здесь.
person fuzzything44    schedule 12.04.2016