program menuok ;
uses wincrt ;
var pilih,tanya : char ;
var angka, hasil, i : integer ;
var kata : string ;

procedure materi ;
begin
clrscr ;
writeln (‘Langkah-langkah yang diperlukan untuk menyelesaikan pertidaksamaan kuadrat’);
writeln (‘dengan menggunakan garis bilangan :’);
writeln (‘………………………………………………………………..’);
readln ;
writeln (‘—————‘);
writeln (‘Langkah Pertama’);
writeln (‘—————‘);
writeln (‘Carilah nilai-nilai nol (jika ada) dari bagian ruas kiri pertidaksamaan’);
readln ;
writeln (‘ax^2+bx+c=0’);
readln ;
writeln (‘————-‘);
writeln (‘Langkah Kedua’);
writeln (‘————-‘);
writeln (‘Gambarlah nilai-nilai nol itu pada diagram garis bilangan,’);
writeln (‘sehingga diperoleh interval-interval’);
readln ;
writeln (‘————–‘);
writeln (‘Langkah Ketiga’);
writeln (‘————–‘);
writeln (‘Tentukan tanda-tanda interval dengan cara mensubstitusikan nilai-nilai uji’);
writeln (‘yang berada dalam masing-masing interval’);
readln ;
writeln (‘—————‘);
writeln (‘Langkah Keempat’);
writeln (‘—————‘);
writeln (‘Berdasarkan tanda-tanda interval yang diperoleh pada langkah ketiga,’);
writeln (‘kita dapat menetapkan interval yang memenuhi’);
readln ;
end ;

procedure contohsoal ;
begin
clrscr ;
hasil :=1 ;
writeln (‘Contoh Soal’);
readln ;
writeln (‘Carilah himpunan penyelesaian dari setiap pertidaksamaan kuadrat berikut’);
writeln (‘dengan menggunakan garis bilangan’);
readln ;
writeln (‘x^2+x-6<0’);
readln ;
writeln (‘Jawab :’);
readln ;
writeln (‘Langkah Pertama’);
writeln (‘—————‘);
writeln (‘x^2+x-6=0’);
writeln (‘<=> (x+3)(x-2)=0’);
writeln (‘<=> x=-3 atau x=2’);
readln ;
writeln (‘Langkah Kedua’);
writeln (‘————-‘);
writeln (‘nilai-nilai nol digambarkan pada garis bilangan’);
readln ;
writeln (‘Langkah Ketiga’);
writeln (‘————–‘);
writeln (‘Memasukkan nilai uji’);
write (‘Nilai Uji 1: ‘);
readln (angka);
write (‘Maka x^2+x-6 dengan x=’);
writeln (angka);
readln;
write (‘Dan hasilnya adalah : ‘);
for i:=1 to 1 do
begin
hasil:=angka*angka+angka-6 ;
writeln (hasil);
end ;
readln ;
write (‘Nilai Uji 2: ‘);
readln (angka);
write (‘Maka x^2+x-6 dengan x=’);
writeln (angka);
readln;
write (‘Dan hasilnya adalah : ‘);
for i:=1 to 1 do
begin
hasil:=angka*angka+angka-6 ;
writeln (hasil);
end ;
readln ;
write (‘Nilai Uji 3: ‘);
readln (angka);
write (‘Maka x^2+x-6 dengan x=’);
writeln (angka);
readln;
write (‘Dan hasilnya adalah : ‘);
for i:=1 to 1 do
begin
hasil:=angka*angka+angka-6 ;
writeln (hasil);
end ;
readln ;
writeln (‘Langkah Keempat’);
writeln (‘—————‘);
writeln (‘jadi, himpunan penyelesaiannya adalah HP={x/-3<x<2}’);
end ;

procedure latihan ;
begin
clrscr ;
writeln (‘Carilah batas-batas nilai x agar grafik y=3x-1 berada di atas grafik y=x^2-x+2 ?’);
readln ;
write (‘Bisa atau Tidak ? ‘);
readln (kata) ;
if (kata=’ya’) then
begin
writeln (‘Silakan tulis jawaban anda di buku tulis !’);
end
else
writeln (‘Maaf anda harus mengulang pelajaran ini !!!’);
end ;

begin
repeat
clrscr ;
writeln (‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%’);
writeln (‘Menyelesaikan Pertidaksamaan Kuadrat dengan Menggunakan Garis Bilangan’);
writeln (‘%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%’);
writeln (‘ /=================\’);
writeln (‘<——————->’);
writeln (‘| 1. Materi         |’);
writeln (‘<——————->’);
writeln (‘| 2. Contoh Soal    |’);
writeln (‘<——————->’);
writeln (‘| 3. Latihan        |’);
writeln (‘<===================>’);
readln ;
write (‘Silakan masukkan pilihan yang kamu sukai :… ‘);
readln (pilih);

case pilih of
‘1’ : materi ;
‘2’ : contohsoal ;
‘3’ : latihan ;

else
writeln (‘################# E R R O R #################’);
readln ;
end;

writeln(‘Apakah Anda Masih Mau Lanjut ? ‘);
write (‘Tekan y/t : … ‘);
readln(tanya);

until tanya=’t’;
clrscr;
writeln (‘++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘Terima Kasih Telah Mampir Di Program Saya ….’);
writeln (‘++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘Ahmad Fauzi Abdullah’);
readln ;
writeln (‘Jika ada yang mau di tanyakan silahkan kirim e-mail ke : …’);
writeln (‘++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++’);
writeln (‘.===================.’);
writeln (‘|zifau90@yahoo.co.id|’);
writeln (‘=====================’);

end.

download di sini