Cara Membuat Fail Pascal

Isi kandungan:

Cara Membuat Fail Pascal
Cara Membuat Fail Pascal

Video: Cara Membuat Fail Pascal

Video: Cara Membuat Fail Pascal
Video: Cara Membuat Program Pascal dan Menjalankan Kode Program Pascal - Tutorial Belajar Pascal #2 2024, April
Anonim

Pascal adalah salah satu bahasa pengaturcaraan yang paling banyak digunakan kerana kesederhanaan dan fungsi yang hebat. Melalui Pascal, anda boleh bekerja dengan fail dengan membuat atau mengubahnya menggunakan fungsi yang sesuai.

Cara membuat fail pascal
Cara membuat fail pascal

Arahan

Langkah 1

Untuk membuat fail teks dalam Pascal, perlu menetapkan pemboleh ubah dari jenis yang sesuai, yang akan ditulis ke bahagian memori yang sesuai. Untuk melakukan ini, anda boleh menggunakan pelbagai fungsi bahasa. Semua data dan pemboleh ubah ditulis menggunakan operasi Writeln standard (hanya tentukan parameter tambahan). Program CreateFile;

var textfile: Teks; jenis nama: Rentetan; rentetan teks: Rentetan; a, b: integer; Dimana textfile adalah pemboleh ubah jenis Teks yang mengandungi nama fail. Jenis Namet - jenis input teks yang diberi String. String teks adalah rentetan teks dari jenis yang sesuai. A dan b adalah pemboleh ubah tambahan yang menyimpan nilai nombor bulat.

Langkah 2

Meminta pengguna memasukkan jenis nama fail yang dikehendaki. Ia perlu dihubungkan ke textfile. Writeln itu sendiri ('Tolong, taipkan nama menaip data');

Readln (jenis nama);

Tetapkan (textfile, nametype);

Langkah 3

Buka fail untuk menulis data dan minta pengguna memasukkan terlebih dahulu bilangan baris untuk ditulis, dan kemudian kandungannya. Data akan dimasukkan ke dalam dokumen itu sendiri satu persatu. Tulis semula (textfile);

Writeln ('Jenis nombor rentetan:');

Readln (b); {pemboleh ubah yang menyimpan bilangan baris}

Writeln ('Tolong, taipkan rentetan:');

Langkah 4

Untuk menulis bilangan baris yang tetap, gunakan gelung, parameter pertama yang mesti sesuai dengan bilangan baris pertama fail, dalam hal ini angka 1. untuk a: = 1 hingga b do

bermula

Readln (teksstring);

Writeln (textfile, textstring); {fungsi tulis fail}

akhir;

Langkah 5

Keluar dari fail dan akhiri program menggunakan fungsi yang sesuai. Paparkan juga pemberitahuan mengenai rakaman yang berjaya. Untuk mengelakkan masalah dengan output, tetapkan readln.close kedua (textfile);

Writeln ('Kejayaan');

baca;

Tamat.

Langkah 6

Fail berjaya dibuat. Kompilasi dan simpan skrip melalui menu persekitaran pengaturcaraan anda.

Disyorkan: