Program Membalikkan Kata dengan Pascal

Bahasa Pascal merupakan bahasa pemrograman yang cukup mudah dipelajari, namun tentunya butuh ketekunan kalau mau mahir. Saya sendiri tidak jago segala jenis bahasa program, namun sekali-sekali suka mencoba.

Di sini, saya akan sampaikan caranya membalikkan kata dengan menggunakan bahasa Pascal. lacsaP asahab nagned atak nakkilabmem margorp naksilunem naka ayas ,inis iD. Dengan program ini tentunya kita tak perlu berpikir terlalu banyak untuk membalikkan kata/kalimat yang panjang.

Kode program ini tentu bukan ide saya sepenuhnya. Saya mempelajari algoritmanya dari kode-kode lain yang banyak bertebaran di internet, dan kemudian menyusun kembali sesuai dengan secuil ilmu milik saya. Karena cuma bisa menggunakan Pascal, ya saya bikinnya pakai Pascal. Bagi yang bisa bahasa lain tentunya bisa membuatnya juga. FYI, dengan bahasa Python program bisa dibuat lebih simpel.

Program ini menggunakan record sebagai tipe data penyimpan. Inti algoritmanya adalah mengambil huruf per huruf dari kalimat yang dimasukkan, menyimpannya ke dalam record, kemudian menampilkan kembali huruf per huruf namun dengan urutan yang terbalik. Jadi jika pertama dimasukkan “123 456 789”, hasilnya akan ditampilkan “987 654 321”.

Berikut script nya:


program balikkata;
uses crt;
type
tmp = record
kal: string[255];
urutan: integer;
end;
var
t: tmp;
i: integer;
kata: string[255];
input: char;
teks : text;
procedure mulai(var t: tmp);
begin
t.urutan := 0;
end;
procedure geser(var t: tmp; x: char);
begin
t.urutan := t.urutan + 1;
t.kal[t.urutan] := x;
end;
function akhir(var t: tmp) : char;
begin
akhir := t.kal[t.urutan];
t.urutan := t.urutan - 1;
end;
begin
clrscr;
mulai(t);
writeln('Program Membalikkan Kata');
writeln('------------------------');
repeat
writeln;
write('Kata/kalimat yang akan dibalik: ');readln(kata);
writeln('Kata/kalimat asli: ',kata);
writeln;
for i := 1 to length(kata) do
geser(t, kata[i]);
write('Kata/kalimat hasil balikan: ');
for i := 1 to length(kata) do
write(akhir(t));
writeln;
writeln;
write('Ulangi? y/t: ');
readln(input);
until input = 't';
end.

Jadi, demikianlah. Silakan dicoba. Oh ya, program ini bisa di compile menggunakan Turbo Pascal atau Free Pascal. Saya sih menganjurkan pakai Free Pascal saja, baik under Windows ataupun Linux dan Mac OS. Gratis gitu loh, gak perlu membajak Turbo Pascal lagi :beer:

4 thoughts on “Program Membalikkan Kata dengan Pascal

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s