Kamis, 09 Desember 2010

teknik RUNtutan

TEKNIK RUNTUTAN


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
a. Membuka arsip untuk dibaca
Var fin :text;
Begin
Assign(fin,’data.txt’);
Reset(fin)
…………
…………
End.






b. Membuka arsip unutk ditulis
Var fout :text;
Begin
Assign(fout,’hasil.txt’);
Rewrite(fout)
…………
…………
End.

c. Menutup arsip
Close (fin);
Close (fout);

d. Pernyataan untuk membaca data dari arsip
Read (fin,x);

e. 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.

Tidak ada komentar:

Poskan Komentar