Új hozzászólás Aktív témák
-
asuspc96
senior tag
Jó reggelt Mindenkinek !
Tanulmányoztam ezeket az oldalakat:
Wkipédia -számelmélet , Wikipédia-prímszámfelbontásValami hasonló kellene csak egy kész kezelőfelülettel ha megoldható
Gondolom ez "alól" nem lehet lekoppintani a működési elvét...vagy igen ?
Előre is köszönöm a kódokat illetve ötleteket !
Üdv, asuspc96
-
asuspc96
senior tag
"na jo, de o standalone programot szeretne
(bar szerintem abbol is tizezres nagysagrend elerheto a neten )"Nem nem ilyet szeretnék én egy normális választ szerettem volna hogy igen le lehet szedni, vagy sem...nem kigúnyolást meg azt amit TE művelsz...!
Nem kértem egy szóval se hogy kompletten írja meg helyettem azt mondtam hogy örülök a kódoknak is és ezt előre megköszöntem....
Ezért tart ez az ország ott ahol mert olyan emberekkel van tele mint Te...lehúzza a másikat és ki is gúnyolja ahelyett, hogy segítene és esetlegesen valamire használható választ adna....
Mr. doc a "PH! kedvence"... ha ennyit nyújtasz tálcán akkor köszönöm nem kérem..!
És ez a fele részemről OFF !Üdv, asuspc96
-
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
[ Szerkesztve ]
-
asuspc96
senior tag
Jó fátylat rá...majd ha szilveszterkor összefutunk (nem tudom hogyan) elhívlak sörözni
Most dobtam be neki egy hatalmas számot valami 999999999191919191919-et (hasra ütésszerűen)
Szegény azóta is számol.....ha jol latom, ez Delphi? megírhatom(juk) másban is (pl. C++) csak működjön very very big számokra is.
"lehet 'javitani' rajta: az in helyett long-ot kell hasznalni. sot, unsigned long long-ot, ez a szabvany szerint legalabb 2^64-1-ig tud szamot abrazolni, a te gepeden/forditoddal ervenyes maximum a ULLONG_MAX konstansban van"
Mennyi az elvi max ameddig számot tudna ábrázolni ?
Üdv, asuspc96
-
asuspc96
senior tag
rendben leadom a rendelést a picérlánynak
"barmekkora szammal kepes dolgozni (mint pl. Perl-ben a BigNum es tarsai) akkor baromi lassu"
Fel lehet gyorsítani ? említettél erre valamit...
HTML-ből (JavaScript) átírni C++-ba lehetséges ? Egyáltalán a megírt program mivel használható ?
-
asuspc96
senior tag
Igazából még nem tervezek vele semmit... Jó lenne csinálni belőle egy ingyenes kis progit. (még tervezek bele egy két érdekes dolgot abból se szeretnék kihagyni benneteket)
Érdekel a matematikája ezt eltaláltad !
Hogyan lehet ezzel hozzájárulni valamilyen feltöréshez ?"pl a Katona/Recski/Szabó féle Számítástudomány alapjai ír gyorsabbat. bme info/elte mat ismerősnek biztos meglesz a könyv. eléggé elméletre fókuszál, de a lényeg benne van: polinomidőben prímtesztelés megy, ugyanakkor felbontást az ember nem kap."
Megkérdezhetem, hogy ennek a könyvnek mi a címe ?Üdv, asuspc96
Ú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!
- ESR Rebound 360 Magnetic Keyboard Case (ENG) - iPad Pro / Air
- Új Gamer PC i5 12400F/13400F/24Gb DDR5/RX 6600 vagy RX 6600 XT 8Gb/500Gb M2 SSD/700W 2-3 Év gari
- ÁRZUHANÁS !! Szép Tervező Vágó Dell Precision 3541 Laptop -65% 15,6" i7-9850H 32/512 QUADRO P620 4GB
- Új Gamer PC i5 12400F/13400F/24Gb DDR5 5600Mhz/RTX 3060 12Gb/500Gb M2 SSD 2-3 Év gar
- ESR Rebound Magnetic iPad Pro 11" / Air 4-5
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen