Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 177266
15.03.2010, 02:31
0.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте уважаемые эксперты! Тут у меня 2 задачки как раз для Вас!;)

1. Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричной системе исчисления.

2. Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной.

Вот такие вот задачи:) в них нужно составить БЛОК СХЕМУ, вот в принципе и все. жду Ваших ответов.

Обсуждение

давно
Евгений [eXill@nD] Малясёв
Профессионал
2405
441
15.03.2010, 19:20
общий
а по первой задаче ответ будет?:)
Неизвестный
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.
Прикрепленные файлы:
5
Форма ответа