- NVIDIA GeForce RTX 5060 Ti (GB206)
- Mini-ITX
- Úgy tér vissza a Commodore 64, ahogy titkon mindenki várja
- Milyen videókártyát?
- Milyen TV-t vegyek?
- OLED TV topic
- DUNE médialejátszók topicja
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- 5:4 képarányú SXGA monitor jön ősszel az EIZO berkeiből
- HDD probléma (nem adatmentés)
-
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!
- Milyen autót vegyek?
- E-roller topik
- Gyúrósok ide!
- Nintendo Switch 2
- Autós topik
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Borotva, szakállnyíró, szakállvágó topic
- Háztartási gépek
- Xiaomi 15 - kicsi telefon nagy energiával
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...
- SanDisk Extreme Portable 8TB (SDSSDE61-8T00-G25)
- Samsung Galaxy A41 64GB Kártyafüggetlen, 1Év Garanciával
- Bomba ár! Lenovo ThinkPad L13 G1 - i5-10GEN I 16GB I 512SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- AKCIÓ! Intel Core i7 8700K 6 mag 12 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest