18.03.2010, 13:39
общий
это ответ
Здравствуйте, Евгений [eXill@nD] Малясёв .
Вот, держите программу и блок-схему.
Приложение:
{
Составить программу, которая печатает таблицу умножения и сложения
натуральных чисел в шестнадцатеричной системе счисления
}
Program HexTabs;
Type
TTableType = (SUM, MUL);
TTableName = array [TTableType] of string;
Const
cHexDigits : string = '0123456789ABCDEF';
cTableName : TTableName = ('сложения', 'умножения');
Function Byte2Hex (a : Byte) : string;
begin
Byte2Hex := cHexDigits [(a shr 4) + 1] + cHexDigits [(a and 15) + 1];
end;
Procedure ClrScr; assembler;
asm
mov ax, 3
int 10h
end;
Procedure PrintTab (pType : TTableType);
var
i, j : Byte;
begin
ClrScr;
writeln ('Таблица ' + cTableName [pType]);
writeln;
write (' ');
for i := 0 to 15 do write (' ' + Byte2Hex (i));
writeln;
for j := 0 to 15 do
begin
write (Byte2Hex (j) + ' ');
for i := 0 to 15 do
if pType = SUM then
write (' ' + Byte2Hex (i + j))
else
write (' ' + Byte2Hex (i * j));
writeln;
end;
writeln;
write ('Нажмите Enter для продолжения... ');
readln;
end;
Begin
PrintTab (SUM);
PrintTab (MUL);
End.
Прикрепленные файлы:
177266-260197.bmp