Cum este setat tipul de înregistrare.
3. Cum să accesați înregistrarea.
4. Dați un exemplu de serie de elemente de câmp scris.
Lucrări de laborator №13
Cercetare și dezvoltare: utilizarea fișierelor.
Scopul lucrării. învățarea și utilizarea fișierelor pentru a rezolva problemele de programare.
1. scrieți un tablou al fișierului și suma și produsul tuturor elementelor din matrice.
2. scrieți 12 linii în fișier utilizând instrucțiunea for și stabiliți lungimea fiecărei linii.
3. Scrieți o intrare Auto pe două niveluri în fișier, constând din mai multe câmpuri.
Sarcina 1 - 3;
Sarcina 2 - la 4;
Sarcina 3 - 5;
Example1. Creați un fișier din lista a 10 elevi cu notele lor (număr, nume complet și trei puncte). Afișați conținutul acestuia pe ecran, schimbați numele elevului cu numărul introdus de la tastatură, citiți din nou fișierul.
Exemplu 2. Scrieți un fișier text pe disc și introduceți text în el.
program wtf; tip fil = text; var f1: fil; nume: șir [35]; txt: șir; începeți scrierea ('Introduceți numele fișierului pentru scrierea textului' '); readln (nume); writeln; atribuie (f1, nume); rescrie (f1); writeln ('Introduceți textul înregistrării (pentru sfârșitul-Enter):'); writeln; repetați scrierea (':>'); readln (txt); scriteln (f1, txt); până când txt = ''; închide (f1); writeln; writeln ('Intrarea este terminată, apăsați Enter'); readln; end.
Exemplul 3. Scrieți rezultatul de calcul într-un fișier text.
program wtf1; utilizează CRT; tip fil = text; var f1: fil; nume: șir [35]; txt: șir; var i, n: real; s, q: real; începe clrscr; writeln ('Pentru a calcula suma seriei S = 1 + 1/4 + 1/9 +. + 1 / n2,'); scrie ('introduce n = 1,2,3, n ='); citește (n); i: = 1; S: = 1; în timp ce i<>n nu începe i: = i + 1; s: = s + 1 / (i * i); se încheie; writeln ('Suma termenilor seriei este S =', s); nume: = 'rezultate.txt'; txt: = 'Suma seriei S = 1 + 1/4 + 1/9 +. + 1 / n2 este egal cu: S = '; writeln; atribuie (f1, nume); rescrie (f1); writeln (f1, txt, s, 'pentru n =', n: 9: 0); închide (f1); writeln ('Rezultatul dvs. va fi scris în fișierul results.txt'); writeln ('Pentru a ieși din program, apăsați Enter.'); readkey; end.