PROGRAM LUAS SEGITIGA MENGGUNAKAN PASCAL

-uses crt;

Untuk menampilkan pada layar monitor

-var

Untuk memberi variable pada luas, alas tinggi

-luas:real;

Variable luas dengan tipe data real

-alas:real;

Variable alas dengan tipe data real

-tinggi:real;

Varibel tinggi dengan tipe data real

-begin

Mulai kode/ program

-clrscr;

Membersihkan data pada program

-write(‘masukan nilai alas   : ‘);

Mencetak masukan nilai alas pada program

-readln(alas);

Untuk memasukan data alas

-write(‘masukan nilai tinggi  : ‘);

Mencetak masukan nilai tinggi pada program

-readln(tinggi);

untuk memasukan nilai tinggi

-luas:=alas*tinggi/2;

rumus luas segitiga pada variable luas dengan alas dikali tinggi di bagi dua(2)

-writeln;

Untuk memberi space satu baris

-writeln(‘jadi luas segitiga adalah  : ‘,luas:0:2);

Mencetak jadi luas segitiga adalah dengan hasil dari perhitungan variable luas dan pada :0:2 itu di gunakan agar hasilnya tidak ada angka nol(0) yang banyak

-readln;

Memasukan semua data

-end.

Menutup program atau program suda selesai

-hasil ketika suda di run

Dengan memasukan nilai alas sebesar = 10 dan nilai tinggi sebesar =9 maka hasil luas segitiga adalah 45