Coretan Jaster

Yoooo... Bagaimana kabar kalian sobat CoJa? Dan Alhamdulillaah saya baik-baik saja disini. :) Kali ini saya akan memposting cara membuat program penghitung luas segitiga dengan  bahasa program pascal. Mengapa sudah beberapa artikel saya tulis dengan pascal? Yah, karena memang ini adalah tugas yang Dosen saya berikan kepada saya. :)

Oke,  Seperti biasa tools yang digunakan adalah"
=> Turbo Pascal
=> DOSBox untuk menjalankan Turbo Pascal pada komputer 64bit.

Langsung saja saya jelaskan disini. Tentunya sangat mudah bagi kalian yang memang mencintai duni Komputer untuk mempelajari bahasa program. Hehehe gak nyambung ye... Yodah lanjut aja deh...

Pertama kita harus tau dulu Rumus mencari luat segitiga. Rumusnya itu adalah:
1/2 x Alas x Tinggi atau biasa dikatakan : Alas x Tinggi : 2

Ok, langsung saja ini sourcenya:
==========================

program Perhitungan;
{I.S : diberikan layar kosong}
{F.S : Menampilkan Luas Segitiga}
Uses crt;
var
alas,tinggi,hasil:real;
begin
clrscr;
writeln('Perhitungan Pencarian Luas Segitiga');
write('Masukkan Panjang Alas Segitiga: ');readln(alas);
write('Masukkan Tinggi Segitiga: ');readln(tinggi);
hasil:=alas*tinggi/2;
writeln('Maka Hasilnya adalah: ',hasil);readln;
end.

==========================

Mengapa tidak menggunakan integer? Karena memang kalau kita menggunakan integer, maka tanda bagi tidak bisa dibaca atau dinyatakan salah. Oleh karena itu saya menggunakan "real" sebagai jenis variablenya. :))

Ok, cukup sekian saja dahulu. Lebih dan Kurangnya saya mohon maaf. Salam