Program Pythagoras dengan Free Pascal ( Widarsa )

Program ini saya buat sambil nunggu giliran mempresentasikan blog ini ke depan dewan juri lomba blog guru pendidikan menengah di BPTIKP Semarang. juga sebagai bahan pembelajaran anak didik saya yang akan ikut lomba OSTN tingkat provinsi pada tanggal 22 September 2011. semoga aja dengan sedikit pembelajaran ini dapat bermanfaat bagi yang membaca.
langsung aja ya:
1. Buka program free pascal
masuk ke terminal kemudian ketik sudo fp
2. Kemudian masukkan script berikut

program pythagoras;
uses crt;
var
a,b,c:real;
begin
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);
c:=sqrt((a*a)+(b*b));
writeln('Hasilnya c adalah ',c:4:2);
end.

lihat gambar di bawah

pembahasan dari script diatas adalah

program .....;

digunakan untuk menamakan nama dari program kita

uses crt;

memulai program

var

untuk mendefinikan variable yang akan di pakai

a,b,c:real;

merupakan variabel yang akan kita gunakan yaitu a, b, c yang bertipe bilangan real, mengapa kita memakain real tidak integer, karena nantinya kalau kita memakai bilang yang ada koma maka bilangan real aja yang bisa menampung.

begin
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);

memulai mendefinikan variabel dengan melakukan input bahasanya write, kalau ada pertanyaan mengapa tidak pakai writeln, karena nantinya akan di di tulis di sebelahnya baru kalau nanti ada penginputan nilai kemudian enter baru ke bawah.

c:=sqrt((a*a)+(b*b));

ini rumus pythagirasnya yaitu nilai c adalah akar dari a kuadrat di tambah b kuadrat

writeln('Hasilnya c adalah ',c:4:2);

ini mencetak hasil dari rumus diatas, kemudian dengan menggunakan c:4:2 artinya menampung 4 digit karakter dan 2 digit di belakang koma.

end.

mengakhiri program.
3. simpan, compile dan run
maka akan menghasilkan