-
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!
- Parfüm topik
- Tőzsde és gazdaság
- Apple MacBook
- Mazda topik
- Amazfit Active 2 NFC - jó kör
- Milyen monitort vegyek?
- Kormányok / autós szimulátorok topikja
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Android alkalmazások - szoftver kibeszélő topik
- Ami Kínában OnePlus Pad Pro, az errefelé mégis csak Pad 2 lett
- További aktív témák...
- BESZÁMÍTÁS! Asus B150M i5 7600K 16GB DDR4 240GB SSD RX 580 8GB Kolink Aviator DeepCool 400W
- BESZÁMÍTÁS! Gigabyte Z270 i5 7600K 16GB DDR4 256GB SSD GTX 1060 3GB Zalman Z1 CHIEFTEC 500W
- Macbook Pro 14" A2442 2021 M1 Pro 16/512 (3)
- Macbook Pro 14" A2442 2021 M1 Pro 16/512 (2)
- T-Force Delta RGB DDR5-6000 16GB (2x8GB) fehér
- GYÖNYÖRŰ iPhone 13 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4393, 100% Akkumulátor
- iPhone 13 128GB Red-1 ÉV GARANCIA - Kártyafüggetlen, MS4593, 100% Akkumulátor
- Új Honor Magic8 Lite 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- HIBÁTLAN iPhone 15 Pro 128GB Blue Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4692, 92% AKKSI
- Keresek Galaxy S21/S21+/S21 Ultra/S21 FE
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


