Pascalhoz segítségkérés

Kylix/Pascal

Ü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

  • 5514 megtekintés

( Skuzzy | 2008. 10. 07., k – 10:35 )

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.

( bri | 2008. 10. 07., k – 11:14 )

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!

( chromecat | 2008. 10. 07., k – 11:16 )

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