Hirdetés
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- bkercso: Tápszűrő-5 SMPS-hez
- Meggyi001: Áram nélkül....méltóság nélkül.....
- sziku69: Szólánc.
- Lalikiraly: Macbook NEO 2
- gban: Ingyen kellene, de tegnapra
- N€T0X|N: Talaria tuning: meg kéne tudni állni!
- Elektromos rásegítésű kerékpárok
-
LOGOUT

Ú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!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Warhammer 40.000
- Építő/felújító topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Motoros topic
- Arena Breakout: Infinite
- TCL LCD és LED TV-k
- Redmi Note 14 5G - jól sikerült az alapmodell
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Apple iPhone 14 Pro 128 GB Deep Purple 100% akku
- Kingston A2000 250GB NVMe SSD
- GIGABYTE RX 6800 XT 16GB GDDR6 GAMING OC - Eladó!
- BESZÁMÍTÁS! ASRock A520M R5 5500 16GB DDR4 500GB SSD RX 5700XT 8GB Rampage SHIVA Seasonic 650W
- BESZÁMÍTÁS! MSI B450M R5 5600 16GB DDR4 512GB SSD RX 6650 XT 8GB Rampage SHIVA FSP 650W
- Windows 10 / 11 Pro Retail aktiváló kulcs Azonnal szállítással, számlával, garanciával!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- iPhone 15 128GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3944, 100% AKKSI
- BESZÁMÍTÁS! LG 24MK600M FHD IPS 75Hz 5ms monitor garanciával hibátlan működéssel
- Samsung PM9C1b 1TB M.2 PCIe Gen4 SSD! 7.100-6.700MB/s
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


