Hirdetés
- Home server / házi szerver építése
- Melyik tápegységet vegyem?
- Vezeték nélküli fejhallgatók
- AMD Navi Radeon™ RX 9xxx sorozat
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Vezeték nélküli fülhallgatók
- Windows 11: miért nem vált mindenki?
- Befutott a peronra a hardvervonat
- Váratlanul ledobta asztali csúcs-Ryzenjét az AMD
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
-
PROHARDVER!

Új hozzászólás Aktív témák
-
klambi
addikt
szevasztok!
segítséget szeretnék kérni, mert van néhány feladat, amiben elakadtam!
pascal-os mind!!1,
Ismertesse a WHILE ciklusszervező utasítás általános alakját! Működését szemléltesse folyamatábrával is!
Szervezzen ciklust, amelyben kiíratja az X változó értékét a következők szerint: 10 20 30 40 50 60 702,
Adott a következő rekordszerkezetű típusos fájl. Írja meg a program hiányzó utasításait!
Feladat: az adatállomány rekordjait végigolvasva meghatározni és kiíratni az 1. évfolyam legnagyobb ösztöndíját(Max_od1) és a kollégisták átlagos ösztöndíját(Atl_od).
A rekordok adatmezőit nem kell képernyőre kiíratni!
program pr55;
uses crt;
type t1=record
nev :string[15];
evf :byte;
koll :char; { I/N }
osztd :integer;
end;
var r1 :t1;
beginassign(f1,'adat1.dat');
Write(’Kollégisták átlagos ösztöndíja:’,Atl_od:10:2);
Readln; end.3,
Írjon függvény típusú alprogramot(hatv), amelynek formális paraméterei :alap, kitevo.
A függvény visszatérő értéke, a hatvány érték (alap a kitevőre emelve).
Alkalmazza egyszer a függvényt! Írassa ki a T nevű változó 4. hatványát!4,
Var M:array[1..10,1..20] of integer;
Írjon programrészt, amely
- Adatellenőrzéssel beolvassa az elemek értékét (-20 <= m[i,j] <= 50),
- meghatározza és kiírja, hogy a 4. sorban van-e 0 értékű elem (VAN 0 ill. NINCS 0)ezekben tud valaki segíteni, fontos lenne!

Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Gitáros topic
- PlayStation 5
- gban: Ingyen kellene, de tegnapra
- A fociról könnyedén, egy baráti társaságban
- Samsung Galaxy Felhasználók OFF topicja
- Egyre több tényező hajtja felfelé az árakat, és hol van még a vége?
- Linux kezdőknek
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Home server / házi szerver építése
- Trollok komolyan
- További aktív témák...
- SAPPHIRE RX 9070 16GB GDDR6 NITRO+ OC - Új, 2 év gari - Eladó!
- Apple iPhone 13 256GB, Kártyafüggetlen, 1 Év Garanciával
- ASRock RX 9070 12GB GDDR6 Challenger - Új, 2 év garancia - Eladó!
- SAPPHIRE RX 9070 12GB GDDR6 PULSE - Új, 2 év garancia - Eladó!
- Apple iPad 9 64GB,Átlagos,Adatkabel,12 hónap garanciával
- HP EliteBook 840 G7 i5-10210U 16GB 256GB FHD 400nit 1 év garancia
- Xbox Wireless Headset 3 hó garancia, számlával!
- Bomba ár! Lenovo ThinkPad P15s G2 - i7-11G I 16GB I 512SSD I Nvidia 4GB I 4K I Cam I W11 I Gari!
- HP ProDesk 600 G4 USDT,Pentium Gold G5400T,8GB DDR4,256GB M2 SSD,WIN11
- Apple iPhone 14 Pro Max / 128GB / Független / 12Hó Garancia / Akku: 100% / Kijelző utángyártott
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



