Hirdetés
- HiFi műszaki szemmel - sztereó hangrendszerek
- Házimozi belépő szinten
- Fejhallgató erősítő és DAC topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Hardverfogócska a kertben
- Fujifilm X
- A szellőzésre is figyel a Lian Li kábeleket rejtő, Infinity sorozatú mikrotornya
- Milyen TV-t vegyek?
- Projektor topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
-
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!
- Xbox Series X|S
- Autós topik
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Napelem
- HiFi műszaki szemmel - sztereó hangrendszerek
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Házimozi belépő szinten
- Kaspersky Antivirus és Internet Security Fórum
- Mesterséges intelligencia topik
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- HomeAssistant Center - spórolj pénzt automatizálással!
- HomeAssistant, szerver, böngészés: 3,4 GHz Pentium 6500Y, 8 / 128 GB és egyéb konfigurációk
- RPI 4 és 5 Service: komplett gépek összeállítása, alkatrészek + HomeAssistant
- Apple Watch Ultra 2 GPS + Cellular, 49 mm újszerű titán zöld-szürke BKNTATLAN terep pánt! Akku 99%!
- XFX RX 9070 XT 16GB GDDR6 SWIFT Triple Fan Gaming Edition - Új, 2 év gari - Eladó!
- AKCIÓ! Asrock Z270 i7 6700K 16GB DDR4 512GB SSD RTX 2060 6GB GameMax Storm 2 AB Adata 600W
- Lenovo T14 Gen 1 Ryzen 5 pro 4650U, 16GB RAM, 512GB SSD, jó akku, számla, garancia
- AKCIÓ! ASUS ROG Crosshair VIII Extreme alaplap garanciával hibátlan működéssel
- BESZÁMÍTÁS! Gigabyte Z390 i7 9700KF 16GB DDR4 512GB SSD GTX 1070 Ti 8GB Cooler MasterCM 690 III 550W
- AKCIÓ! Lenovo Thinkpad P15 Gen 1 FHD notebook - i7 10850H 32GB DDR4 1TB SSD T2000 4GB W11
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



