Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- bambano: Bambanő háza tája
-
LOGOUT
Új hozzászólás Aktív témák
-
pckownz
őstag
válasz
asuspc96
#5787
üzenetére
Nagyon jó kérdéseid vannak. Van valamilyen programozási tapasztalatod?
Szerintem először csak számokkal játssz, ha nincs semmi. Prím keresés, fibonacci sorozat, lottó generátor, armstrong szám... Ezek nagyon jók begyakorolni alapszintű algoritmusokat. A webkameráson meg egy év múlva kezdj el újra gondolkodni
-
pckownz
őstag
válasz
asuspc96
#5785
üzenetére
Nyelvet nem is, de módszert tudok ajánlani.
Tanulmányozd a 8 királynő problémát, illetve tudom ajánlani még az alfa-béta algoritmust.
ITT pedig találhatsz még jó kis ötleteket logikai játékhoz.Ha megfogadsz egy tanácsot, első "MI" -nek egy BlackJack játékot írsz. Nem kell grafikus online meg tétemelős, csak sima osztó-játékos rész legyen meg benne.
BlackJack lényege:
Osztónak 16pontig kötelező húznia, fölötte megáll. Jön még a BJ faktor is, illetve bővítheted lapszámolással. Persze oda kell figyelni, hogy 1lap ne jöjjön be 2x, illetve hogy 5leosztás után van újrakeverés. -
#5783
pckownz
őstag
CoolBoy323
#5782
pckownz
őstag
válasz
CoolBoy323
#5782
üzenetére
F9-cel lefuttatod a programodat, és létrehozza a project könyvtárban a project1.exe -t, ez pedig önállóan futtatható bármikor.
-
pckownz
őstag
válasz
asuspc96
#5774
üzenetére
Iratkozz be az Óbudai Egyetemre, ott indul certified ethical hacker képzés. Amúgy igen, van pár képzési forma(IT biztonság technika) ahol ilyet tanítanak(bár sehol sem azt tanítják hogyan tudsz oldalakat feltörni), de a legtöbbször konstruktív munka közben jönnek rá az emberek az ilyenekre.
Anno olvastam egy hacker írást, valahogy úgy fogalmazta meg, hogy a hackernek rengeteg kreativitás, eltökéltség és szakértelemre van szüksége. Látom az eltökéltség már megvan, a brute force miatt a kreativitást kilőném. -
pckownz
őstag
válasz
asuspc96
#5771
üzenetére
De amúgy most komolyan azt várod el, hogy Brute Force-ra adjunk segítséget?
Ez nem csak etikátlan...
Gugliban pár szóval találsz leírásokat, ahol konkrét hibákat kiemelve leírnak, és próbálkozhatsz. Ehhez aztán tényleg nem kell sok szaktudás. Biztos rendelkezik ez is biztonsági résekkel, de ne várd el, hogy ebbe segítséget kapj itt. -
pckownz
őstag
válasz
Chipi333
#5751
üzenetére
Köszi, ez sem rossz. Maradni fogok az első könyvnél, mert annál jobbat nem találtam.
Más kérdés:
Milyen rangsoroló algoritmusok vannak?
Az ELO-t ismerem, de sajnos ez nem jó nekem, mert nem 2versenyzőt kell összehasonlítanom, hanem nagyjából 50x ennyit(körönként), amiből 1-nél nagyobb(konstans) számú nyertes van.
Valaki ismer erre alkalmast? -
pckownz
őstag
Találtam egy könyvet:
Simon Harris - James Ross
Kezdőkönyv az algoritmusokrólA bibi az, hogy ez Java nyelvet használ, amit nem ismerek, és lehetőség szerint nem is nagyon szeretnék.
Ilyesmi könyv kellene nekem lehetőleg Pascal/Delphi alapon, vagy általános prog. nyelven. Esetleg valamelyik C nyelv vagy PHP is szóba jöhet. -
pckownz
őstag
2009 május emelt informatika alapismeretek érettségi egyik feladata:
Engedjünk szabadon egy hangyát egy „koordinátarendszerben” az origónál. Fél percen
keresztül, három másodpercenként rögzítsük a hangya helyzetét (milliméterben megadott
koordinátáit) egy erre a célra megfelelő tömbben. Mennyi volt (m/s-ban megadva) a mérhető
legnagyobb „három másodperces” átlagsebesség az adott időszakban? A meghatározott
értéket írassa ki a képernyőre! A koordinátarendszerben az A(ax,ay) és B(bx,by) pontok
távolsága: NÉGYZETGYÖK((bx-ax)*(bx-ax)+(by-ay)*(by-ay)).Valaki értelmezné nekem a feladatot?
Elég homályos. 0,0 értéket random elkezdem növelni és azt mérem? -
pckownz
őstag
2011. máj. emelt szakmai infó érettségi egyik feladata:
Tennisz gép, kilövi a labdát szabadon állítható kezdő sebességgel és szöggel.Lazarusban próbáltam fokot használni, de sinus-hoz elvileg kell a radián. Átváltottam, viszont se fokkal se radiánnal nem kapok olyan eredményt, mint amit az MsCalc ad. Hol lesz a hiba? Már azt is megcsináltam, hogy a C -s megoldókulcsot átalakítottam, de még mindig nem egyezik a két eredmény. (double típusú változókat használok, kerekítés nélkül, beépített PI függvénnyel)
Előszőr ilyen módszerrel átalakítottam a szöget radianra:
function TForm1.Radian(angle:double):double;
begin
Radian:= angle * PI / 180;
end;Ez nem jött be, jött a másik módszer, képletbe ágyazva alakítom át:
tavmert:=(SQR(v0) * Sin(PI * 2 * alfa / 180) ) / g;
Minden változó double, a g double konstans 9,81 értékkel. Sajnos bármilyen módszert próbáltam, nagyon eltérnek a programom eredményei az MsCalc által számoltaktól.Alapképlet:
v0^2 * Sin(2alfa) /g -
pckownz
őstag
válasz
Sn[4k3]
#5642
üzenetére
Még a maszek programozók is elkérik a pénzüket elég rendesen. Van egy tanárom aki maszekol, és többszörösét keresi meg 1-1 pár napos munkával mint a havi fizetése.
Alapvetően minden nyelv nehéz. A programozás olyan mint a művészet. Lehet rajzolgatni vele pálcikaembereket egy táblára, de lehet tájképeket is festeni akár. Egy nyelv bonyolultsága nyilvánvalóan attól függ, hogy mire akarod használni. Én például egy egyszerűnek ismert nyelven írtam black jack játékot (Pascal), de még sem volt egyszerű mert kellett egy kezdő szintű MI. Ezzel szenben egy 2player-es Tennis játékot írt osztálytársam, ahol az egyszerű paintes grafika volt csak a nehezebb része, és csak pixeleket tologatott események hatására. Én ennek ellenére csak konzolosan dolgoztam, mindenféle grafika nélkül, élve az ASCII tábla adta lehetőségekkel. Szóval ezt így nehéz megmondani, hogy a C nehéz nyelv-e. Bocsi, kicsit hosszú lett az írásomXNA-ról annyit találtam, hogy a Microsoft hivatalos játék fejlesztő környezete Xbox-ra, WinMo-ra, és Windows-ra.
Keresgéltem PS3 programozási leírást, hirtelen amit találtam, hogy MultiCore Cell programming az alapja, ami 3 számomra ismeretlen környezetre épül, Linux rendszeren, illetve ha jól sejtem kell hozzá PS3 dev-tool.
A Wii-s környezet emulatorral dolgozik, és Windows-Linux cross platformos.
Óvatos tipp, ha több platformú játékot akarsz, akkor Android-iOS -ben gondolkodj. Android könnyen fejleszthető Javaban, iOS pedig szintén C-t használ, és mind2 kiválóan megy Windows alól.
-
-
pckownz
őstag
válasz
Jester01
#5626
üzenetére
Timer tulajdonságai között 1ms van beállítva neki. Sajnos semmi. Nem kezd el linkelni sem a Lazarus.
szerk.: van egy fordított változatom, ami annyiban különbözik a föntebb írt kódtól, hogy a Trackbar még nincs rajta. Ez fut rendesen.
Leszedtem róla a Trackbart de ugyan úgy fagy... Érdekes, mert bármi mást képest lefordítani. -
pckownz
őstag
Sziasztok, a problémám a következő.
Írtam egy progit a suliban, ami fainul futott. Itthon viszont fagyasztja Lazarus-t.
Lazarus-0.9.30.2-fpc-2.4.4-win64 verzió van meg, ha jól rémlik a suliban ugyan ez van.
Minden más projectet képes lefuttatni, egyedül ezt nem. Program nem válaszol felirat, probléma leírás:
Problémaesemény neve: AppHangB1
Alkalmazásnév: lazarus.exeÖtlet?
A kód a következő:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ExtCtrls, ComCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label10: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
ListBox4: TListBox;
SpinEdit1: TSpinEdit; //maxvalue 2^24
Timer1: TTimer;
TrackBar1: TTrackBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TrackBar1ChangeBounds(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
//--------------------------------------
var
Form1: TForm1;
osztok:array[1..65535]of integer;
primek:array[1..65535]of integer;
nonprimek:array[1..65535]of integer;
j,inp,osztodb:integer;
var prim,falsprim,ikerprim:integer;
//--------------------------------------
implementation
{$R *.lfm}
{ TForm1 }
procedure Nullaz;
begin
prim:=0;
falsprim:=0;
ikerprim:=0;
Form1.SpinEdit1.Value:=1;
end;
//********************************************* Számítás indítása
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Nullaz;
end;
//---------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Nullaz;
end;
//********************************************* Számítás leállítása
procedure TForm1.FormCreate(Sender: TObject);
begin
Label2.Visible:=false;
Nullaz;
end;
//---------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ListBox1.Items.Clear;
SpinEdit1.Value:=SpinEdit1.Value + 1;
inp:=SpinEdit1.Value;
osztodb:=0;
(*********************OSZTO SZAMITASA***********************)
for j:=1 to (inp div 2) do
if (inp mod j) = 0 then
begin
Inc(osztodb);
osztok[osztodb]:=j;
end;
for j:=1 to osztodb do
ListBox1.Items.Add(IntToStr(osztok[j]));
if (osztodb=1) and (inp<>0) or (inp=1) then
begin
Label2.Visible:=true;
Inc(prim);
primek[prim]:=inp;
if (prim > 1 ) AND (primek[prim] - primek[prim-1] = 2) then
begin
ListBox4.Items.Add(IntToStr(primek[prim-1]));
ListBox4.Items.Add(IntToStr(inp));
ListBox4.Items.Add('----------');
Inc(Ikerprim);
Edit3.Text:=IntToStr(ikerprim);
ListBox4.ItemIndex:=ListBox4.Items.Count-1;
end;
ListBox2.Items.Add(IntToStr(inp));
Edit1.Text:=IntToStr(prim);
ListBox2.ItemIndex:=ListBox2.Items.Count-1;
end
else
begin
Label2.Visible:=false;
ListBox3.Items.Add(IntToStr(inp));
ListBox3.ItemIndex:=ListBox3.Items.Count-1;
Inc(falsprim);
Edit2.Text:=IntToStr(falsprim);
end;
(********************Ikerprimek********************)
end;
procedure TForm1.TrackBar1ChangeBounds(Sender: TObject);
begin
end;
end. -
pckownz
őstag
Sziasztok.
Lazarusban tanulok pascal nyelvet, és egy érdekes hibát(?) találtam.
2tömbbe random generált számokat növekvő, majd csökkenő sorrendbe kell elhelyeznünk.function er(a:array of integer):boolean;
var ez:boolean;
begin
i:=0;
repeat
inc(i);
if a[i]<=a[i+1] then ez:=true else ez:=false;
until (i=max-1) or (ez=false);
er:=ez;
end;
Ez az első tömb növekvő sorrendét ellenörző funkciója, ennek a funkció visszatérése alapján küldjük tovább rendezésre ha kell. Ez működik.function mr(b:array of integer):boolean;
var ezz:boolean;
begin
i:=0;
repeat
inc(i);
if b[i]>=b[i+1] then ezz:=true else ezz:=false;
until (i=max-1) or (ezz=false); //????
mr:=ezz;
end;
Ezzel a második tömbünket vizsgáljuk, hogy csökkenő-e.
A max egy 10értékű integer típusú konstans.
Ez a funkció minden esetben FALSE értékkel tér vissza.
Akkor is, ha már átment a rendező algoritmuson, és tökéletes a sorrend.
Viszont ha csak 8-ig futtatom, akkor ugye a 9. elemig vizsgál és TRUE értéket ad vissza. Ha vizsgálja a 10. elemünket is, minden esetben false.Valami ötlet?
-
pckownz
őstag
Nos a fajlban soronkent 3 adat van tabulatorral elvalasztva, es ezt a harom adatot a matrix elso soranak 3 oszlopaba szeretnem berakni.
x:=0;
While not EOLN(fajlnev) do
begin
inc(x);
read(fajlnev,matrix[1,x]);
end;Ezzel valamilyen hibat ad kimenetre, ezert erdekelne, hogy megis hogyan tudnam elerni a kiolvasast.
Van egy tablazatom fajlmuveletekre, de a text fajlokhoz csak a read es a readln parancs kotheto a leiras szerint, a readln-nel pedig az egesz sort egy indexre rakja.
-
pckownz
őstag
Sziasztok!
Mivel aktiv, kimondottan pascal/delphi thread nincs, ezert itt tennem fol a kerdesemet.
Van egy txt fajlom amibe adatok vannak lementve.
Soronkent 3 adat, 2 tipusu. 2string es 1 integer.
Most en ezeket az adatokat szeretnem lementeni egy matrixba, megpedig ugy, hogy elso sorba a fajlom elso sorainak adatai keruljenek. (ertelem szeruen 3*x -es matrixom van)Nem azt kerem, hogy 1:1-ben a forrasat irja le valaki, hanem tampontot adhatna hetkoznapi nyelven.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Xiaomi 15T Pro - a téma nincs lezárva
- Milyen házat vegyek?
- Okosóra és okoskiegészítő topik
- Mindenkinél több és erősebb AI gyorsítót ígér Elon Musk
- Diablo IV
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Miért vezet mindenki úgy, mint egy állat?
- Vezeték nélküli fejhallgatók
- Formula-1
- Kaspersky Antivirus és Internet Security Fórum
- További aktív témák...
- Lenovo ThinkPad P15 Gen 1 Tervező Vágó Laptop -50% 15,6" i7-10750H 16/512 QUADRO T1000 4GB
- Lenovo ThinkPad P15 Gen 1 Tervező Vágó Laptop -50% 15,6" i7-10750H 16/512 QUADRO T1000 4GB
- Boya BY M1/AV Jefe TCM-100 lavalier mikrofonok
- Mantona Luis Retro kamera hátizsák fekete
- 2db Sony 128GB Uhs-II/U3/V90 és 1db Kingston 256GB Uhs-II/C10/V90
- Eredeti Lenovo 300W töltők - ADL300SDC3A
- Új Razer 16 QHD+ OLED 240Hz i9-14900HX 24mag 32GB 2TB SSD Nvidia RTX 4090 16GB 175W Win11 Beszámítás
- Samsung Galaxy S25 Ultra Titanium Jetblack Titán dizájn, 120 Hz AMOLED, AI Pro kamera
- Bomba Ár! HP ProBook 650 G1 - i5-4GEN I 8GB I 128-256SSD I 15,6" HD I Cam I W10 I Garancia!
- ÁRGARANCIA!Épített KomPhone i5 12400F 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi