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;lihat gambar di bawah
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.
program .....;digunakan untuk menamakan nama dari program kita
uses crt;memulai program
varuntuk 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.
beginmemulai 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.
write('Masukkan nilai a = ');readln(a);
write('Masukkan nilai b = ');readln(b);
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
