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

• #1259 Lortech addikt N!tRo #1250

  Új Válasz 2006-05-21 12:22:25 #1259

  Ú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

  

  Lortech

  addikt

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

  Megnéztem kicsit jobban a lényegi részét a megoldásodnak. Először nekem is ez a megoldás jutott eszembe, de jobban átgondolva elvetettem, mert veszteségek lépnek fel a valós típus miatt. A te megoldásod sem jó sajnos, mivel maximum 20-24 jegyig ad pontos eredményt.

• #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.
  

• #1252 Lortech addikt N!tRo #1250

  Új Válasz 2006-05-20 16:19:54 #1252

  Ú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

  

  Lortech

  addikt

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

  Szerintem azért lett kihangsúlyozva a karaktertömb, hogy rávezessen a readkeyre.. Mellyel - ahogy VladimirR megoldásában láthattad- még bekérés közben megakadályozhatod, hogy a számrendszer számjegyein kívül bármi mást bevihess. Én is szinte ugyanúgy oldottam meg, ahogy VladimirR, teljesen függetlenül az ő megoldásától (külön érdekesség, hogy én is gondolkodás nélkül belevettem a 6-os számjegyet ).
  
  if kod6 in[ '0','1','2','3','4','5' ] then else hiba:=true; {a not in muveletet nemtom megcsinalni}
  Ez a sor hogy is van? kod6-ot charnak kéne deklarálnod, hogy ez működjön szerintem, nekem nem fordul le. Meg a not in műveletet miért nem tudod megcsinálni?
  not (kod6 in [ '0','1','2','3','4','5' ]) - ezt akartad?

• #1251 N!tRo tag N!tRo #1250

  Új Válasz 2006-05-20 15:27:51 #1251

  Ú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 N!tRo #1250 üzenetére

  Tudom, hogy tegnapra kellett, de csak most tudtam megnézni a hozzászólásokat.
  De hátha merítesz belőle ötleteket vagy akár mások is.

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