Ha van egy kis időd, nézz szét meglévő klubjaink között!
Kapcsolódó sorozat: Programozzunk Pascalban (109)
(51)
Programozás Pascalban: Általános Algoritmus: Megszámlálás ismeretlen elemszám esetén
Programozás Pascalban: Általános Algoritmus: Megszámlálás ismert elemszám esetén
Programozás Pascalban: Általános Algoritmus: Összegzés, átlagszámítás
Programozás Pascalban: Általános Algoritmus: Keresés ismert elemszám esetén
(54)
-
Programozás Pascalban: Általános Algoritmus: Megszámlálás ismeretlen elemszám esetén
2010. február 23. 12:09:10 |
Szétnézünk egy kicsit az általános algoritmusok háza táján, ezúttal a megszámlálás lesz a célpont, amit kétféleképpen fogunk elkészíteni Pascalban.
-
Amire szükségünk lesz
Pascal -
Általános algoritmus
Egy általános algoritmus, amit sokszor használunk programozás során. Az ismeretlen elemszám azt jelenti, hogy nem tudjuk pontosan a vizsgálandó elemek számát. Olyan feladattípus, amikor a sorozat valamely tulajdonsággal rendelkező elemeit számoljuk meg.
Szükségünk lesz egy számláló változóra. A ciklus addig fut, amíg van elem. Ha az elem megadott tulajdonságú, akkor a számláló érték egyel növekszik és hozzáférünk a következő elemhez. Ha vége van a ciklusnak, kiiratjuk, hogy mennyi érték van a számláló változóban. A programnak akkor lesz vége, ha a felhasználó végjelet üt.
Vélemények, hozzászólások
..
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.
case valami of
'N':begin
szöveg
szöveg
stb
(és itt vége a programnak nekem egy olyan kéne hogy ha itt megint írunk N-t visza tér ennek a cuklusnak az elejére, és nem a program elejére)
end;
Előre is köszi
Statisztika
| Megtekintések száma: | 3393 | Hozzászólások: | 10 |
| - VideoSmart.hu-n: | 3393 | Kedvencek között: | 0 |
| - Más oldalon: | 0 | Értékelések: | 1 |
FlamingClaw
FlamingClaw további videótippjei »
Szétnézünk egy kicsit az általános algoritmusok háza táján, ezúttal a megszámlálás lesz a célpont, amit kétféleképpen fogunk elkészíteni Pascalban. (több infó) (kevesebb infó)
Mit csinálhatsz a VideoSmart.hu-n?
Tanulj kikapcsolódva
Túl sokmindent akarnak megtanítani, de nem tetszenek a módszerek? Itt játszva tanulhatsz az élet minden területéről!
Tölts fel videótippet
Ha van olyan tipped, amit megosztanál a nagyvilággal, illetve te valamit máshogy csinálnál, töltsd fel mielőbb!
Szólj hozzá
Miután megnézted, vagy elolvastad a tippet, véleményezd azt, hogy minél jobb tartalommal tölthessük fel az oldalt!
Csinálj klubot
Készíts saját klubot, ahová mások is csatlakozhatnak, és közösen egyre nagyobb videóbázist hozhattok létre!
Főoldal | Jogi tudnivaló | Felhasználási feltételek | Sajtószoba | Kapcsolat
VideoSmart - 2.0.5. | © Next Project Kft. - Minden jog fenntartva.
Powered by VideoSmart.hu, nyilván :)