- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Hivatalosan is bemutatta a Google a Pixel 6a-t
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Samsung Galaxy S23 Ultra - non plus ultra
- Honor Magic V5 - méret a kamera mögött
- Google Pixel topik
- Ne felejtsd el a páncélt lemeríteni!
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
-
Mobilarena
Ú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!
- Kormányok / autós szimulátorok topikja
- Elektromos autók - motorok
- Gmail
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Star Trek
- Akciókamerák
- Kerékpárosok, bringások ide!
- E-roller topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- WoW avagy World of Warcraft -=MMORPG=-
- További aktív témák...
- Logitech G923 Racing Wheel and Pedals Xbox One/PC Kormány És Pedálsor
- eladó 4db 2TB NASware WD red (WD20EFAX)
- Xiaomi Redmi Note 13 Pro+ 5G 512GB 12GB RAM - 2027. FRBRUÁRIG GARANCIÁS / akár beszámítással is
- ÚJ Lenovo LOQ 15ARP9 - 15.6" FullHD IPS 144Hz - Ryzen 7 7435HS - 24GB - 512GB - RTX 4050 - 2 év gari
- LG OLED42C44LA 2 Év Gyári Garancia
- HIBÁTLAN iPhone 12 mini 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2036
- DELL Precision 5540 Workstation i7-9850H Nvidia Quadro T1000 16GB 512GB 15.6 új akksi 1év garancia
- Bomba ár! Lenovo ThinkPad Yoga 260 - i5-G6 I 8GB I 256SSD I 12,5" Touch I W10 I Cam I Gari!
- LG 48B4 - 48" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- LG 27GS60QC-B - 27" Ívelt - 2560x1440 - 180Hz 1ms - AMD FreeSync - Bontatlan - 2 Év Gyári Garancia
Állásajánlatok
Cég: FOTC
Város: Budapest