uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.
Blog Archive
-
▼
2010
(42)
-
▼
April
(37)
- Penemu Bersejarah
- INSPIRASI
- IT'S TIME TO CHANGE
- A REASON
- be the best for yourself
- MY FAVORITE CLASS
- Lirik lagu lady gaga-telephone
- Lirik Lagu knaan-wavin flag FIFA 2010 Theme
- Lirik lagu Rihanna - Rude boy
- Lirik Lagu Owl City - Fireflies
- Lirik Lagu Greenday - 21 guns
- Tebak tebakan lucu
- Hewan paling berwarna di dunia
- Artikel Keren tentang Laut Mati
- Lebah Punah Karna Ponsel ??
- Program Kasir Sederhana
- Beberapa Statemen Turbo Pascal
- Fungsi menu pada Pascal
- Contoh Case Of Pascal
- Contoh Program Pascal If Perhitungan Gaji
- Program Penghitung Luas segitiga
- Membuat File txt Melalui Pascal
- Program Pencari Biaya Dan Grade
- Program Pencari Predikat
- Konversi bilangan Desimal Ke Biner
- Membuat Tulisan Berjalan Pada Pascal
- Program Kasir Sederhana (2)
- Program Kasir Sederhana
- Struktur Pascal
- Beberapa Statemen Turbo Pascal
- Dasar Program Pascal
- Dasar Program Pascal
- Perintah kursor tambahan
- Perintah dasar Menggerakkan kursor
- Hotkey pada pascal
- Fungsi menu pada Pascal
- Pascal (bahasa pemrograman)
-
▼
April
(37)
Another Templates
Followers
HALAMAN
pengunjung
Asmaul husna
Blog Archive
-
▼
2010
(42)
-
▼
April
(37)
- Pascal (bahasa pemrograman)
- Fungsi menu pada Pascal
- Hotkey pada pascal
- Perintah dasar Menggerakkan kursor
- Perintah kursor tambahan
- Dasar Program Pascal
- Dasar Program Pascal
- Beberapa Statemen Turbo Pascal
- Struktur Pascal
- Program Kasir Sederhana
- Program Kasir Sederhana (2)
- Membuat Tulisan Berjalan Pada Pascal
- Konversi bilangan Desimal Ke Biner
- Program Pencari Predikat
- Program Pencari Biaya Dan Grade
- Membuat File txt Melalui Pascal
- Program Penghitung Luas segitiga
- Contoh Program Pascal If Perhitungan Gaji
- Contoh Case Of Pascal
- Fungsi menu pada Pascal
- Beberapa Statemen Turbo Pascal
- Program Kasir Sederhana
- Lebah Punah Karna Ponsel ??
- Artikel Keren tentang Laut Mati
- Hewan paling berwarna di dunia
- Tebak tebakan lucu
- Lirik Lagu Greenday - 21 guns
- Lirik Lagu Owl City - Fireflies
- Lirik lagu Rihanna - Rude boy
- Lirik Lagu knaan-wavin flag FIFA 2010 Theme
- Lirik lagu lady gaga-telephone
- MY FAVORITE CLASS
- be the best for yourself
- A REASON
- IT'S TIME TO CHANGE
- INSPIRASI
- Penemu Bersejarah
-
▼
April
(37)
0 comments:
Post a Comment