Egy ilyen rekord
A rekordtípus beállítása.
3. Hogyan érheti el a bejegyzést?
4. Adjon példát egy írás mezőelemek tömbjére.
Laboratóriumi munka №13
Kutatás és fejlesztés: A fájlok használata.
A munka célja. tanulás és fájlok használata a programozási problémák megoldásához.
1. írjon egy tömböt a fájlra, és a tömb összes elemének összegét és termékeit.
2. írjon 12 sorot a fájlba a for utasítás használatával, és határozza meg az egyes sorok hosszát.
3. Írjon be kétszintű automatikus bejegyzést a fájlba, amely több mezőből áll.
1. feladat - 3-án;
2. feladat - 4-én;
3. - 5. feladat;
Example1. Hozzon létre egy fájlt a 10 hallgató listájáról a számokkal (szám, teljes név és három jelölés). Kijelzi a tartalmát a képernyőn, megváltoztatja a diák nevét a billentyűzetből beírt számmal, újra olvassa el a fájlt.
2. példa Írjon be egy szöveges fájlt a lemezre, és írjon be szöveget.
program wtf; típus fil = szöveg; var f1: fil; név: string [35]; txt: string; begin write ('írja be a fájl nevét a szövegíráshoz' '); readln (név); writeln; hozzárendelni (f1, név); írja át (f1); writeln ('Írja be a rekord szövegét (a végső Enter-hez):'); writeln; megismételni írni (':>'); readln (txt); writeln (f1, txt); amíg txt = ''; szoros (f1); writeln; writeln ("A bevitel befejeződött, nyomja meg az Enter billentyűt."); readln; végén.
3. példa Írja le a számítási eredményt egy szövegfájlba.
program wtf1; használja a crt; típus fil = szöveg; var f1: fil; név: string [35]; txt: string; var i, n: valós; s, q: valós; kezdődik a clrscr; writeln ("Az S = 1 + 1/4 + 1/9 +. + 1 / n2," sorozat összegének kiszámításához; írjon ('enter n = 1,2,3. n ='); olvasni (n); i: = 1; S: = 1; míg i<>n kezdődik i: = i + 1; s: = s + 1 / (i * i); végén; writeln ("A sorozat feltételeinek összege S = ', s); név: = 'rezult.txt'; txt: = 'Az S = 1 + 1/4 + 1/9 + sorozat összege. + 1 / n2 egyenlő: S = '; writeln; hozzárendelni (f1, név); írja át (f1); writeln (f1, txt, s, 'for n =', n: 9: 0); szoros (f1); writeln ("Az eredménye a következ.txt fájlba lesz írva"); writeln ('A programból való kilépéshez nyomja meg az Entert.'); ReadKey; végén.