- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- weiss: Logi MX Master 3S FW NEM frissítés
- btz: Internet fejlesztés országosan!
- bambano: Bambanő háza tája
- eBay-es kütyük kis pénzért
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Hirdetés
-
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
Hirdetés
● olvasd el a téma összefoglalót!
- EAFC 25
- Nyíregyháza és környéke adok-veszek-beszélgetek
- Világ Ninjái és Kódfejtői, egyesüljetek!
- Nintendo Switch 2
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Videó stream letöltése
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Honor Magic V5 - méret a kamera mögött
- Mikrotik routerek
- sziku69: Szólánc.
- További aktív témák...
- Thermaltake Toughpower SFX Platinum 1000W
- Gigabyte B650M Aorus Elite AX ICE + 3 év garancia
- Sony DSC-HX300 digitális fényképező + 3 extra akksi + 8GB memóriakártya + Hama Star 700 állvány
- BESZÁMÍTÁS! LENOVO LOQ 15APH8 15 notebook - R7 7840HS 16GB DDR5 1TB SSD RTX 4060 6GB WIN11
- BESZÁMÍTÁS! ASUS TUF A15 FA507NV 15 notebook - R7 7735HS 32GB DDR5 512GB SSD 1TB SSD RTX 4060 6GB W
- Számlás!Windows 10 Pro 11 Pro,Windows 10 Home 11 Home, Office 2016,2019,2021 ,Vírusirtok,Mac
- Microsoft Surface Laptop 5 13,5" i7-1265U 16GB 512GB magyarbill 1 év garancia
- Eladó iPhone 12 mini 64GB bevizsgált, hibátlan készülék
- Telefon felvásárlás!! Honor Magic6 Lite, Honor Magic6 Pro, Honor Magic7 Lite, Honor Magic7 Pro
- Bomba ár! Lenovo ThinkPad T490 - i5-8GEN I 8GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
Állásajánlatok
Cég: FOTC
Város: Budapest