Program Pascal Luas Bangun Datar
Nama : Muhammad Lathif Azmii NPM :06201740013 Program Studi :Sistem Informasi Matakuliah :Algoritma 1. {luas jajarangenjang} Program Jajarangenjang; Uses crt; var luas,a,t:real; begin clrscr; writeln(‘==Program menghitung luas jajarangenjang==’); readln; write(‘Masukkan Alas:’); readln(a); write(‘Masukkan Tinggi:’); readln(t); luas:=a*t; writeln(‘luas jajarangenjang=’,luas:0:0); readln; end. Output ==Program menghitung luas jajarangenjang== Masukkan Alas :2 Masukkan Tinggi:4 Luas jajarangenjang=8 2. {luas segitiga} Program persegipanjang; Uses crt; var luas,a,t:real; begin clrscr; writeln(‘==Program menghitung luas segitiga==’); readln; write(‘Masukkan Alas:’); readln(a); write(‘Masukkan Tinggi:’); readln(t); luas:=(a*t)/2; writeln(‘luas segitiga=’,luas:0:0); readln; end. Output ==Program menghitung luas segitiga== Masukkan Alas...