Pascal és un dels llenguatges de programació més utilitzats per la seva simplicitat i gran funcionalitat. A través de Pascal, podeu treballar amb fitxers creant-los o modificant-los mitjançant les funcions adequades.
Instruccions
Pas 1
Per crear un fitxer de text a Pascal, cal establir variables del tipus adequat, que s’escriuran a la secció de memòria corresponent. Per fer-ho, podeu utilitzar les diverses funcions de l'idioma. Totes les dades i variables s’escriuen mitjançant l’operació estàndard Writeln (només cal especificar un paràmetre addicional). Programa CreateFile;
var textfile: Text; nametype: String; textstring: String; a, b: enter; on textfile és una variable de tipus Text que conté el nom del fitxer. Nametype: el tipus d’entrada de text al qual s’assigna la cadena. La cadena de text és una cadena de text del tipus adequat. A i b són variables auxiliars que emmagatzemen valors numèrics enters.
Pas 2
Demaneu a l'usuari que introdueixi el tipus de nom del tipus de fitxer desitjat. Cal enllaçar-lo amb el fitxer text. Writeln ("Si us plau, escriviu el nom de l'escriptura de dades");
Readln (tipus de nom);
Assigna (fitxer de text, tipus de nom);
Pas 3
Obriu el fitxer per escriure dades i demaneu a l'usuari que introdueixi primer el nombre de línies que vol escriure i després el seu contingut. Les dades s’introduiran al document en si mateixes una per una. Reescriu (fitxer de text);
Writeln ('Escriviu el nombre de cadenes:');
Readln (b); {variable que emmagatzema el nombre de línies}
Writeln ('Si us plau, escriviu les cadenes:');
Pas 4
Per escriure un nombre fix de línies, utilitzeu un bucle, el primer paràmetre del qual ha de correspondre al número de la primera línia del fitxer, en aquest cas el número 1. per a: = 1 a b fer
començar
Readln (cadena de text);
Writeln (fitxer de text, cadena de text); {funció d'escriptura de fitxers}
final;
Pas 5
Sortiu del fitxer i finalitzeu el programa amb les funcions adequades. També mostreu una notificació sobre l'enregistrament correcte. Per evitar problemes amb la sortida, configureu un segon readln.close (textfile);
Writeln ('Èxit');
readln;
Final.
Pas 6
El fitxer s'ha creat correctament. Compileu i deseu el guió al menú del vostre entorn de programació.
