Wawasan Dasar : __________________________




- Uses CRT : Membuat referensi ke objek CRT

- Var : Variabel

- Begin : Mulai

- ClrScr : perintah Clear Screen.

- Write('text') : Mencetak string(text) ke layar.

- WriteLn('text') : Mencetak string(text) ke layar dan menambah baris baru.

- Read(X) : Meminta input dari pengguna ke dalam variabel X.


- ReadLn(X) : Meminta input dari pengguna ke dalam variabel X dan menambah baris baru.

- ReadKey : Perintah untuk meminta penekanan KeyBoard.

- End. : Mengakhiri/Akhir program.





Program Statis : __________________________



Program Luas_Segitiga;

Uses CRT;

Var


Alas,Tinggi:Integer;

Luas:Real;

SL:Char;



BEGIN

ClrScr;

WriteLn('Program Mencari Luas Segitiga');


WriteLn;


Alas:=10;

Tinggi:=15;


Luas:=(Alas*Tinggi)/2;


WriteLn;

WriteLn('Luasnya Adalah ',Luas:15:2);


SL:=ReadKey;

END.







Program Dinamis : __________________________



Program Luas_Segitiga;

Uses CRT;

Var

Alas,Tinggi:Integer;

Luas:Real;


SL:Char;


BEGIN

ClrScr;

WriteLn('Program Mencari Luas Segitiga');

WriteLn;


Write('Masukkan Alas ? ');ReadLn(Alas);

Write('Masukkan Tinggi ? ');ReadLn(Tinggi);


Luas:=(Alas*Tinggi)/2;


WriteLn;


WriteLn('Luasnya Adalah ',Luas:15:2);


SL:=ReadKey;

END.

0 Comments:

Post a Comment