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

• #1249 asuspc96 senior tag doc #1248

  Új Válasz 2011-12-15 11:55:11 #1249

  Ú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

  

  asuspc96

  senior tag

  válasz doc #1248 üzenetére

  nem "hisztiztem" csak mint megállapítás kijelentettem

  Ami a Wikipédiában volt... és amit az amit az ELTE nyújt összehasonlíthatatlanul jobb az utolsó.... az ELTE által készítettnél sokkal tovább tudja mint "2 147 483 647".
  kész kezelőfelület (nálam) = pl. mint a számológép....
  értem ezalatt, hogy szépen begépelgetem nyomok neki egy "O.K." és erre neki áll számolgatni....

  type
  TForm1 = class(TForm)
  Edit1: TEdit;
  Button1: TButton;
  Memo1: TMemo;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  
  const primek:array[1..jó sok prím mennyisége] of integer=(JÓ SOK PRÍM);
  
  var
  Form1: TForm1;
  
  implementation
  
  {$R *.DFM}
  
  function prime(szam:integer):boolean;
  var i:integer;
  begin
  i:=1;
  while (i<=25) and (szam<>primek[i]) do i:=i+1;
  prime:=(i<=25);
  end;
  
  procedure bontas(szam,i:integer);
  begin
  if not prime(szam) then
  begin
  if szam mod primek[i]=0 then
  begin
  szam:=szam div primek[i];
  bontas(szam,1);
  form1.memo1.Lines.Add(inttostr(primek[i]));
  end else bontas(szam,i+1);
  end else form1.memo1.Lines.Add(inttostr(szam));
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  var szam:integer;
  begin
  szam:=strtoint(edit1.text);
  bontas(szam,1);
  end;
  
  end.

  eddig erre jutottam....és én egy ehhez vagy olyanhoz hasonlót képzeltem el mint az ELTE-n található. És ehhez kellene egy csini kis kezelőfelület...ennyi.

  A gúnyolásra én erős irónia és cinikus szagot éreztem a hozzászólásodba de ha ez nem így van hát elnézést. De szerintem mindketten tudjuk az igazat

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