- Motorola ThinkPhone - gondold végig kétszer!
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- iPhone topik
- Apple iPhone 16 Pro - rutinvizsga
- Hivatalos a OnePlus 13 startdátuma
- Milyen okostelefont vegyek?
- Bemutatkozott a Poco X7 és X7 Pro
- Xiaomi 14T - nem baj, hogy nem Pro
- Apple iPhone 17 - alap
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Ú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
- Elemlámpa, zseblámpa
- Óvodások homokozója
- Motorola ThinkPhone - gondold végig kétszer!
- Allegro vélemények - tapasztalatok
- OLED monitor topic
- Kettő együtt: Radeon RX 9070 és 9070 XT tesztje
- Battlefield 6
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- exHWSW - Értünk mindenhez IS
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- GYÖNYÖRŰ iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA -Kártyafüggetlen, MS3605
- HIBÁTLAN iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3288
- GYÖNYÖRŰ iPhone 13 Pro 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3083
- Részletfizetés . ASUS TUF Gaming A18 FA808UM-S8019
- AKCIÓ! Asus ROG STRIX Z490-G Gaming WiFi alaplap garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest