Hirdetés
- Apple iPhone 13 - hízott, de jól áll neki!
- iPhone topik
- Milyen okostelefont vegyek?
- Kézbe fogható paradoxon lett az iPhone Air
- Nonjour: nem fordít az EU-ban az AirPods
- Megjelent a Sony Xperia 10 VII
- Két butatelefon és egy 5G-s okos a HMD-től
- Nagyon erős ajánlat lett az Apple Watch SE 3
- Okosóra és okoskiegészítő topik
- Megérkezett a Google Pixel 7 és 7 Pro
Új hozzászólás Aktív témák
-
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 érteA 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ége2.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
- Eladó két darab JBL PartyBox 520 hangszóró újszerű állapot, 34hónap garanciával!
- Megválnék a fotós arzenálomtól 6D MkII, Sigma üvegek, vakuk, és még sok más
- DELL T3620 WORKSTATION INTEL XEON I7-6700 / NVME SSD / DDR4 - vga tápkábel
- Gamer PC - R5 5500, RTX 2060 és 16gb RAM + GARANCIA
- 2025-Ös 10 Magos Legújabb Intel Core Ultra 5 225F 10x4.9Ghz RTX 5060TI 16/32Gb DDR5 5600Mhz 1TB M.2
- Azonnali készpénzes Apple Macbook Air felvásárlás személyesen / csomagküldéssel korrekt áron
- Készpénzes számítógép PC félkonfig alkatrész hardver felvásárlás személyesen / postával korrekt áron
- BESZÁMÍTÁS! MSI B450 R7 1800X 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA Corsair 550W
- GYÖNYÖRŰ iPhone 12 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3438, 94% Akkumulátor
- Bomba ár! Fujitsu LifeBook U728 - i3-8GEN I 16GB I 192SSD I 12,5" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest