Hirdetés
- iOS alkalmazások
- Fotók, videók mobillal
- Motorola Edge 70 Fusion – stílusosan főznek
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Xiaomi 17 Ultra - jó az optikája
- Távozik az Apple vezérigazgatója
- Huawei P10 - pisztácia nem is volt
- 8000 nit, maradhat? A szaúdiaknál kezd a Honor 600 Pro
- Poco F8 Ultra – forrónaci
- Pura color: színkavalkádba bújt a Huawei legjobb kameratelefonja
-
Mobilarena

Új hozzászólás Aktív témák
-
R0GERIUS
tag
válasz
Gyuri16
#5795
üzenetére
Köszönöm a válaszokat!
Ez volt nekem is az első gondolatom, de nem jött össze...
Be is illesztem ide ezt az alprogramot, mert lehet, hogy én írtam rosszul be, csak nem veszem észre.procedure F1;
begin
assign (be,'pitypang.txt');
reset(be);
n:=0;
readln(be,n);
for i:=2 to n do
readln(be,t[i].foglalas,t[i].szoba,t[i].erkezes,t[i].tavozas,t[i].lakok,t[i].reggeli,t[i].azonosito);
close(be);
writeln('Sikeres!')
end;Konkrétan itt hova kellene beszúrni az első sor "readln"-jét?

-
R0GERIUS
tag
Hellósztok!
Érettségire Pascalból gyakorolok, de elakadtam egy kicsit.
A 2011. október 23-ai emelt érettségiben úgy kellene beolvasni, hogy az állomány második sorától olvasson (mert az első sor az adatok számát és nem adatot tartalmaz).
Erre valaki tud valami okosságot? (Én már próbáltam keresni de nem találtam.)
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- LG LCD és LED TV-k
- iOS alkalmazások
- alza vélemények - tapasztalatok
- Milyen billentyűzetet vegyek?
- Gitáros topic
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Cáfolta a Microsoft, hogy más gyártók készítenék az új Xboxot
- Xbox tulajok OFF topicja
- Fotók, videók mobillal
- Parkside szerszám kibeszélő
- További aktív témák...
- PlayStation 5 Standard Edition megkímélt, megbízható darab + 3 játék
- Bivaly Lenovo Thinkpad T14 gen6 (Magyar Core Ultra 7 265U 32Gb DDR5 1Tb SSD 33 hó GARANCIA)
- LENOVO Thinkpad 65W USB Type-C adapter
- Apple Watch Ultra 1 (49mm) Titán 98% akku 2 szíj EU modell
- Apple Watch Ultra 1 (49 mm) 87 % Dobozos 3 szíj Szép állapot
- HP EliteBook 840 G7 i5-10210U 16GB 512GB FHD 400nit 1 év garancia
- GAMING PC! Intel i5-14600KF / 9070 XT / 32GB DDR5 / B760 WIFI / 1TB NVMe / 850w! BeszámítOK
- BESZÁMÍTÁS! MSI Gaming X RTX 3060Ti 8GB videokártya garanciával hibátlan működéssel
- 27% - Dell S2721NX IPS Monitor! 1920x1080 / 75Hz / 4ms / FreeSync
- Clevo 1060 6GB Mxm 3.1 laptop videó kártya ingyen házhoz szálitással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



