Cara Membuat Program Bilangan Terbesar

Assalamu'alaikum sahabatku sekalian, udah lama gak mosting-mosting. Biasalah..., ada sedikit kendala. Jadi gw hrus bilang Wow gitu????
Ya udah..., masih dengan persoalan PASCAL, hari ini aku mw mosting program tentang "bagaimana cara menandai bilangan terbesar" dengan menggunakan fungsi IF Then sehubungan dengan PR-ku yg baru siap ku kerjakan. Ok, langsung aja! Let's Checkidot....

Untuk mengenal program ini, alangkah baiknya melihat Algoritma terlebih dahulu.
 Algoritma:
1-Start(mulai)
2-Input sebanyak 10x untuk var a,b,c,d,e,f,g,h,i,j;
3-Proses: memasukkan variabel a sebagai bilangan terbesar (dalam var bt);

4>Logika: jika bt kurang daripada b, maka;
=proses: memasukkan variabel b sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada b, maka akan dilanjutkan;

5>Logika: jika bt kurang daripada c, maka;
=proses: memasukkan variabel c sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada c, maka akan dilanjutkan;

6>Logika: jika bt kurang daripada d, maka;
=proses: memasukkan variabel d sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada d, maka akan dilanjutkan;

7>Logika: jika bt kurang daripada e, maka;
=proses: memasukkan variabel e sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada e, maka akan dilanjutkan;

8>Logika: jika bt kurang daripada f, maka;
=proses: memasukkan variabel f sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada f, maka akan dilanjutkan;

9>Logika: jika bt kurang daripada g, maka;
=proses: memasukkan variabel g sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada g, maka akan dilanjutkan;

10>Logika: jika bt kurang daripada h, maka;
=proses: memasukkan variabel h sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada h, maka akan dilanjutkan;

11>Logika: jika bt kurang daripada i, maka;
=proses: memasukkan variabel i sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada i, maka akan dilanjutkan;

12>Logika: jika bt kurang daripada j, maka;
=proses: memasukkan variabel j sebagai bilangan terbesar (dalam var bt) lalu dilanjutkan;
>Logika: jika bt lebih besar daripada j, maka akan dilanjutkan;

13>Output: Menampilkan Bilangan terbesar yaitu variabel bt.
14>End: Selesai

Ini Code Sourcenya :

Program Menentukan_Bilangan_Terbesar;
uses wincrt;
var
a,b,c,d,e,f,g,h,i,j,BT:integer;
x,y:integer; {dari -32768..32767}
begin     
writeln(' /Tugas-BIT\');
writeln('<===========>');
writeln(' \ByGunPing/');
writeln;writeln('S3l4M4T M3N1KM4TI');writeln('Push "Enter" for begin');readln;clrscr;
writeln(' /Tugas-BIT\');
writeln('<===========>');
writeln(' \ByGunPing/');writeln;writeln;
gotoxy(15,6);{x=kolom, y=baris}writeln('.--->Menentukan Bilangan Terbesar<---.');
gotoxy(15,7);writeln('|###==============================###|');
gotoxy(15,8);writeln('|            :P,XD,|D,~_~            |');
gotoxy(15,9);writeln('.____________________________________.');
gotoxy(20,11);writeln('Masukkan angka sebanyak 10x :  ');
read(a,b,c,d,e,f,g,h,i,j);

bt:=a;

if bt<b then bt:=b;
if bt<c then bt:=c;
if bt<d then bt:=d;
if bt<e then bt:=e;
if bt<f then bt:=f;
if bt<g then bt:=g;
if bt<h then bt:=h;
if bt<i then bt:=i;
if bt<j then bt:=j;

writeln;
write ('Jadi, bilangan terbesar adalah ',bt,'!');
end.


NB: gotoxy(X,Y); digunakan untuk menentukan dan menetapkan posisi teks atau tulisan dalam satu kalitulis (write).

Jenis Variabel yang gun ketahui:
String; 1 sampai 255, dapat digunakan untuk memasukkan kata dalam bentuk alphabet.
Shortint; -128..127 format 8 bit, merupakan short integer yang memuat batas terkecil dari input integer.
Integer; -32768..32767 format 16 bit, merupakan kapasitas normal nilai input atau pemasukan nilai.
Longint; -2147483648..2147483647 format 32 bit, merupakan nilai input tertinggi.
Byte; 0..255 format 8 bit, belum coba.
Word; 0..65535 format 16 bit, belum coba.
Boolean; True/False, belum coba.
Nilai BIT adalah nilai processor architecture, pokoknya berhubungan erat dengan grafis prosesor yang dipakai untuk jelasnya silahkan membuka halaman ini.

Untuk flowchart bisa dilihat dibawah ini.

Sekian postingan gunping5 pada kali ini, mohon diperbanyak maaf atas kesilapan baik pada kekurangan atau kelebihan yang ada, terimakasih kepada sahabat yang mau menyimak ulasan tadi,  simak terus topik barunya untuk menambah wawasan para sahabat...
Selamat beraktifitas kembali, wassalam.