Teknik Runtutan

02.49 |

4.1 Runtutan

Bentuk umum penulisan struktur runtutan:

Pernyataan 1;

Pernyataan 2;

Pernyataan 3;

Pernyataan n;

Contoh: Menghitung luas persegi panjang

Panjang:=10;

Lebar:=5;

Luas:=panjang*lebar;

Writeln (‘Luas=’, Luas);

4.2 Membaca/ menulis dari/ ke arsip

Membuka arsip untuk dibaca

Var fin :text;

Begin

Assign(fin,’data.txt’);

Reset(fin)

…………

End.

Membuka arsip unutk ditulis

Var fout :text;

Begin

Assign(fout,’hasil.txt’);

Rewrite(fout)

…………

End.

Menutup arsip

Close (fin);

Close (fout);

Pernyataan untuk membaca data dari arsip

Read (fin,x);

Pernyataan untuk menulis data ke dalam arsip

Write (fout,x);

Contoh:

Program luas_persegi_panjang;

Var

Panjang, Lebar : real;

Luas : real;

Fin, Fout : text;

Begin

{ membuka arsip masukan}

Assign (Fin, ‘data.txt’);

Reset (Fin);

{membuka arsip keluaran}

Assign (Fout, ‘hasil.txt’);

Rewrite (Fout);

{membaca panjang dan lebar dari arsip Fin}

Read (Fin, panjang, lebar);

{menghitung luas}

Luas := panjang * lebar;

{menulis hasil perhitungan luas ke dalam arsip Fout}

Writeln (Fout,’Luas persegi panjang = ‘, Luas);

{menutup arsip}

Close (Fin);

Close (Fout);

End.

Mengenai Saya

Pengikut

Archives

Teknik Runtutan

0 komentar:

Posting Komentar