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

Keys: Set of '0'..'F';

a: Array [1..255] of Char;

Otv,Pom: string;

Procedure Zast; { процедура вывода меню }

begin

Window(1,1,80,24); { выделить окно 80х24 }

ClrScr; { очистить окно }

TextColor(15); { установить цвет - белый }

FOR I:=1 TO 7 do begin { цикл по строкам }

GoToXY (15,I*2); Write (s[i]); { формирование меню }

end;

end { zast }; { конец процедуры меню }

Function Stepen (Chis,St: Byte): Longint; { функция возведения в степень }

var c: Byte;

Res: longint;

begin

Res:=1;

For c:=1 to st do Res:=Res*chis;

Stepen:=Res; { присвоение функции значения }

End { Stepen }; { конец функции возведения в сепень }

Begin { НАЧАЛО ОСНОВНОЙ ПРОГРАММЫ }

y:=1; { y - текущая строка в меню }

Zast; { вывести меню }

Repeat { цикл для перемещения в меню }

TextColor(13);

GoToXY (13,y*2); Write(Chr(16)); { вывести метку текущей строки меню }

klav:=ReadKey; { считывание клавиши в klav }

GoToXY (13,y*2); Write(' '); { стирание старой метки текущей строки }

if Ord(Klav)=72 then if y > 1 then y:=y-1 else y:= 7; { если клавиша ВВЕРХ }