Pascalhoz segítségkérés

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.

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

é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

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

Love your job but never love your company!
Because you never know when your company stops loving you!

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?

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