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

• #1250 N!tRo tag #72042496 #1243

  Új Válasz 2006-05-20 15:24:17 #1250

  Ú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

  Privát üzenet küldése

  

  N!tRo

  tag

  válasz #72042496 #1243 üzenetére

  Háj
  na én ezt most úgy értelmezem, hogy egy progi, ami 6os számrendszerből 10es számrendszerbe (továbbá szr) alakít, a 6os szrbeli szám max 60 karakter lehet, és egy tömbbe tárolja a számjegyeket (ami sztem felesleges)
  én megcsináltam azt, hogy átalakítsa egyik szrből a másikba
  
  {$N+} {8086-os numerikus tarsprocesszor bekapcsolasa}
  program hazifeladat;
  uses crt;
  var k: array[1..60] of char;
  kod6: string;
  hiba: boolean;
  i,s,error: integer;
  kod10:double;
  begin
  clrscr;
  repeat
  hiba:=false;
  writeln('K‚rem a 6-os szamrendszerbeli szamot, max 60 karakter!');
  readln(kod6);
  if length(kod6) > 60 then hiba:=true else
  for i:= 1 to length(kod6) do
  if kod6 in['0','1','2','3','4','5' then else hiba:=true; {a not in muveletet nemtom megcsinalni}
  if hiba=true then writeln('Hibas formatum!');
  until hiba=false;
  
  { Berakja a szamokat egyesevel egy tombbe, sztem felesleges }
  { for i:= 1 to length(kod6) do k:=kod6; }
  kod10:=0;
  for i:= 1 to length(kod6) do begin
  val(kod6,s,error);
  kod10:=kod10+s*(exp(ln(6)* (length(kod6)-i) ));
  end;
  writeln(kod10:20:2);
  readln;
  end.
  
  Nyilván ez nem teljes program, kedved szerint alakítod.
  
  
  
  [Szerkesztve]

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