Miért nem jön ki a feladat?
Figyelt kérdés
Pascal programmal kell meghatározzam a 3-al oszható számok szorzatát 1-től n-ig, while ciklussal.
Az én programom:
var n,i,j:integer;
begin
j:=1;
write('Add meg az n erteket: ');
readln(n);
while i<n do begin
j:=j*i div 3;
end;
writeln('A szamok szorzata: ',j);
end.
Mi benne a hiba ?
2010. szept. 29. 21:03
1/3 anonim 
válasza:
válasza:pl az, hogy az i változónak nem adsz sehol értéket.
2/3 zsomkovacs 
válasza:
válasza:Egyrészt amit az előző válaszoló mondott (nem csak kezdőérték kell, léptesd is!). Továbbá érzésem szerint a whileban < helyett <= kéne.
Így már csak az a gond, hogy 1-től n-ig a számok harmadának egészrészének szorzatát kapod, a hárommal osztható számok szorzata helyett. A
j:=j*i Div 3;
helyett
If (i Mod 3=0) Then
j:=j*i;
-nek kéne állnia.
3/3 zsomkovacs válasza:
válasza:Vagy ha szebben akarod, a ciklust cseréld erre:
i:=3;
while (i<=n) do
begin
j:=j*i;
i:=i+3;
end;
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
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!