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

• #1256 Tangerine senior tag N!tRo #1250

  Új Válasz 2006-05-21 00:40:58 #1256

  Ú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

  

  Tangerine

  senior tag

  válasz N!tRo #1250 üzenetére

  Kicsit átalakítottam:
  
  {$N+} {8086-os numerikus tarsprocesszor bekapcsolasa}
  program hazifeladat;
  
  uses crt;
  
  const
  enter: char = #13;
  esc : char = #27;
  
  var
  c: char;
  k: array [1..60] of char;
  a, b, s, error: integer;
  kod10:double;
  
  begin
  
  clrscr;
  writeln('Kerem a 6-os szamrendszerbeli szamot, max 60 karakter!');
  a:=0;
  
  repeat
  
  repeat
  c:=readkey;
  until c in ['0'..'5',enter];
  
  if c <> enter then
  begin
  write(c);
  inc(a);
  k[a] := c ;
  end;
  
  until (c = enter) or (a = 60);
  writeln;
  
  
  kod10:=0;
  
  for b:= 1 to a do
  begin
  val(k,s,error);
  kod10 := kod10 + s * (exp(ln(6)*(a-b)));
  end;
  
  writeln(kod10:0:0);
  writeln;
  
  writeln('Kilepes: ESC');
  
  repeat
  c := readkey;
  until c = esc;
  
  end.
  

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