Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2015, 20:51   #11
АришаЯ
Пользователь
 
Регистрация: 16.05.2015
Сообщений: 11
По умолчанию

'4': d[i]:=4;
'5': d[i]:=5;
'6': d[i]:=6;
'7': d[i]:=7;
'8': d[i]:=8;
'9': d[i]:=9;
'a': d[i]:=10;
'b': d[i]:=11;
'c': d[i]:=12;
'd': d[i]:=13;
'e': d[i]:=14;
'f': d[i]:=15;
end;
chislo:=d[i]*(exp(ln(16)*(i-1)));
end;
write(s);
write(' = ',chislo:10:2);
end;
АришаЯ вне форума Ответить с цитированием
Старый 20.05.2015, 20:52   #12
АришаЯ
Пользователь
 
Регистрация: 16.05.2015
Сообщений: 11
По умолчанию

var i:byte;
begin
k:=ord(s[0]);
for i:=1 to k do
begin
case s[i] of
'0'[i]:=0;
'1'[i]:=1;
'2'[i]:=2;
'3'[i]:=3;
'4'[i]:=4;
АришаЯ вне форума Ответить с цитированием
Старый 20.05.2015, 20:52   #13
АришаЯ
Пользователь
 
Регистрация: 16.05.2015
Сообщений: 11
По умолчанию

'5'[i]:=5;
'6': d[i]:=6;
'7': d[i]:=7;
'8': d[i]:=8;
'9': d[i]:=9;
'a': d[i]:=10;
'b': d[i]:=11;
'c': d[i]:=12;
'd': d[i]:=13;
'e': d[i]:=14;
'f': d[i]:=15;
end;
chislo:=d[i]*(exp(ln(16)*(i-1)));
end;

procedure toDop(Inp:string; var Dop:integer);
var n,P,err:integer;
fl:boolean;
Uns:string;
begin
Uns:='';
Dop:=0;
fl:=false;
if(Inp[1]='-')then
begin
Delete(Inp,1,1);
fl:=true;
end;
for n:=length(Inp) downto 1 do Uns:=Uns+Inp[n];
for n:=0 to length(Uns)-1 do
begin
Val(Uns[n+1],P,Err);
if(err<>0)then P:=9+Pos(Uns[n+1],Hex);
Dop:=Dec+P*round(exp(n*ln(16)));
end;
if(fl)then Dop:=Dop*(-1);
end;

Begin
writeln('Enter way to file:');
readln(Way);
assign(F,Way);
reset(F);
Read(F,Init);
writeln(' Выбирете действие: 10,2,дополнительный код(d)?');
readln(Act);
Begin
case Act of
10: ten( ) {Вызов процедуры перевод в десятичную систему счисления}
2: two(){Вызов процедуры перевод в двоичную систему счисления}

d: toDop();{Вызов процедуры дополнительного кода}
else;
writeln(‘Неверное действие’);
End.
АришаЯ вне форума Ответить с цитированием
Старый 20.05.2015, 20:53   #14
АришаЯ
Пользователь
 
Регистрация: 16.05.2015
Сообщений: 11
По умолчанию

не понимала почему отправлять не хочет,оказалось он читает символы как смайл
АришаЯ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод чисел из одной системы в другую!!! Abay19941308 Общие вопросы Delphi 3 15.11.2013 22:15
Перевод из одной системы исчисления в другую. Svop Помощь студентам 7 20.12.2010 19:00
Перевод из одной системы счисления в другую на С++ innaa639 Помощь студентам 1 12.04.2010 14:34
Перевод из одной системы счисления в другую Sky_VSUH Помощь студентам 1 28.02.2008 20:18