Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Turbo Pascal programozás

Új hozzászólás Aktív témák

  • #2370 borsodika őstag
    Új Válasz #2370
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    borsodika

    őstag

    Sziasztok!
    Most lesz 1 záró vizsgám tp-ből és van 3 feladat amit nem tudok megcsinálni. Valaki tudna ebbe segíteni? Nagyon hálás lennék érte :)) A feladatok ezek lennének:
    1.Feladat:

    Kódolja az alábbiakban megadott algoritmust Pascal !
    Ki(x:y) eljárás X szöveges, ill. szám kifejezés értékét írja ki a szabványos kimenetre
    (általában a képernyőre) az aktuális karakterpozíciótól! Az aktuális karakterpozíció a
    legutoljára kiírt érték mögötti hely. A :y arra vonatkozik, hogy egy-egy érték kiíratása hány
    karakteren történjen.
    A Nem(L) az L logikai érték tagadása. Amennyiben az alkalmazott nyelv nem rendelkezik
    Logikai típussal, használjon helyette egész típusú változót, ahol 0-Hamis, 1-Igaz!
    A ’:=’ művelet (legyen egyenlő) az értékadás, ahol a bal oldali változó felveszi a jobb
    oldalon lévő kifejezés értékét.

    Konstans
    n=400
    Változók:
    b:VEKTOR(1..n):Logikai
    i,j:Egész Szám
    Program eleje
    Ciklus i:=1 től n-ig 1-esével
    b(i):=Hamis
    Ciklus Vége
    Ciklus i:=1 től n-ig 1-esével
    j:=0
    Ciklus amíg j+i<=n
    j:=j+i
    b(j):=Nem(b(j))
    Ciklus Vége
    Ciklus Vége
    Ciklus i:=1 től n-ig 1-esével
    Ha b(i) akkor KI(i:4)
    Ciklus Vége
    Program Vége

    2.Feladat
    Török szultán
    A Török szultán születésnapján gyönyörű ajándékot kapott. Annyira megörült, hogy rögtön
    valami jót akart cselekedni. Leküldte hát 400 fős szolgaseregének első szolgáját a börtönbe.
    Meghagyta neki, hogy mind a 400 cella ajtaját nyissa ki. Lett is nagy riadalom. A börtönőrök
    rettegtek. Ha szabadon engedik a rabokat, és őfelsége kedve változik, fejüket veszi. Leült hát
    négyszáz őr a négyszáz nyitott cella elé. Teljesítették is a szultán parancsát, de a rabokat sem
    engedték szabadon. Igazuk lett. A szultán megharagudott, mert a következő ajándék nem
    tetszett. Leküldte a második szolgát. Azt parancsolta, minden második ajtót zárjon be.
    Kisvártatva meggondolta magát, és leküldte a harmadik szolgát, hogy minden harmadik ajtót
    nyissa ki, ha zárva van, és zárja be, ha nyitva van. Majd leküldte a negyedik szolgát, hogy
    minden negyedik ajtón változtasson. Aztán az ötödiket, hatodikat… és így tovább egészen
    addig, míg az utolsó, a 400. szolgának azt parancsolta: Menj le és a 400. cellát nyisd ki, ha
    zárva van, De ha nyitva lenne, akkor zárd be. Így is lett. Azzal a szultán nyújtózott egyet, és
    lefeküdt aludni.
    A börtönparancsnok tudta, aznap már több parancs nem jön, és a szultán soha nem vonja
    vissza azokat a parancsait, amit előző nap adott. Szabadon engedte hát azokat, akiknek a
    cellája nyitva volt. Kiket is?
    Az ön által ismert programnyelven készítsen programot mely, szimulálja a fenti
    eseményeket, és végül megadja mely cellák ajtaja lesz nyitva a végén!

    3.
    Készítsen programot az alábbi feladat megoldására!
    Adott egy névsor egy 14 elemű vektorban. Kérje be a neveket, majd írassa ki a
    képernyőre ABC sorrendben, külön-külön sorba, úgy, hogy minden 5. név után várakozik
    egy gombnyomásra! Ezután tiszta képernyőn listázza a következő sorozatot. Minden név
    elé írjon egy listázási sorszámot!

Új hozzászólás Aktív témák