-
Fototrend

Ú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!
- Anglia - élmények, tapasztalatok
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Yettel topik
- Kormányok / autós szimulátorok topikja
- Apple MacBook
- Milyen billentyűzetet vegyek?
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Vezeték nélküli fejhallgatók
- Xbox Series X|S
- Bluetooth hangszórók
- További aktív témák...
- BONTATLAN Új iPhone 17 PRO 256-512GGB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- Bomba ár! HP ProBook 430 G3 - i5-6GEN I 4GB I 500GB I HDMI I 13,3" HD I Cam I W10 I Garancia!
- Bomba ár! Lenovo Tablet 10 - Intel N4100 I 8GB I 128SSD I 10,1" WUXGA I HDMI I Cam I W11 I Gari!
- Eladó egy Xiaomi k50 ultra (Xiaomi 12t pro) snapdragon cpu
- Bomba ár! Dell Latitude 3500 - i5-8GEN I 8GB I 256SSD I HDMI I 15,6" HD I Cam I W11 I Gar!
- Lenovo IdeaPad Slim 3 Ryzen 7 8840HS 15" FHD+ 16GB 1000GB Teljeskörű garancia
- Bomba ár! Lenovo ThinkPad T430s - i5-3GEN I 8GB I 320GB I 14" HD+ I Cam I W10 I Garancia!
- AKCIÓ! Gigabyte B650M R7 8700F 64GB DDR5 1TB SSD RTX 5070 Ti 16GB Lian LI LANCOOL207 ADATA 850W
- Samsung, SK Hynix 8GB / 16GB / 32GB DDR5 laptop Memoria!
- Lenovo X1 Yoga G4 i5-8265 számlával, garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


