PROGRAM LUAS SEGITIGA

PROGRAM LUAS_SEGITIGA

PROGRAM LUAS_SEGITIGA;
USES CRT;
VAR
a,t,luas:REAL;
PROCEDURE INPUT_DATA;
BEGIN
WRITELN (‘PROGRAM MENCARI LUAS SEGI TIGA’);
WRITE(‘masukkan tinggi segi tiga’);READLN(t);
WRITE(‘masukkan panjang alas’);READLN(a);
END;
PROCEDURE MENCARI_LUAS;
BEGIN
LUAS:=0.5*a*t;
end;
PROCEDURE TAMPIL_HASIL;
BEGIN
WRITELN(‘LUAS SEGI TIGA’,LUAS:6:2);
END;
{PROGRAM UTAMA/PANGGIL PROCEDURE}
BEGIN
CLRSCR;
INPUT_DATA;
MENCARI_LUAS;
TAMPIL_HASIL;
READLN;
END.

  1. Belum ada komentar.
  1. No trackbacks yet.

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

%d blogger menyukai ini: