Изучение методики перевода из одной системы исчисления в другую и разработка программы для этой операции — страница 5

  • Просмотров 6163
  • Скачиваний 409
  • Размер файла 13
    Кб

из какой и в какую систему исчисления пользователь хочет перевести число. Структура процедуры линейная. Она состоит из нескольких операторов: Window (1,1,80,24) - отводит окно доступное для вы- вода. ClrScr - очищает экран. TextColor (15) - устанавливает цвет последующего вы- вода (ярко белый). GoToXY (x,y) - переводит курсор в строку с номером y и столбец с номером x. Write ( ) - выводит на экран от позиции курсора вы- ражение указанное в скобках. Далее в

программе следует функция возведения в сте- пень. Она будет использоваться в дальнейшей программе несколько раз для непосредственного перевода из одной системы исчисления в другую, поэтому пришлось оформить ее как функцию, чтобы не использовать каждый раз опера- ции с логарифмом и экспонентой. Возведение в степень в этой функции осуществляется обычным многократным умно- жением в цикле, и думаю, на ней не следует останавли-

ваться. Продолжим рассмотрение программы. После функции воз- ведения в степень идет оператор начала исполнительной - 12 - части основной программы Begin. Переменной Y присваивается значение 1 - начальное положение курсора в меню. Далее идет вызов процедуры Zast, в результате выпол- нения которой на экран выводится список возможных ком- бинаций переводов. После выполнения процедуры Zast следует оператор ор- ганизации цикла с

пост-условием Repeat. Внутри этого цикла осуществляется выполнение всей дальнейшей прог- раммы. Внутри него последовательно идет установка цвета на малиновый, перемещение курсора в позицию 13,2 и вывод символа метки текущего положения курсора в меню (  2> 0 ). Далее идет оператор ожидания ввода клавиши ReadKey. Когда клавиша будет нажата, ее значение будет присвоено переменной Klav. Затем идет стирание метки текущей по- зиции курсора

в меню. После этого идет блок условных операторов If, кото- рые обрабатывают нажатую клавишу и выполняют определен- ные действия в соответствии с нажатой клавишей. Первый оператор If обрабатывает ситуацию, если была нажата клавиша "ВВЕРХ". В результате его выполнения значение переменной Y уменьшается на единицу, а если она была равна 1, то ее значение становится равным 7. Аналогично действует второй условный оператор, только он

обрабатывает клавишу "ВНИЗ". Третий условный оператор принимает значение True если была нажата клавиша ESC (выход). В этом случае пе- - 13 - ременной Y присваивается значение 7, а переменной Klav значение клавиши ВВОД. Оба эти значения переменных сим- волизируют выход из внешнего цикла с пост-условием, а значит и выход из программы. Четвертый условный оператор обрабатывает клавишу ВВОД, но при условии, что Y<7, т.е. курсор в меню не