Fórumok
Üdv emberek!
Találtam egy feladatot amit nem értek:(
A feladat:
Bekérsz 1 számot(a) ez a ciklus kezdőértéke és kiíratod (a) tól százig a 3mal oszható számokat.
Majd a program kérdezzen rá hogy újra fusson -e le.
Ezt hogy kéne?
Valaki tudna ebben segíteni?
Előre is köszi.
Tomcsi1987
Hozzászólások
a feladat melyik pontjan akadtal el? bekered a szamot, megnezed, harommal osztva mennyi a maradek, azt levonod +3, es onnan 100-ig kiirod a szamokat harmasaval novelve.
Viszont ellenorizni kellene, hogy ne 102-nel nagyobb szamit irjon be az illeto. :)
igen igen, ezt meg bele akartam szerkeszteni, hogy az ilyen finomsagokat meg erdemes vegiggondolni:-), ebbol adodik rogton, hogy erdemes akar erre a reszre elol tesztelo ciklust valasztani
PROGRAM progi;
USES crt;
VAR
i,n: integer; {i ciklusváltozó, n-ben taroljuk, hogy honnan kell számolni}
s: string; {hogy lefusson-e újra... fölösleges a string, elég lenne egy boolean, de mind1}
BEGIN
s := 'igen'; {hogy alapból lefusson}
WHILE (s = 'igen') DO {ha le kell fusson}
BEGIN
write('honnan számoljuk? ');
readLn(n); {beolvassuk, honnan}
FOR i := n to 100 DO {ciklus onnan 100-ig}
IF (i mod 3 = 0) {ha osztható hárommal}
THEN write(i,', '); {akkor kiírjuk}
write('újra fusson? (igen/nem) ');
readLn(s); {kezdjük-e előről?}
END;
END.
remélem nincs benne hiba... korán van még.
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
-- lasd hozzaszolasom lent
a "THEN write(i,', ');" sort cseréljük "THEN write(i,' ');"-re, különben a végére is vesszőt tesz, és az csúf.
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
Huh 8 eve nem lattam pascal kodot:)
Amugy en hatultesztelo ciklust hasznalnek erre a celra:)
_______________________________________________________
UBUNTU 8.04 Rock's!
Type cat /vmlinuz > /dev/audio to hear the Voice of God.
és igazad is van, úgy mínusz egy sor, és értelmesebb (értelembszerűbb) is. csak elfelejtettem már, hogy az hogy van. :) repeat ... until ...? és a feltétel se tiszta, hogy bennmaradási vagy leállási, azért lett while. tudom, tudom, rtfm. azt nem most.
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
{kicsit feljebb kellett volna a faban}
nekem azert nem tetszik az enyemhez kepest, mert teljesen felesleges minden szamrol eldonteni,hogy oszthato-e harommal, igy ha 0-tol indul, 100x vegrehajt egy if-t es egy mod-ot is foloslegesen az egyetlen mod helyett.
sőt, a ciklust egy "i := i + 2;" sorral megtoldva pedig tovább gyorsítható. de az algoritmus így szemléletes.
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
Csúnya dolog a ciklusváltozót bactatni...
A szintaxist, azt mar en sem tudom, de azt igen, hogy az elotesztelohoz kepest ellentetesen van a feltetel, azaz igazra lepik tovabb
_______________________________________________________
UBUNTU 8.04 Rock's!
Type cat /vmlinuz > /dev/audio to hear the Voice of God.
hátul tesztelőset? hirtelen egy favágóbb megoldás jutott eszembe:
síma for ciklus: a bekért szám és a 102 minimumától fut ezen két szám maximumáig, és akkor a bekért számon se kell túl sokat vizsgálódni.
illetve csak annyit, hogy megkeresni a bekért számhoz legközelebb eső hárommal osztható számot, és onnan kel idítani a for ciklust, és akkor hármas léptetéssel hadd szóljon...
/mazursky
Ez egy 20 soros program lenne. Kuldd be legyszives, amit irtal, es ha valami rossz, segitek kijavitani. Abbol semmi hasznod nem szarmazik, ha itt megirja helyetted valaki a hazi feladatodat.
Turbo Pascalban programoztok? Esetleg Delphiben, Kylixben, FPC-ben vagy GNU pascalban?
-- nem értek egyet. bő nyállal kommenteztem. de nem kötelező elolvasni.
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
semmi gond a programoddal, kapcsolj at write-only modbol, es olvasd el amit irtam.
ok, váltottam: erre a kommentre meg kapsz olvasási jogot.
Ez egy 20 soros program lenne. :: 18 (wc -l)
Abbol semmi hasznod nem szarmazik, ha itt megirja helyetted valaki a hazi feladatodat. :: Szerintem a bőnyálas kommentekből jól látszik, hogyan kell megoldani a (vagy egy ilyen) feladatot. Ha a szintaxist ismeri, érti, megérti, közelebb kerül a szemlélethez. Ha a szintaxist nem tudja, tanulja meg, gyakorolja: addig nem sok értelme van akár ilyen egyszerű feladatok megoldásának sem.
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
Ez ok, csak szerettem volna latni, hogy probalkozik. Persze ez tenyleg tudasszint kerdese. Egyebkent teljesen egyetertek.
"_DE NEM KÖTELEZŐ ELOLVASNI_"
:: by BRI.
:: config :: Acer TravelMate // Ubuntu Hardy
:: tothab [a] gmail [pötty] kom
:: black rose immortal's weblog
Hasonló feladatok és a megoldásuk: Pascal feladatok
Több feladatból és a megoldásukból össze tudod ollózni ami neked kell!
--
не закурится!