- VoidXs: Tényleg minden játék optimalizálatlan?
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- erkxt: A Roidmi becsődölt – és senki nem szól egy szót sem?
- gban: Ingyen kellene, de tegnapra
- ricshard444: Fényképező ? Telefon helyett
- Lalikiraly: Astra kalandok @Harmadik rész
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- eBay-es kütyük kis pénzért
Új hozzászólás Aktív témák
-
asuspc96
senior tag
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
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest