Hirdetés
- Samsung Galaxy S23 Ultra - non plus ultra
- iPhone topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Samsung Galaxy A56 - megbízható középszerűség
- Megérkezett Magyarországra a Poco F8 Pro is
- One mobilszolgáltatások
- Jelentősen átalakulhat a Xiaomi 17 Ultra kamerarendszere
- Kezünkben a OnePlus 15 és az Oppo Find X9-ek
- Okosóra és okoskiegészítő topik
- Milyen okostelefont vegyek?
Új hozzászólás Aktív témák
-
QuarK
senior tag
Loading constant values into segment registers
Performing arithmetic operations on segment registers of selectors
Using segment registers for temporary storage
Writing to code segments
Accessing memory beyond the local address space given to your application
Derefencing nil pointers
Leginkább arra tudok gondolni, hogy az egyik tömbödből kiírtál, és teleszemetelted a memóriát. Pl.: egy 10 elemű tömb esetén ez történt: tomb[99] := blabla...
(Lassú vagyok
)
[Szerkesztve] -
Lortech
addikt
┌───────────────────────────┐
│ General Protection fault │
└───────────────────────────┘
This error results if you try to access memory
that is not legal for your application to
access. The operating system halts your
application and tells you that a general
protection (GP) fault occurred, but your
system does not crash.
The following practices cause GP faults:
■ Loading constant values into segment registers
■ Performing arithmetic operations on segment registers of selectors
■ Using segment registers for temporary storage
■ Writing to code segments
■ Accessing memory beyond the local address space given to your application
■ Derefencing nil pointers
szerk: bocs Quark
[Szerkesztve] -
bbazsy
őstag
ezt én élesbe csináltam(teljes feladatsor, külön tanárnál, 4 óra alatt..), 2.5 órát szoptam csak ezzel, de végül 100% -os lett.
a beolvasás valami 2 oldal pascalba, nagyon bonyolultra vettem, de nem tudtam máshogy.
holnap elkérem majd, ha esetleg utolsó nap rá akarsz gyúrni
amúgy nézem most a megoldását a feladatnak, és csak nézek... nem fogom fel, h hogy lehet ilyen a beolvasás, de mégis... Te azt érted ? -
norbiphu
őstag
Én így csináltam szerintem így a legegyszerűbb:
assign(f,'C:\lottosz.dat');
reset(f);
for i:=1 to 51 do
for j:=1 to 5 do
begin
read(f,lotto[i,j]);
t[lotto[i,j]]:=1;
end;
close(f);
t[lotto[i,j]:=1-re nincs szükség a beolvasáshoz csak ennek segítségével könnyen vizsgálható mely számokat nem húzták ki (1-est kihúzták, 0-t nem)
[Szerkesztve] -
Lortech
addikt
program parse;
uses crt;
var
f: text;
s:string;
i, index, szk: byte;
szam: array[1..5] of byte;
code:integer;
begin
clrscr;
assign(f,'c:\akarmi.txt');
reset(f);
readln(f,s);
close(f);
i:=1;
szk:=1;index:=0;
while (i<=length(s)) do begin
if (s[ i ]=#32) or (i=length(s)) then
begin
inc(index);
if i=length(s) then val(copy(s,szk,i+1-szk),szam[index],code)
else
val(copy(s,szk,i-szk),szam[index],code);
szk:=i;
end;
inc(i);
end;
for i:=1 to 5 do writeln(szam[ i ]);
readln;
end.
Itt ott tákolás, kissé gagyi, biztos van jobb is, de mikor nincs kedvem gondolkozni, ilyeneket alkotok.
Ha ''readln(f,s);'' sort ciklusba teszed, és csinálsz még egy másik dimenziót a tömbnek, akkor kész is a beolvasás. Jah, természetesen akarmi.txt a megfelelő formátumban van és létezik.
Ákoska: [link]
[Szerkesztve] -
Tangerine
senior tag
Valami ilyesmi: (nem póbáltam ki)
type
thuzas= record
szam : array [1..5] integer;
end;
var
lotto: array [1..52] of tHuzas ;
szam, x, y, max, temp,het, hibakod :integer;
kihuzva: set of integer;
valasz: string;
begin
{52. heti beolvasás}
x := 1;
kihuzva := [];
het := 52 ;
max := 5 ;
repeat
writeln('Kerem a '+ IntToStr (x) + '. szamot!: ') ;
readln(valasz);
val(valasz,szam,hibakod);
if (hibakod = 0) and (szam not (in kihuzva)) and (szam > 0) and (szam < 91) then
begin
lotto[het].szam[x] := szam;
kihuzva := kihuzva + szam;
inc(x);
end
else
begin
writeln('Hiba: ' + valasz);
readln;
end;
until x > 5 ;
{52. heti rendezés}
for x := 1 to Max - 1 do
begin
for y := x+1 to Max do
begin
if lotto[het].szam[x] > lotto[het].szam[y] then {csere-bere}
begin
temp := lotto[het].szam[x];
lotto[het].szam[x] := lotto[het].szam[y];
lotto[het].szam[y] := temp;
end;
end;
end;
end.
[Szerkesztve] -
Tyrael
senior tag
http://www.prog.hu/tudastar/47584-11/Matematikai+fuggveny+szam+-e.html
itt pont errol beszeltek tegnap.
ez lett a helyes megoldas:
''
Szia.
A System unit Val függvénye lesz a neked megfelelő.
Val(szoveg :String; var szam; var kod :Integer);
Ez a szoveg Stringben megadott szöveget számmá konvertálja a szam változóba. A visszatérési érték a kod. A kod=0 ha minden hibátlan, ellenkező esetben pedig az a hely, ahol szoveg adott karaktere már számmá nem alakítható.
Itt egy példa:
Var s1 :String;
i, j :Integer;
r :Real;
Begin
s1:='12'; Val(s1,i,j); {i=12, j=0 mert hibátlan}
s1:='1.2E3'; Val(s1,r,j); {r=1.2, j=0}
s1:='123a76'; Val(s1,i,j); {i=0, j=4 mert az 'a' nem konvertálható számmá}
End.
''
Tyrael
[Szerkesztve] -
Lortech
addikt
A megfelelő rutin megszerzése után a ''feladatok'' többsége már nem sok újat tud nyújtani, én inkább azt javaslom, hogy nézegess ''durvább'' algoritmusokat, és matematikai problémákat, aztán próbáld átültetni pascalba. Az ismert rendezések csuklóból mennek? Keresések, eldöntés, kiválasztás, összefésülés, szétválogatás, halmazműveletek, dinamikus adatszerkezetek megvalósításai, ''veremműveletek'', prímszámkereső algoritmusok, euklideszi, lnko, lkkt, osztók, relatív prím, barátságos számok, meg még ki tudja milyen nevezetes matekos számok? Azt akarom ebből kihozni, hogy azzal nem tanulsz, ha olyan feladatokat oldasz meg, amit csak idő kérdése megoldani.
[Szerkesztve] -
Lortech
addikt
ment priv.
Sátánné: feladtad?
Csináltam egy vázlatot, hogy kb én hogyan gondoltam.
Többféleképpen lehet értelmezni, én úgy oldaottam meg, hogy bővítettem az 1-10-es intervallumot egy 0. és 11. elemmel, hogy ne lépjenek ki, ne vesszenek el az első illetve utolsó elemek.
változók:
tomb: egész[0-11]; (!)
i: egész;
program kezd
ciklus i=1-től 10
be: tomb[ i ];
ciklus vége;
ciklus amíg nem(irany=''f'' vagy irany=''l'')
be: irany;
ciklus vége;
Ha irany=''f''
elágazás kezdete
ciklus i=0-től 9-ig
tomb[ i ]=tomb[ i+1 ];
ciklus vége;
egyébként
ciklus i=11-től 1-ig
tomb[ i ]=tomb[ i-1 ];
ciklus vége;
elágazás vége.
program vége.
[Szerkesztve] -
cucka
addikt
flush eljárás esetleg? kiüríti a file-hoz tartozó buffer-t. lehet, hogy a readln kavar be, amit minden sor kiiratása után kérsz be, mondjuk beragad egy enter a buffer-be. egy próbát talán megér. (valami hasonlóval voltak nekem is gondjaim, de ez nagyon rég volt, így lehet, hogy full hülyeség, amit most írtam
)
egyébként a külső repeat ciklus elején be kéne false-ra állítani a kor változót, hogy az első üres sor után ne lépjen ki soronkét a belső repeat-ből. így is működik, csak nem túl szép
[Szerkesztve] -
_eskimo
csendes tag
Nem jöttem rá, hogy neked miért nem megy. Nekem megy (ugyanazzal a kikötéssel: sor<>'').
Megírtam a progit, ami megoldja a feladatod (az én bike.be fájlomon). (Igaz a futam.txt -t csak a TC nézőkéje írja ki normálisan, a jegyzettömb valamiért nem.
).
Javaslom, hogy először a te progid próbáld az én bike.be fájlomon, hátha megy. Ezzel .be a fájllal megoldható a feladat.
Ha nem megy, akkor próbáld ki az én exem a te bike.be fájlodon.
Megtalálod a zipet itt: [link]. (Ebben benne van az exe, a bike.be és a forráskód.)
(A forráskódot csak segítségnek szántam. Böngészd át nyugodtan, hátha találsz benne valami használhatót, de a programot ÍRD MEG TE IS, abból is csak tanulsz. Egyébként én is azért írtam meg, mert jó kihívásnak láttam. Mindenesetre másképp fogtam neki, mint te.)
)
)
Új hozzászólás Aktív témák
- Eladó egy remek állapotban lévő Samsung Galaxy Z Flip6 (512GB) okostelefon (garanciás)
- Latitude 5550 15.6" FHD IPS Ultra 7 165U 16GB 512GB NVMe ujjlolv IR kam gar
- The Last Of Is 1-2 ps5 játék eladó!
- PS 5 játékok Konzolboltból garival. Beszámítás, csere van. 11 28
- Tesoro GRAM MX One (TS-G11UNL) mechanikus billentyűzet
- Apple iPhone XR / 128GB / Kártyafüggetlen / 12Hó Garancia / 95% Akku
- REFURBISHED - Lenovo ThinkPad 40AF Dock (DisplayLink)
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3388, 100% Akksi
- Gamer PC-Számítógép! Csere-Beszámítás! I7 12700E / RTX 3070Ti / 32GB DDR5 / 1 TB SSD
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest