Алгохитрости Системы счисления

И+ПРГ

Pascal

Выбор цифр систем счисления старше 10-тичной
в операторе множественного выбора case

Алгохитрости - Системы счисления

И+ПРГ

Pascal

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью строки, хранящей эти цифры

Алгохитрости - Системы счисления

И+ПРГ

Pascal

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью приращения кода ASCII

Алгохитрости - Системы счисления

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью приращения кода ASCII

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью приращения кода ASCII

С/С++

// перевод из десятичной системы счисления в любую другую позиционную систему
#include
#include
#define Size 15
void main()
{ int na, a10, i=0, j, k=0, ost, osn;
int mas[Size];
char num[Size]={'\x0'};
printf("\nВведите десятичное число: ");
scanf("%i", &na);
a10=na;
printf("\nВведите основание системы счисления: ");
scanf("%i", &osn);
while (a10!=0)
{
mas[i]=a10%osn;
i++;
a10=(int)a10/osn;
}
for (j=i-1; j>=0; j--, k++)
if (mas[j] < 10)
num[k]=(char)(mas[j]+48);
else
num[k]=(char)(mas[j]+55);
printf("\nДесятичное число %d равно %d-ичному числу %s\n", na, osn, num);
}

И+ПРГ

И+ПРГ

Pascal

Выбор цифр систем счисления старше 10-тичной
в операторе множественного выбора case

Перевод из систем с основанием от 2-ой до 16-ой в десятичную

Алгохитрости - Системы счисления

#include // перевод числа из системы счисления от 2-х до 16-и в десятичную
#include
main()
{ int osn, rez, st, i;
/* osn - основание системы счисления переводимого числа,
rez - результат перевода: число в десятичной системе счисления,
st - основание системы счисления в степени текущей позиции цифры в числе */
char str[20]; // строка содержащая исходное число в системе счисления от 2-ч до 16-и
printf("Перевод числа в 10-ичную систему счисления. \n");
printf("Введите число "); gets(str);
printf("\nВведите основание системы счисления: "); scanf("%i", &osn);
st=1; rez=0; i=strlen(str)-1;
while (i>=0)
{ if ((int(str[i])-48)<10)
rez=int(str[i]-48)*st+rez;
else switch (str[i]) {
case 'A': case 'a': {rez=10*st+rez; break;}
case 'B': case b': {rez=11*st+rez; break;}
case 'C': case 'c': {rez=12*st+rez; break;}
case 'D': case 'd': {rez=13*st+rez; break;}
case 'E': case 'e': {rez=14*st+rez; break;}
case 'F': case 'f': {rez=15*st+rez; break;}
}
st=st*osn; i--;
}
printf("%i", rez); return 0;
}

И+ПРГ

С/С++

Выбор цифр систем счисления от 2-ой до 16-ричной
в операторе множественного выбора switch

Алгохитрости - Системы счисления

И+ПРГ

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью строки, хранящей эти цифры

Алгохитрости - Системы счисления

program X_to_10_srting;
(* перевод из системы счисления от 2-ой до 16-ой в десятичную (цифры из строки) *)
uses crt;
var
i,n,st,osn, a10: integer;
aP: string[20];
c: string [16];
begin
clrscr;
c:='0123456789ABCDEF';
write ('Введите основание системы счисления ');
readln(osn);
write ('Введите число в системе счисления от 2-ой до 16-ой: ');
readln(aP);
writeln ('Переводим число ', aP, ' в десятичную систему');
a10:=0;
st:=1;
for i:=length(aP) downto 1 do
begin
n:=pos(upcase(aP[i]),c)-1;
a10:=a10+n*st;
st:=st*osn;
end;
writeln('Число ', aP, ' в ', osn,'-ой системе счисления равно ', a10,' в десятичной системе');
repeat until keypressed;
end.

Pascal

И+ПРГ

С/С++

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью строки, хранящей эти цифры

Алгохитрости - Системы счисления

#include // перевод из любой системы счисления в десятичную (цифры из строки)
#include
main()
{
int osn, rez=0, st=1, i, k=0;
char cifr[]="0123456789ABCDEF";
int mas[Size];
char str[20]; // строка содержащая исходное число в системе счисления от 2-ч до 16-и
printf("Перевод числа в 10-ичную систему счисления. \n");
printf("Введите число для перевода - "); gets(str);
printf("\nВведите основание системы счисления: "); scanf("%i", &osn);
for (i=strlen(str)-1; i>=0; i--)
{
for (k=0; k {
if (toupper(str[i])==cifr[k])
{ rez=rez+k*st; break; }
}
st=st*osn;
}
printf("%i", rez);
return 0;
}

И+ПРГ

Выбор цифр систем счисления от 2-ой до 16-ричной
с помощью приращения кода ASCII

Алгохитрости - Системы счисления

program X_to_10_symbol;
(* перевод из системы счисления от 2-ой до 16-ой в десятичную (цифры из ASCII) *)
var
i,n,st,osn, a10: integer; aP: string[20]; fl : boolean;
Begin
write ('Введите основание системы счисления '); readln(osn);
write ('Введите число в системе счисления от 2-ой до 16-ой: '); readln(aP);
writeln ('Переводим число ', aP, ' в десятичную систему');
a10:=0; st:=1;
for i:=length(aP) downto 1 do begin
if (ord(upcase(aP[i]))-48 >= 0) and (ord(upcase(aP[i]))-55 < 16) then begin
if (ord(upcase(aP[i]))-48 >= 0) and (ord(upcase(aP[i]))-48 < 10) then
n:=ord(upcase(aP[i]))-48
else n:=ord(upcase(aP[i]))-55;
a10:=a10+n*st; st:=st*osn;
fl:=true; end
else fl:=false;
end;
if fl = true then
writeln('Число ', aP, ' в ', osn,'-ой системе счисления равно ', a10,' в десятичной системе')
else begin
writeln ('Извините, введенно число, основание системы счисления которого');
writeln(' не находится в диапазоне от 2-х до 16-и');
end; readln;
end.

Pascal