Turbo Pascal Bilangan Paling Besar


Setelah selesai belajar Turbo Pascal (for Windows) di sekolah, saya diskusi dengan teman SMP saya. Dia memberikan beberapa baris kode yang setelah saya coba hasilnya gagal. Setelah itu saya revisi sedikit-demi-sedikit dan juga saya permak. Ini dia.

Baris Kode dan hasil Run pada Turbo Pascal 7 for DOS (using DOSBOX)

Baris kodenya:

program BilanganPalingBesar;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('masukkan a: ');readln(a);
write('masukkan b: ');readln(b);
write('masukkan c: ');readln(c);
if (a>b) and (a>c) then
begin
writeln(a,' (bilangan a) merupakan bilangan terbesar');readln;
end
else
if (b>a) and (b>c) then
begin
writeln(b,' (bilangan b) merupakan bilangan terbesar');readln;
end
else
if (c>a) and (c>b) then
begin
writeln(c,' (bilangan c) merupakan bilangan terbesar');readln;

Many thanks to my friend, Ahmad Rizqita Raharja for the inspiration and some codes🙂

4 thoughts on “Turbo Pascal Bilangan Paling Besar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s