ПЕР число: ЦЕЛ; шестн: РЯД 32 ИЗ ЗНАК; сч: ЦЕЛ; зн: ЗНАК;
ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК; УКАЗ ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра) ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН КОН ШестнЦифра;
УКАЗ число := Приём.Число(); шестн := ""; Вывод.Цепь("^");
ПОКА число > 0 ВЫП шестн[ДЛИНА(шестн) + 1] = 0X; шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16); число := число ДЕЛИТЬ 16 КОН;
WWW - это аббревиатура, которая расшифровывается как World Wide Web и в переводе на русский язык означает "Всемирная Паутина". WWW, или Web - это служба Интернет, которая содержит миллионы страниц информации. Гиперссылка — это часть электронного документа, который ссылается на другой элемент, например, на веб-страницу. Гипертекст представляет собой обычный текст с картинками, в котором выделены (чаще всего цветом или начертанием) отдельные знаки, слова, фразы или картинки, называемые полями. С каждым полем в гипертексте связано определенное действие, например переход в другое место того же гипертекста, переход в другой гипертекст, проигрывание фрагмента звукозаписи или видеозаписи. Если при просмотре гипертекста выбрать курсором одно из выделенных полей, то выполнится действие, связанное с выбранным полем, скажем, переход в другой гипертекст. Замечательно то, что другие гипертексты могут находиться на разных компьютерах Интернета в тысячах километров друг от друга и от того компьютера, на котором идет просмотр гипертекста. Нужно лишь, чтобы все гипертексты были записаны по одним и тем же правилам.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
число: ЦЕЛ;
шестн: РЯД 32 ИЗ ЗНАК;
сч: ЦЕЛ;
зн: ЗНАК;
ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК;
УКАЗ
ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра)
ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН
КОН ШестнЦифра;
УКАЗ
число := Приём.Число();
шестн := "";
Вывод.Цепь("^");
ПОКА число > 0 ВЫП
шестн[ДЛИНА(шестн) + 1] = 0X;
шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16);
число := число ДЕЛИТЬ 16
КОН;
ОТ сч := 0 ДО ДЛИНА(шестн) - 1 ВЫП
зн := шестн[сч];
шестн[сч] := шестн[ДЛИНА(шестн) - 1 - сч];
шестн[ДЛИНА(шестн) - 1 - сч] := зн
КОН;
Вывод.Цепь(шестн)
КОН Задание.