Membuat Program Pyhtagoras di Free Pascal

            Sehubungan dengan tugas Algoritma dan Pemrograman I,di sini saya akan menerangkan beberapa algoritma pada bahasa pemrograman pascal yang ada pada skrip pemrograman saya dibawah ini. Sebelum saya menerangkan algoritma pada skrip dibawah ini, apa itu algoritma ? Algoritma adalah tata cara urutan dalam pengerjaan secara sistematis dan benar. Setiap orang memiliki algoritma yang berbeda sehingga jarang terjadinya kesamaan pola pikir.

Buatlah Program mencari sisi miring segitiga menggunakan Turbo Pascal (Disarankan menggunakan Free Pascal).

Rumus sisi miring segitiga yaitu : 

Secara Flow Chart; Algoritmanya yaitu : 

{Nama              : Andre Rivaldy Respati Putra

 NIM                : J1F113005

 Deskripsi        : Program mencari sisi miring segitiga dengan rumus phitagoras menggunakan pascal di buat  tgl 18 september}

 Pada Pascal sintaks pemrogramannya seperti dibawah ini :

__________________________________________________________________

Program phitagoras;

Uses crt;

Var alas,tinggi,sisimiring: real;

Begin

Clrscr;

Writeln(‘Program mencari sisi miring segitiga’);

Write(‘panjang alas :’);

Readln(alas);

Write(‘tinggi segitiga :’);

Readln(tinggi);

sisimiring:=sqrt(sqr(alas)+sqr(tinggi));

write(‘panjang sisi miring = ‘,sisimiring:2:2);

write(‘keterangan hasil sisi miring dibulatkan 2 angka di belakang koma’);

readln;

end.

Keterangan :

Warna biru melambangkan variable(bisa di rubah sesuai kita mau tetapi tidak boleh menggunakan kata reserved word)

Warna kuning melambangkan  nama variable(bisa di rubah tetapi tidak boleh menggandung karakter khusus dan penulisannya harus sama, diantara bagian deklarasi dengan bagian statement)

Warna hijau melambangkan tipe data variable

Warna merah melambangkan reserved word/kata baku yang sudah terintegrasi pada pascal

Diantara begin sampai end merupakan bagian statement(pernyataan), disinilah letak algoritma yang ada pada pemrograman pascal

Real tipe data untuk bilangan satuan menggunakan desimal

Sintaks: Write/Writeln(x); fungsinya untuk menampilkan isi dari suatu nilai variable di layar. )

Sintaks: Read/Readln(x);  fungsinya untuk memasukkan [input] data lewat keyboard ke dalam suatu variabel.

Sintaks: Clrscr; fungsinya untuk membersihkan layar.

Berikut dibawah ini screenshot menggunakan free pascal :

Setelah kita ketik semua skrip pemrogramannya maka akan tampil seperti ini :

Beberapa komputer/laptop menggunakan free pascal tanda ( ) tampil menjadi<>

Gambar dibawah ini mencontohkan jika skrip program kita tulis ada kesalahan saat melakukan kompile(penterjamahan bahasa program)

Ket : Terjadi kesalahan sintaks pada kolom ke 16 baris ke 2

Jika proses kompile lancar maka akan tampil gambar seperti dibawah ini

Tampilan program ketika di jalankan