Új hozzászólás Aktív témák

• Dfg csendes tag

  #95

  #94 Dfg

  2005-02-02 22:44:16

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Dfg

  csendes tag

  #94 Dfg

  #94 Dfg

  Üdvözlet!
  
  A következő feladat megoldásához kérnék segítséget:
  
  Írjunk olyan programot amely átalakítja az inputot 8as,10es és 2es számrendszerre. A bemenet
  lehet mindhárom az utolsó karakter határozza meg (d = 10es, b = 2es, h = 16os, o = 8as).
  Példa:
  Kérem a számot: 124d
  2es: 1111100
  8as: 174
  10es: 124
  16os: 7C
  
  Példa 2:
  Kérem a számot: FEF8h
  2es: 1111111011111000
  8as: 177370
  10es: 65272
  16os: FEF8
  
  Valami hasonlót régebben összedobtam Pascalban, az a kérdésem, hogy ezt java-ra mennyire bonyolult átírni? A pascal progiban bármilyen számrendszerből tudok 10-esbe váltani, és 10-esből bármilyenbe, ez ké függvény. Javat nem tanultam még.
  
  Tudtok segíteni?
  
  

  A Pascal progi ez alapján készült:
  
  function StrToNum(Str: string; Base: Integer): LongInt;
  var
  . Digit: Integer;
  . Result: LongInt;
  begin
  . Result := 0;
  . while Str <> '' do
  . begin
  . . Digit := Pos(UpCase(Str[1]), Digits) - 1; Str := Copy(Str, 2, Length(Str) - 1);
  . . Result := Result * Base + Digit;
  . end;
  . StrToNum := Result;
  end;
  
  function NumToStr(Num: LongInt; Base: Integer): string;
  var
  . Digit: Integer;
  . Result: string;
  begin
  . Result := '';
  . while Num > 0 do
  . begin
  . . Digit := Num mod Base; Num := Num div Base;
  . . Result := Digits[Digit + 1] + Result;
  . end;
  . if Result = '' then NumToStr := '0' else NumToStr := Result;
  end;
  
  Ha valaki megtenné, hogy átdobja Java-ba.
  
  Köszönöm!

Új hozzászólás Aktív témák