Programozás Pascalban: Általános Algoritmus: Megszámlálás ismeretlen elemszám esetén

Mármint úgy érted, hogy lehet e grafikus programot készíteni? A válasz igen. De javaslom, hogy vegyél egy könyvet, mindent itt nem tudok neked elmagyarázni, sem annyi időm, sem kedvem jelen helyzetben. Vegyél egy jó pascal könyvet az alapoktól egészen a haladó szintig, és akkor sok kérdésedre megkapod a választ. Így nem lehet nyelvet tanulni, hogy ki mit mond..Érted? Tanulj, légy szorgalmas, és a fáradozásaidnak meg lesz a gyümölcse, de kezd az alapoktól. Ha az alapokat át lehetne ugrani, akkor ma Magyarországon mindenki 2-3 D-s játékokat készítene nulla tudással, és raedli pénzt keresne az eladott játékok után. Még én is, he..he...

Akkor tedd bele a CASE szerkezetet vagy egy REPEAT..UNTIL ciklusba, vagy pedig egy WHILE ciklusba.

..
Repeat
  Case valami of
    'N': Begin
             {ha valami értéke N akkor részletek itt}
          End;
     'I': Begin
             {ha valami értéke I akkor részletek itt}
         End; 
  End; {case vége}
Until valami = 'I';

Amire itt figyelned kell, hogy valami változó értéke vagy 'I' lehet vagy 'N'. A ciklus addig fut, amíg valami értéke 'I' nem lesz. Tehát ha 'N' akkor vissza a Case elejére. Csak arra ügyelj, hogy ne legyen végtelen ciklus. Miért is? Mert jelen kódban semmi nem változtatja meg ciklusba lépéskor a valami változó értékét. Tehát helyesen:

Repeat
  WriteLn('Válasz: ');
  ReadLn(valami);
  Case valami of
    'N': Begin
             {ha valami értéke N akkor részletek itt}
          End;
     'I': Begin
             {ha valami értéke I akkor részletek itt}
         End; 
  End; {case vége}
Until valami = 'I';

Remélem segített megérteni.

Bíztam benne, :-D . Ezért is nem akartam még egyszer leírni azt amiről már videó is van. További sok sikert a programozásban.