Modul Dasar Turbo Pascal II

Modul II

Operasi Input-Output

Tujuan :

1. Agar praktikum memahami penggunaa dan karakteristik statmen write, writeln dan readln.

2. Praktikun dapat membuat program yang meminta inputan keyboard dan melakukan manipulasi inputan.

Teori :

Dalam pemrograman pascal terdapat perintah-perintah unutk operasi input (masukan )

Dan output (keluaran). Perintah input adalah Readln, dan perintah output adalah Write da Writeln.

Bentuk umum readln, write dan writeln.

Readln (< variable>);

Write(< Any Value>,<Any Value>, <Any Value>, <Any Value>);

Writeln (< Any Value>, <Any Value>, <Any Value>);

Contoh :

Program PerintahInput_output

Uses Crt;

Const

Z = 10;

Var

X , Y : Byter;

Jumlah : integer;

Begin

Clrscr ;

Write(‘Masukan Nilai X : ‘); Readln(X);

Write(‘Msukan NIlai Y : ‘); Readln(X);

Write(‘Nilai Z : ‘); Readln(X);

Jumlah : = X + Y + Z ;

Writeln(‘Nilai X, Y, Z dan total Jumlahnya adalah :’X, Y, Z, Jumlah);

End.

Dari contoh tersebut dapat dilihat perbdaan perintah Write dan Writeln, dimanana perintah write menyebabkan kursor tidak bergerser ke baris berikutnya, akan tetapi berada di samping kanan nilai yang dicetak. Sedangkan perintah Writeln menyebabkan kursor begeser pada kolom pertama baris berikutnya.

Perintah keluaran Write maupun Writeln dapat digunakan untuk operasi-operasi string dan operasi arithmatika.

Prosedur dan fungsi operasi String, meliputi :

Operasi	Kegunaan	Bentuk Umum
Delete	Menghapus sebagian string dari suatu string.	Procedure delete(Var S : string;Index:Integer;Count : Integer);
Insert	Menyisipkan sebagian string kedalam suatu string lainnya.	Procedure Insert(Source;String; Var S String;Index : Integer);
Str	Merubah nilai numerik menjadi string.	Procedure Str(X[:Width [;Decimals ]];var S : String);
Var	Merubah nilai string menjadi numeric.	Procedure Var (S;Var V;VAr Code : Integer);
Copy	Menduplikasi sebagian string dari suatu string.	Function Copy (S; String ;Index :Integer; Count : Integer):String;
ConCat	Menggabungkan beberapa string.	Function Concat (s1[,s2,…, sn]: String;
Pos	Mencari sebagian string dalam suatu string.	Function pos (Substr: String; S : String):Byte;
Length	Mencari panjang suatu string	FunctionLenght(S:String):Integer;

Program Operasi_String;

Var

S : String;

Begin

S := ‘FT Universitas Widyagama’;

Delete(S); {‘Ft Universitas Widyagama’}

Insert (‘Jurusan ‘,S,7);

Writeln(S); {‘Ft Universitas Widyagama’}

Writeln(Copy(S,7,13)); {‘Fakultas Teknik’}

Writeln(ConCat(S,’Malang’)); {‘Ft Universitas Widyagama’}

While Pos(‘ ‘ , S) > 0 Do S [Pos(‘ ‘, S) ]:=’X’;

Writeln(S); {FTXUniversitasXWidyagamaXMalang’}

End.

Fungsi operasi arithmatika meliputi :

Operasi	Kegunaan	Bentuk Umum
Abs	Mengabsolutkan suatu nilai	Function Abs(x): (Same type as parameter);
AreTan	Mencari nilai arctangent suatu sudut dalam satuan radian	Function ArcTan(X : Real):real;
Sin	Mencari nilsi sinus suatu sudut dalam satuan radian	Function Sin (X:Real):Real;
Cos	Mencari nilai cosinus suatu sudut dalam satuan radian	Function Cos(X:Real):Real;
Exp	Menghitung nilai pangkat dari suatu bilangan (eⁿ)	Function Exp (X: Real):Real;
Ln	Menghitung Nilai logaritma dari suatu niali x.	Function Ln(X:Real):Real;
Sqr	Menghitung nilai pangkat kuadrat suatu nilai	Function Sgr(X)LSame type as parameter);
Sqr	Menghitung nilai akar kuadrat suatu nilai	Function Sqrt(X:Real):real;
Int	Menghasilkan nilai integer dari suatu nilai	Function Int(X:Real ):Real;