Cоставить программку, которая переводит ( НЕСКОЛЬКО чисел, юзер сам решает, когда
Cоставить программку, которая переводит ( НЕСКОЛЬКО чисел, пользователь сам решает, когда окончить перевод ) числа из десятичной системы счисления в шестнадцатеричную. Пожалуйста с объясненьем и саму программу
Задать свой вопрос1 ответ
Кленяев
Вовка
Var
s:string;
n,a:integer;
begin
writeln('Введите число (Для закрытия проги введите 0)');
readln(n);
while nlt;gt;0 do
begin
s:='';
while n lt;gt;0 do
begin
a:=n mod 16;
case a of 0: s:=a+s;
1:s:=a+s;
2:s:=a+s;
3:s:=a+s;
4:s:=a+s;
5:s:=a+s;
6:s:=a+s;
7:s:=a+s;
8:s:=a+s;
9:s:=a+s;
10:s:='A'+s;
11:s:='B'+s;
12:s:='C'+s;
13:s:='D'+s;
14:s:='E'+s;
15:s:='F'+s;
end;
n:=n div 16;
end;
writeln(s);
writeln('Введите число (Для закрытия проги введите 0)');
readln(n);
end;end.
s:string;
n,a:integer;
begin
writeln('Введите число (Для закрытия проги введите 0)');
readln(n);
while nlt;gt;0 do
begin
s:='';
while n lt;gt;0 do
begin
a:=n mod 16;
case a of 0: s:=a+s;
1:s:=a+s;
2:s:=a+s;
3:s:=a+s;
4:s:=a+s;
5:s:=a+s;
6:s:=a+s;
7:s:=a+s;
8:s:=a+s;
9:s:=a+s;
10:s:='A'+s;
11:s:='B'+s;
12:s:='C'+s;
13:s:='D'+s;
14:s:='E'+s;
15:s:='F'+s;
end;
n:=n div 16;
end;
writeln(s);
writeln('Введите число (Для закрытия проги введите 0)');
readln(n);
end;end.
Никита Щекотихин
спасибо для вас огромное. А можно с объясненьями деяний через //
Василий Суплин
vars:string;n,a:integer;beginwriteln('Введите число (Для закрытия проги введите 0)');readln(n);while n<>0 dobegins:='';while n <>0 dobegina:=n mod 16;case a of 0: s:=a+s;1:s:=a+s;2:s:=a+s;3:s:=a+s;4:s:=a+s;5:s:=a+s;6:s:=a+s;7:s:=a+s;8:s:=a+s;9:s:=a+s;10:s:='A'+s;11:s:='B'+s;12:s:='C'+s;13:s:='D'+s;14:s:='E'+s;15:s:='F'+s;end;n:=n div 16;end;writeln(s);writeln('Введите число (Для закрытия проги введите 0)');readln(n);end;end.
Олежка Раскурашин
упс
Veronika Krikuho
// Пришлось вырезать кусочек программы так ограничение на кол-во символовbegins:='';while n <>0 dobegina:=n mod 16; //Обретаем остаток от деления n на 16case a of 0: s:=a+s; //Избираем цифру в 16-ной системе 1:s:=a+s; // и записываем в начало строчки... // Пришлось вырезать кусочек программки так ограничение на кол-во символов15:s:='F'+s;end;n:=n div 16; // разделяем n на 16 без остаткаend;writeln(s);writeln('Введите число (Для закрытия проги введите 0)');readln(n);end;end.
Даша Завенян
Спасибо громадное!
Ярослава Идигешева
Хотел спросить, что значат переменные ( S и A ) С чем они связаны?
Валентина
s это строчка, т.к. intenger не может выводить числа в 16-ной системе
Galja Kamaljagina
а это остаток от дробленья числа на 16
Алиса Чульская
заключительный вопрос while n<>0 dobegins:='';while n <>0 do
Евгения
что означает
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов