- ricshard444: Fényképező ? Telefon helyett
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- M0ng00se: Hardvert áruhitelre?
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- amanoba: Zakuszkarecept Puskás Csabától, a Borkonyha Étterem head séfjétől
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
Ú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!
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Kínai és egyéb olcsó órák topikja
- Érkezik az OpenAI saját böngészője
- Kerékpárosok, bringások ide!
- Okosóra és okoskiegészítő topik
- Azonnali informatikai kérdések órája
- VR topik
- ASZTALI GÉP / ALKATRÉSZ beárazás
- Motoros topic
- Víz- gáz- és fűtésszerelés
- További aktív témák...
- Apple 20W adapter gyári!!!! Bontatlan!
- Lenovo Thinkpad x13 i7-10610U 32GB RAM 512SSD Érintőkijelző
- Garancia! GAMER PC! Ryzen 5600X / RTX 3070 / B550 / 32GB 3200MHz /1Tb + 512Gb NVMe / 600w!
- iPhone SE2 64GB fekete, gyönyörű újszerű állapotban, 3db van, 85% 92% és 100% akkuval
- iPhone SE2 64GB 82% piros, saját dobozzal
- Huawei P20 Lite 64GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! Apple iPad Pro 13 2024 M4 512GB Cellular tablet garanciával hibátlan működéssel
- Xiaomi Redmi Note 12 128GB Kártyafüggetlen 1Év Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest