Belajar Turbo Pascal (Awam)

Assalamualaikum,,,
guys , let me share about turbo pascal in this great opportunity.
Ceritanya mau sedikit bahas tentang cara bikin coding sederhana tentang menghitung luas dan keliling lingkaran nih guys ,...

oh iya , sebelum bikin coding tentang luas dan keliling lingkaran,,
izinkan saya untuk me-review sedikit tentang cara menggunakan turbo pascal..

These are the steps:

1. Buka program TPW(Turbo Pascal) kalian,
2. Klik file, New
3. Mulai membuat coding

Beberapa hal yang kalian harus ingat dalam membuat coding :
1. Nama Program tidak boleh menggunakan spasi tapi gunakanlah underscore ( _ ) saat nama program kalian terdiri dari 2 kata atau lebih
contoh :
Program Menghitung_Luas_Lingkaran
2. Program TPW menggunakan uses winCRT.
3. Jangan lupa untuk mendeklarasikan variable-variable yang
kalian gunakan dalam coding pada bagian Var
4. Mulailah membuat coding dengan menggunakan kata begin dan diakhiri dengan kata end.
5. Selalu akhiri penulisan di setiap line dengan titik koma ( ; ).
6. Compile , syntax kalian sebelum di run. Untuk pengecekkan apakah syntax bermasalah atau tidak.

Berikut coding dalam Program Menghitung Luas dan Keliling Lingkaran :

Program Menghitung_Luas_dan_Keliling_Lingkaran ;
Uses
    WinCrt;
Var
   L,K,r: real;
   coba: string;
Begin
Repeat;
Clrscr;
       Writeln('-----Menghitung Luas dan Keliling Lingkaran-----');
       Writeln(' ');
       Write('Masukkan Jari-jari = ');readln(r);
       L:=pi*r*r;
       K:=pi*2*r;
       Writeln('Luas Lingkaran Tersebut adalah:',L:5:3);
       Writeln('Keliling Lingkaran tersebut adalah:',K:5:3);
       Writeln(' ');
       Writeln('                   ---Terima Kasih---');
       Writeln(' ');
       Write('coba lagi? (Y/N)');readln (coba);
until (coba = 'N') or ( coba = 'n');
end.

Dan berikut tampilan program setelah success di-run :

Sekian sharing kali ini , semoga bermanfat :)

TrigNoMatter

Belajar Turbo Pascal (Awam)