Mi a hiba a programban?
Lottozó programot szeretnék csinálni , ahol előszór bekér 5 számot és ha nem kisebb 1-nél, de nem is nagyobb 90-nél akkor generáljon le magától 90-ig számokat
program valami;
var a,b,c:integer;
begin
for b:= 1 to 5 do
begin
a:=0;
repeat
writeln(b, '. szám:');
readln(a);
if a < 1 then write('Írj be nagyobb számot')
else if a > 90 then write('Írj be kisebb számot')
else
for c:= 1 to 5 do
Begin
until
randomize;
a:=random(89)+1;
writeln(a);
end;
end.
és ha lehetséges a végén kiírja, hogy szám jó és ebből hány van jó helyen
Rengeteg hiba van benne, gyakorlatilag semmi nem jó.
Használj tömböt!
Ez például eléggé világító hiba:
"Begin
until "
Külső ciklust nem zárhatsz le a belső ciklus lezárása előtt.
Meg amúgyis hiányzik az Until feltétele.
Meg valóban, tömb nélkül nem igen fogsz ciklussal eltárolni 5 számot.
> Tömb nélkül nem lehet megcsinálni??
Nem. Kicsit nézz még utána, tanulj még. Amúgy dicséretes, hogy gyakorolsz, ne add fel!
"> Tömb nélkül nem lehet megcsinálni??
Nem. Kicsit nézz még utána"
Lehet, hogy neked sem ártana...
Tudtommal egy (véges) ciklus nagyon egyszerűen átalakítható szekvenciává... Csak hát hosszabb lesz a forráskód... DE NEM LEHETETLEN!
Korán küldtem el...
* Szóval átalakítja szekvenciává, és utána már lehet 5 változót használni egy 5 elemű tömb helyett...
Ha nem tudsz tömböket használni, akkor nem gondolod, hogy ideje megtanulni?
Ha ezzel szeretnél foglalkozni (ne adja Isten), akkor a megrendelőnek is azt fogod mondani, hogy "Nem tudok tömbözni, ez így marad"? O.o Ilyen hülyeséget se hallottam még...
Javasolnám, hogy kicsit járj utána a dolgoknak... Egy 5-ös lottó programot szerintem 10 perc alatt simán le lehet gépelni.
> Tömbözni nem tudok, úgyhogy ez így maradt
Ami azt illeti, így soha nem is fogsz.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!