Hirdetés
- gban: Ingyen kellene, de tegnapra
- gerner1
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- GoodSpeed: Nem vénnek való vidék - Berettyóújfalu
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Haworth Aloha – egy nemcsak szavakban ergonomikus szék
- Olcsó/régi telefonok fotói egymás mellett
-
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!
- Xbox Series X|S
- Miért fárad gyorsabban az iPhone akku, mint az androidos?
- Nem indul és mi a baja a gépemnek topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Mini-ITX
- Sorozatok
- Prohardver app (nem hivatalos)
- Telekom TV SmartBox: szolgáltatói set-top box alacsony korlátokkal
- Háztartási gépek
- Linux Mint
- További aktív témák...
- Lenovo IdeaPad Slim 3 16ABR8 Ryzen 5, 16GB RAM, 512GB SSD, dedikált grafika, garanciás
- Hp Zbook Fury G7 " Gyári magyar Bill " Sok - Sok darab!!!!
- Bomba áron GIGABYTE G5 /I7-13620H 16GB 1 TB SSD Nvidia RTX 4050 6GB 144 Hz FHD IPS
- Honor Pad X8 / 4/64GB / Wi-Fi / 12 Hó Garancia
- Samsung Galaxy A16 / 4/128GB / Kártyafüggetlen / 12Hó Garancia
- GYÖNYÖRŰ iPhone 12 Pro 128GB Graphite-1 ÉV GARANCIA - Kártyafüggetlen, MS3669, 100% Akksi
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3337, 94% Akkumulátor
- HIBÁTLAN iPhone 14 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3919, 100% Akkumulátor
- BESZÁMÍTÁS! MSI H310M i5 9400F 16GB DDR4 240GB SSD 2TB HDD RTX 2060 6GB THERMALTAKE VERSAH17 600W
- Telefon felvásárlás!! Samsung Galaxy A20e/Samsung Galaxy A40/Samsung Galaxy A04s/Samsung Galaxy A03s
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest



