Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в шестнадцатеричный код. используйте процедуру. входные данные 255 выходные данные ff
ПЕР число: ЦЕЛ; шестн: РЯД 32 ИЗ ЗНАК; сч: ЦЕЛ; зн: ЗНАК;
ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК; УКАЗ ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра) ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН КОН ШестнЦифра;
УКАЗ число := Приём.Число(); шестн := ""; Вывод.Цепь("^");
ПОКА число > 0 ВЫП шестн[ДЛИНА(шестн) + 1] = 0X; шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16); число := число ДЕЛИТЬ 16 КОН;
{у = ах2 – b для х изменяющегося от –7 до +12 с шагом +1.Значения а и b ввести с клавиатуры.Решить эту задачу с использованием всехвидов циклов (FOR, WHILE, REPEAT)}var a,b,x,y:integer;beginwriteln('привет,я alconafft');writeln('введи заначения перeменных а и б');writeln('введи значение а');readln(a);writeln('введи значение b');readln(b);writeln('хорошо,теперь протабулируем ф-цию на заданном отрезке,поехали))');for x:=-7 to 12 do//парметрический циклbeginy:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);end;writeln('цикл с постусловием');x:=-7;repeatinc(x);y:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);until(x=12);x:=-7;writeln('цикл с предусловием');while x<12 dobegininc(x);y:=a*x*2-b;writeln('значение у= ',y,' при х= ',x);end;end.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
число: ЦЕЛ;
шестн: РЯД 32 ИЗ ЗНАК;
сч: ЦЕЛ;
зн: ЗНАК;
ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК;
УКАЗ
ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра)
ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН
КОН ШестнЦифра;
УКАЗ
число := Приём.Число();
шестн := "";
Вывод.Цепь("^");
ПОКА число > 0 ВЫП
шестн[ДЛИНА(шестн) + 1] = 0X;
шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16);
число := число ДЕЛИТЬ 16
КОН;
ОТ сч := 0 ДО ДЛИНА(шестн) - 1 ВЫП
зн := шестн[сч];
шестн[сч] := шестн[ДЛИНА(шестн) - 1 - сч];
шестн[ДЛИНА(шестн) - 1 - сч] := зн
КОН;
Вывод.Цепь(шестн)
КОН Задание.