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
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов