Algoritma Pemograman (Input Dan Output)

Statement Input dan Output

·         Read / Readln

Readln digunakan untuk memasukkan data per baris, artinya setelah tombol enter ditekan maka akan ganti baris, sedangkan Read masih tetap pada baris yang sama.

·         Write / Writeln

Writeln digunakan untuk menampilkan hasil per baris, akan ganti baris untuk tampilan berikutnya, sedangkan Write digunakan untuk menampilkan hasil tanpa ganti baris pada tampilan berikutnya.

·         GotoXY (Kolom, Baris)

Untuk meletakkan posisi kursor pada kolom dan baris tertentu.

Fungsi  yang digunakan untuk memanipulasi data String

·         Length

Digunakan untuk menghitung panjang atau jumlah karakter yang ada pada data string. Hasil dari fungsi ini adalah nilai numerik integer positif.

·         ConCat

Untuk menggabungkan 2 atau beberapa data string.

Contoh : ConCat (‘ABC’, ‘DEF’)  {ABCDEF}

·         Delete

Digunakan untuk membuang sejumlah karakter dari suatu nilai string.

Sintaks : Delete (S, Index, Count);

S = data string

                        Index = posisi awal kita akan mengambil beberapa karakter (integer)

                        Count = Banyaknya karakter yang akan diambil (integer)

·         Copy

Mengambil satu atau beberapa karakter dari sebuah data string.

Sintaks : Copy (S, Index, Count) : String

                        S = data string

                        Index = posisi awal kita akan mengambil beberapa karakter (integer)

                        Count = Banyaknya karakter yang akan diambil (integer)

Fungsi yang digunakan untuk perhitungan aritmetika

·         Sqr

Digunakan untuk menghitung nilai pangkat kuadrat dari suatu bilangan.

Sintaks : Sqr(x);

·         Sqrt

Digunakan untuk menghitung nilai akar dari suatu bilangan.

Sintaks : Sqrt(x);

Contoh Program Penggunaan Statement Input dan Output

uses wincrt;

var

                kalimat1, kalimat2 : string;

begin

                write(‘Masukkan sembarang kalimat :  ‘); readln(kalimat1);

                write(‘Masukkan sembarang kalimat lagi :  ‘); read(kalimat2);

                gotoxy(20,10); writeln(kalimat1);

                write(kalimat2);

end.

Contoh Program Manipulasi Data String

Uses wincrt;

Var

                S, H : string;

                I : integer;

Const

                a = ‘STMIK’;

                b = ‘Wicida’;

begin

                S := ConCat(a,b); writeln(S);

                H := Copy(S,1,7);

                Writeln(H); writeln(‘Panjang string adalah : ‘, Length(H), ‘ karakter’);

                Delete(H, 2, 2); write(‘Beberapa karakter dihapus menjadi : ‘, H);

End.

Contoh Program Perhitungan Aritmetika

Uses wincrt;

Var

                x : real;

begin

                write(‘Masukkan nilai X = ‘); readln(x);

                writeln(‘Nilai X dipangkatkan = ‘, Sqr(x):5:1);

                write(‘Nilai X diakarkan = ‘, Sqrt(x):5:3);

end.