Mit rontottam el ebben a programozásban?
Program valami;
Uses Crt;
Var a: array[1..10] of integer;
i: integer;
min: integer;
max: integer;
p: integer;
begin
for i:=1 to 10 do
a[i]:=random(100);
write(a[i]);
end;
writeln;
write('Kerem a szamot: ');
write(p);
min:=100;
max:=0;
for i:=1 to 10 do
if a[i]>p then
if a[i]<min then
min:=a[i];
end
else
if a[i]>max then
max:=a[i];
end;
end;
write('P szam: ');
readln(p);
write('A legkisebb: ');
readln(min);
write('A legnagyobb: ');
readln(max);
End.
válasza: válasza:13:26 vagyok ismét.
Sokat segít a megértésen, ha az egyes if-ek és for-ok magjait beljebb kezded. Ha ebben következetes vagy, akkor az ilyen hibák is kiderülnek könnyebben.
válasza:13:28: Valójában biztos úgy írta, csak itt GYK-en a válaszoknál a sorok elejéről a whitespace karakterek automatikusan eltűnnek.
Kérdező: A p-nek nem adsz kezdőértéket és az elején, amikor be akarod olvasni, akkor kiírod helyette a képernyőre. Rendes fordító ezt nem is hagyná lefordítani.
válasza:-Többek közt az első válaszoló által írt.
-write(p); valószínűleg ez akart lenni: readln(p);
-Nincs randomize
-A min-t és a max-ot általában a[1]-el szokták egyenlővé tenni (csak, hogy más szám esetén se fuss ki az intervallumból, ezen konkrét program esetén így is működnie kell)
-A program legvégén nem kiíratni akarod esetleg a p számot, a legkisebbet és a legnagyobbat (mert most beolvasás van)
Most hirtelen csak ennyi észrevételem van, de lehet, van még benne hiba.
válasza: válasza:1. Hiányzik a randomize.
2. 14 sorban levő endnek nincs beginje.
3. A p-t nem olvasod be, hanem kiirod.
4. Az összes többi end-nek sincs beinje... :S
5. A végén te beolvasod a min-t és maxot.... nem kiirni kellene?
válasza: válasza:Házi feladat? Karácsonykor? Nem tudom... :D
Boldog Karácsonyt!
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, 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!