Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: MárkaLánc
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gban: Ingyen kellene, de tegnapra
- mefistofeles: Az elhízás nem akaratgyengeség!
- aquark: Zsebszámológépek
-
LOGOUT

Ú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!
- Projektor topic
- Kertészet, mezőgazdaság topik
- Tőzsde és gazdaság
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Forza sorozat (Horizon/Motorsport)
- Nyíregyháza és környéke adok-veszek-beszélgetek
- VR topik
- Samsung Galaxy Felhasználók OFF topicja
- Nagyrobogósok baráti topikja
- Háztartási gépek
- További aktív témák...
- Corsair iCUE ELITE CPU Cooler LCD Display Upgrade Kit
- Lenovo Thinkpad E595 Ryzen 5 pro 3500U, Radeon Vega 8, 8-16GB RAM, SSD, jó akku, számla, gar
- Bomba ár! HP Dragonfly G4 i7-13G I 32GB I 512SSD I 13,5" FHD+ Touch I Cam I W11 I Garancia!
- Bomba ár! HP Elite Dragonfly Max i7-11G I 32GB I 512SSD I 13,3" FHD Touch I Cam I W11 I Garancia!
- Intel Core i7-13700 vennék!
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS B360 i7 9700 16GB DDR4 512GB SSD RTX 2070 8GB Cooler Master MasterboxTD500 FSP 650W
- Xbox One S All Digital 1 TB + kontroller 6 hó garancia, számlával!
- Apple iPhone 15 128 GB Black 1 év Garancia Beszámítás Házhozszállítás
- Lenovo ThinkPad P1 Gen 4 i7 32GB RAM 1TB SSD NVIDIA RTX A2000 2560X1600 400nit Garancia 19 hónap
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


