Program Mencari Persamaan Linear Menggunakan Bahasa Pascal

Persamaan Linear adalah sebuah persamaan aljabar yang tiap sukunya mengandung konstanta atau perkalian konstanta dengan perkalian tunggal. Persamaan ini dikatakan linear sebab hubungan matematis ini dapat digambarkan sebagai garis lurus dalam Sistem Koordinat Kartesius.


Oke, disini saya tidak akan membahas lebih detil lagi mengenai Persamaan Linear tersebut. Melainkan hanya akan memberikan contoh programnya yang sederhana, menggunakan Bahasa Permrograman Pascal.
Berikut ini ada sebuah Program ulang beserta Outputnya:

uses crt;
var
x, x1, x2, y1, y2, pers1, pers2 : real;
begin
clrscr;
writeln;
write('--Mencari Persamaan Linier--');
writeln; writeln;
write('    Masukan nilai x[1] = '); readln(x1);
write('    Masukan nilai y[1] = '); readln(y1);
write('    Masukan nilai x[2] = '); readln(x2);
write('    Masukan nilai y[2] = '); readln(y2);
writeln;
write('>> Masukan nilai x yang akan dicari : ');
readln(x);
pers1   := (y2-y1)/(x2-x1);
pers2 := y1+(x-x1)*pers1;
writeln;
write('>> Hasil Perhitungan P(x) adalah    : ', pers2:2:2);
readln;
end.

Setelah selesai menuliskan program tersebut di atas, coba compile dengan Pascal Compiler.
Jika programnya sudah benar, maka akan menampilkan Output seperti Gambar berikut:

 --- Klik Pada Gambar Untuk Memperbesar ---

Pada contoh program diatas, ditujukan untuk menentukan titik-titik antara 2 buah titik dengan menggunakan pendekatan fungsi garis lurus.

Sebagai contoh:

Cari Nilai y untuk titik x=8 yang berada diantara titik (0,2) dan (4,6)

Jawab :