- Windows 10
- Synology NAS
- Ki hozhat AI-funkciókat az iPhone-ra?
- A pápa egyre jobban tart a romlott AI veszélyeitől
- TP-Link WR1043ND router
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Mesterséges Intelligencia topik
- Musk azt mondja: a gondolatával mozgatja az egeret a Neuralink első betege
- Kínai cégek segítik ezentúl a Teslát, a Renault-t, a Hyundait és a Toyotát
- Windows 11
Új hozzászólás Aktív témák
-
_Petya_
őstag
válasz steveetm #451 üzenetére
fpc-vel. Egyébként nekem működik, ezért is írtam az előbb, hogy nem értem mi ez a felhajtás a #10 és #10#13 körül, mindenesetre Dévényi és Gergely szerint az fpc nem fordítja a #10#13 sorvégű forrásokat.
PetyaFontos feladatot soha ne bízz olyan gépre, amit egyedül is fel tudsz emelni!
-
Protezis
őstag
Na kész a progim.
Tegnap sikerült megértenem a lánckezelést VladimirR programjából, és utána teljesen egyedül megírtam. COOL!
Csak ne kéne szerkezeti ábrát is rajzolni -
VladimirR
nagyúr
válasz Cicalány #454 üzenetére
majd megcsinalom este a kommenteket rendesen (ugyanis mikor atirtam a lancolt lista kezeleset, eyg kicsit osszekeveredtek a kommentek) --- az talan segit valamit, de mindenesetre azt javaslom, hogy addigis probalj itt (Bővebben: link) szetnezni a rendezesi algoritmusok teren (gugli dobta ki, de ha beirod a rendezes nevet, akar meg jobb leirast is talalhatsz)
-
Protezis
őstag
Leteszteltem a Microsoft server 2003 eulájával - mivel az angol - és jónak tűnik
Kb 6-7 mp a futási idő, proci 100%-on. A gáz az, hogy a végén több szabad memóriám van, mint az elején
Hopp, és most látom, hogy kvázi-tag lettem
[Szerkesztve] -
ALI_G
veterán
Hi, valaki segítene, elakadtam pascalban:
function romai2arab(s:string):integer;
var i,j : integer;
tmp : array [1..20] of integer;
szam : integer;
Begin
szam:=0;
i:=1;
while i<=length(s) do
Begin
case s of
'M' : tmp:=1000;
'D' : tmp:=500;
'C' : tmp:=100;
'L' : tmp:=50;
'X' : tmp:=10;
'V' : tmp:=5;
'I' : tmp:=1
else s:='Hiba';
end;
i:=i+1;
end;
i:=i-1;
for j:=i downto 1 do
begin
if (tmp[j]>tmp[j-1]) then
Begin
szam:=szam+(tmp[j]-tmp[j-1]);
end
else szam:=szam+tmp[j];
end;
romai2arab:=szam;
end;
Nyo, ez lenne a függvény ami nem műxik jól,
szam:=szam+(tmp[j]-tmp[j-1]);
ezt a sort nem hajtja végre amikor kellene (pl IV -> 4 lenne, de 5-öt ad vissza), de miért? köszi a választ előre is. Ja, amúgy ez egy római szám konverter lenne
Hú, ez így nagyon átláthatatlannak tűnik még nekem is, mert az összes szóközt kitörölte az elejéről.
próbáltam tagolni, de elég gáz még így is.
[Szerkesztve] -
ALI_G
veterán
sorry ez itt hibásan jelenik meg, majd minjárt megpróbálom megcsinálni ezt a wackot.
-
VladimirR
nagyúr
a for j:=i downto 1 do utolso koreben (j=1-nel) a tmp tomb nem letezo elemere hivatkozol: if (tmp[j]>tmp[j-1]) (if (tmp[1]>tmp[0]) then), ezert az else agra ugrik
csinald ugy a tombot, hogy 0. elem is van es abba tegyel megfelelo erteket, vagy ird at a felteteleket
jobban megnezve mas baj is van a ciklussal
ha a bemenet IV, akkor egyszer hozzaadja a szamhoz az 5-1-et, aztan kovetkezo korben az 1-et
[Szerkesztve] -
ALI_G
veterán
szóval inkább felrakattam kedves szomszéd barátommal az uw-re
Bővebben: link
Az emberiség nevében is köszönöm Protezis -
ALI_G
veterán
válasz VladimirR #462 üzenetére
aha, szóval ha ezt beszúrom a függvény elejére, hogy tmp[0]:=0; és deklarálok egy tmp[0]-t is hozzá akkor jó lesz?
És hogy ne adja hozzá a következő ciklusban mit csináljak (most nem akar le esni), az egyetlen gagyi 5let ami eszembe jutott, hogy 2* vonom ki és akkor nyugodtan hozzáadhatja, de az nagyon gagyi.
[Szerkesztve] -
ALI_G
veterán
Most azon gondolkozom, ha meg lehetne változtatni a j ciklusváltozót hasznáalt közben (amit ugye nem lehet) akkor meg tudnám csinálni szépen, mert maikor ki kell vonni akkor csökkenteném az értkét még eggyel, így kihagyja azt hogy utánna még hozzá is adja.
de ezt nem tudom -
VladimirR
nagyúr
ahogy en latom a problemat, nincs is szukseg a tomb 0. elemere
sokkal inkabb at kell dolgozni a ciklusokat es a feltetelekt
ha emlekeim nem csalnak meg (leven eleg reg tanultam mar a romai szamrendszert), akkor ilyen prefix ertek (pl I a V elott) maximum egy lephet fel, s csakis es kizarolag ilyen esetben koveti a kesebb elemet a nagyobb
tehat ha arra jutsz, hogy a j-edik elem nagyobb, mint a j-1-edik, akkor a j-1edik elemet nem kell vizsgalnod, hanem egybol ugorhatsz a j-2-ra, igy inkabb mast kellene hasznalnod a lepteto ciklus helyett
tovabba nem kell vizsgalnod az utolso elem eseteben, hogy az elotte levo milyen, hisz nincs elotte semmi, tehat a ciklus menjen a jobbrol az elso elemtol a balrol a masodikig
szerintem -
ALI_G
veterán
válasz VladimirR #467 üzenetére
Az előbb már én is rájöttem erre, csak még nem tom, hogy valósítsam meg, de :
for j:=i downto 1 do
begin
if (tmp[j]>tmp[j-1]) then
szam:=szam+(tmp[j]-tmp[j-1])
else if (j <> 0) then
szam:=szam+tmp[j];
if (tmp[j] < tmp[j+1]) and (j<i) then
szam := szam-tmp[j];
end;
ez így jó lenne?
[Szerkesztve] -
ALI_G
veterán
ez így most műxik nekem elég csúnya számokra.
-
VladimirR
nagyúr
hat ebben 2 hibat latok igy hirtelen
-tmp[j-1] tovabbra is nemletezo tombelemre hivatkozik, hisz j felveszi az 1 erteket is
-if j<>0 mindig igaz erteket ad, hisz j egy pozitiv egesz szamrol csokken 1-ig, s tovabb nem, igy soha nem lesz nulla
en mashogy oldottam meg:
i:=length(s);
while i>=2 do
begin
if tmp[i]>tmp[i-1]
then begin
szam:=szam+(tmp[i]-tmp[i-1]);
dec(i,2)
end
else begin
szam:=szam+tmp[i];
dec(i);
end;
end;
if tmp[2]<=tmp[1]
then szam:=szam+tmp[1];
romai2arab:=szam;
[Szerkesztve] -
-
VladimirR
nagyúr
kicsit modositani kellett rajta, mert a fenti kod az egyjegyu romai szamokkal bajban van (ugyanis a ciklus csak 2-ig szamol vissza), az utana levo feltetel meg nezne a masodik elemet
if tmp[2]<=tmp[1]
then szam:=szam+tmp[1];
if length(s)=1
then szam:=tmp[1];
romai2arab:=szam;
ugyanis egyjegyui szamnal, ha a 2. tombelemnek nagyobb volt az erteke, mint az egyetlen beallitott ertek, akkor erdekes dolgokat irt ki (ugye a tombben letrehozasakor minden hulyeseg van, s ezekkel dolgozott)
a dolt betus resz beszurasa utan mar ez az ertek nem szamit, mert egyjegyu szam eseten felulirja a kimeno erteket a helyes eredmennyel
[Szerkesztve] -
Katka
csendes tag
Üdv mindenkinek!
Először is köszi devastnak,hogy foglalkozott a progival!Azt nem mondtam,hogy abszolút hülye vagyok az egészhez,csak már több úton is elkezdtem,csak nem csinált semmit.
VladimiR!Neked is köszi a segítséget! -
crab
senior tag
Segítséget szeretnék kérni, hogy melyik könyvet válasszam!
Két lehetőség van:
Programozás tanköny I Bővebben: link és II:Bővebben: link a másik pedig a programozzunk turbo pascal nyelven.
Nem tudom melyiket vegyem meg, a tanárom az elsőt ajánlotta, de szeretném a lehető legjobbat megvenni. Olyanok véleméyére lennék kíváncsi akiknek mindd a kettőhöz volt szerencséje! Ha netán van olyan könyv ami még ezeknél is jobb annak még jobban örülnék! -
VladimirR
nagyúr
az en 7-es borlan pascalomban nincs ilyen, de a nevebol itelve levag valamit (ha z tipusa string, akkor nagy valoszinuseg szerint az esetleges szokozoket tavolitja el a z elejerol es vegerol)
hol van ez es mi z tipusa?
Crab: bar ezek kozul egyik konyvvel sem talalkoztam, Angster Erzsebet konyveit igen jonak tartom -
Esmein
nagyúr
Szeretnék sürgős segítséget kérni freepascalhoz.
Mi az az utasítás, amivel string végéhez lehet dolgokat fűzni ?"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
Esmein
nagyúr
hogyan lehet integert, vagy kifejezést stringgé konvertálni ?
"I no longer want to declare war on Hungary. It would be like waging war on a mental institution." - Jeremy Clarkson
-
djtörök
senior tag
helló énis elakadtam. nos kellene egy olyan programot írnom, amelynek lényege hogy van egy pont(aminek a koordinátáit a program kéri be), és azt a billentyűzettel tudom irányítani, úgy hogy az közbe rajzol(mint a comenius logo).
ehhez szeretnék segítséget kapni.
valami olyasmire jutottam hogy a billentyűhöz tartozó ascii kódok szerint kell vmi case of paranccsal megcsinálni, utána meg az initgraph és a detectgraph és utána detectgraph.
esetlegh függvényekkel(procedure, function) tán könnyebb lehet megoldani.
Mindenféle segítséget örömmel várnék -
VladimirR
nagyúr
graphdetect szvsz nem kell, helyette hasznalhatod igy:
gd := VGA;
gm := VGAHI;
initgraph( gd, gm, 'path\bp\bgi );
errorcode := graphresult;
if errorcode <> 0
then exit
else begin
[...]
end;
a [...] helyere megy a program - ugye egyeb esetben nincs grafikus felulet, szoval az igaz agra max egy hibauzenet mehet (komolyabb proginal esetleg bekerheted az egavga.bgi helyet)
a billentyufigyeles meg valahogy igy nez ki:
if (keypressed) and (readkey=0)
then case readkey of
75 : balra;
77 : jobbra;
80 : fel
72 : le;
end;
azert kell az elso feltetel, mert a nyilakhoz ket kod van, amibol az elso 0, s a masodikat csak akkor kerdezed, ha ez teljesul (maskulonben lehetne billentyukkel is iranyitani, pl: H=fel) -
Protezis
őstag
Bővebben: link
Bővebben: link
Egy linuxos!! leszedné őket, és futtassa már le! Semmi vírus az életemre!
Csinál egy ki.txt-t, és abban abc sorrendben kell lennie a szavaknak!
Pls! win alatt jó, linuxon ssh-n belépve meg nem rendezi sorba! Thx! -
WN31RD
addikt
válasz Protezis #492 üzenetére
Ugye nem gondolod komolyan, hogy egy ismeretlen embertől nyilvános fórumon kapott binárist bárki is lefuttat a rendszerén?
Rakd fel netre a forrást + írd le ide a függőségeit (mi kell a lefordításához - hogy ne kelljen nyomozgatni), és akkor szerintem sokkal nagyobb eséllyel találsz vállalkozó szellemű embert.''... we as consumers want our content free (as in Freedom) and if we don't get it, we'll take our content free (as in beer).''
-
Protezis
őstag
Egyrészt a forrást azért nem akarom közzétenni, mert ez egy kötelezőprogram, amit sok más embernek is meg kell oldania, és nem szeretném, ha utána azért kapnék 0 pontot, mert másnak is u.a volt a forrása. Másrészt a be.txt-t, és a programot egy könyvtárba kell tenni, és elindítani a programot. A be.txt-ben található szavakat kell kigyűjtenie, és abc-be rendezve a ki.txt-tbe írnia. Ha kicsit feljebb is olvasol pár hozzászólást, láthatod, hogy erről elég sokat beszélgettünk.
De ha gondolod, neked elküldöm mailben a forrást, és akkor átbogarászva eldöntheted, hogy trójai -e, vagy sem.
Minderre azért van szükség, mert inuxon nézik meg a program futásást, nekem meg nincs feltelepítve linuxom, a sulixom meg otthon van. A suli szerverén távolról! sikerült lefordítanom, nem sajnos a sorbarendezést nem csinálta meg. Ezért lenne jó, ha egy linuxon lefuttatná valaki.
[Szerkesztve] -
WN31RD
addikt
válasz Protezis #494 üzenetére
Ha elküldöd a forrást, belenézek, és az átláthatóságától és a fordításhoz szükséges környezetétől függően eldöntöm, hogy lefuttatom-e. Továbbadni nem fogom senkinek. Ha gondolod, emailezz.
''... we as consumers want our content free (as in Freedom) and if we don't get it, we'll take our content free (as in beer).''
-
devast
addikt
válasz Protezis #496 üzenetére
Linuxos az néha binary incompatible. Értsd ezt úgy hogy ergy bináris nem valószínű hogy minden linux/unix -on fut Vagy ha igen akkor nagyon ügyesen kell jáccani a program írásával, és a fordítási paraméterekkel És ismeretlen binárist senki nem fog neked futtatni sztem Legalábbis akinek van 1 kis esze.
[Szerkesztve]
Új hozzászólás Aktív témák
- Samsung Galaxy S24 - nos, Exynos
- Autós topik látogatók beszélgetős, offolós topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Spórolós topik
- World of Tanks - MMO
- Kerékpárosok, bringások ide!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Fejhallgató erősítő és DAC topik
- Okos Otthon / Smart Home
- Autós topik
- További aktív témák...