Berikut adalah Source Code Program Pencari Faktor Persamaan Kuadrat dalam Bahasa Pascal.

Data arsip dari Die Coding, silakan digunakan dan diubah sesuka hati, semoga bermanfaat.

program faktorisasi;
uses crt;

var
	a, b, c, D, x1, x2 : real; 

begin
	clrscr;
	writeln (' ------------------------------------------ ');
	writeln ('| Program Pencari Faktor Persamaan Kuadrat |');
	writeln (' ------------------------------------------ ');
	writeln ('|                                          |');
	writeln ('|             ax^2 + bx + c = 0            |');
	writeln ('|           source: diecoding.com          |');
	writeln ('|                                          |');
	writeln (' ------------------------------------------ ');
	writeln;
	writeln ('Masukkan nilai: ');
	write ('a = '); readln (a);
	write ('b = '); readln (b);
	write ('c = '); readln (c);
	writeln;writeln;
	writeln ('--------------------------------------------');

	if a <> 0 then
		begin
			D := b*b - 4*a*c;
			if D < 0 then
				writeln ('Persamaan kuadrat tidak memiliki akar real.')
			else begin
				x1 := (-b + sqrt(D)) / 2*a;
				x2 := (-b - sqrt(D)) / 2*a;					
				writeln ('Jadi, akar-akar dari persamaan (',
					a:0:0,
					')x^2 + (',
					b:0:0,
					') x + (',
					c:0:0,
					') = 0 adalah x1 = ',
					x1:0:1,
					' dan x2 = ',
					x2:0:1
				);
			end				
		end
	else
		writeln ('Maaf, nilai a tidak boleh "0"');
	readkey;
end.