program menuOke;

uses wincrt;

var tanya, pilih : char;

nama: string;

 

procedure Grafik;

var x,y: integer;

var hasil1: real;

 

begin

 

writeln (‘METODE GRAFIK’);

writeln(‘Tentukan penyelesaian dari sistem persaman 2x + 3y = 12 dan x + y = 2’);

writeln(‘2x + 3y = 12’);

writeln(‘jika nilai x=0, maka nilai y=4’);

writeln (‘jika nilai y=0, maka nilai x=6’);

writeln (‘x + y = 2’);

writeln(‘jika nilai x=0, maka nilai y=2’);

writeln (‘jika nilai y=0, maka nilai x=2’);

writeln(‘Jadi, titik P(-6,8) merupakan penyelesaian dari 2x + 3y = 12 dan x + y = 2’);

readln;

writeln (‘CATATAN:’);

writeln (‘Apabila kedua garis sejajar atau tidak berpotongan disatu titik,’);

writeln (‘mka kemungkinan kedua garis tersebut adalah sebagai berikut::’);

writeln(‘a. Sejajar, sehingga HP-nya { , }’);

writeln (‘b. berimpit, sehingga himpunan penyelesaiannya adalah tak terhingga, ‘);

write (‘asal titik-titik tersebut dilalui oleh kedua garis tersebut.’);

end;

 

procedure Reduksi;

var a,b: integer;

var hasil: real;

 

begin

writeln (‘METODE REDUKSI’);

writeln (‘Metode ini berdasarkan pada operasi pengurangan, tujuannya adalah menghilangkan salah satu variabel.’);

write (‘Apabila satu kali pengurangan salah satu variabelnya tidak hilang, maka dapat dilakukan pebguranagn berulang.’);

end;

 

procedure Eliminasi;

var a,b: integer;

var hasil: real;

 

begin

writeln (‘METODE ELIMINASI’);

Writeln(‘Metode Eliminasi merupakan metode yang dilakukan denagn menghilangkan salah satu variabel.’); readln;

writeln(‘Apabila koefisien variabe ang dihilangkan belum sama, maka disamakan terlebih dahulu dengan mencari KPK ‘);

write(‘ dari dua sistem persamaan linear. Jika koefisien variabel yang dihilangkan sama tanda,’);

write (‘ maka kedua persamaan tersebut dikurangi, tetapi jika berbeda tanda, maka dijumblahkan.’);

end;

 

procedure Substitusi;

var a,b: integer;

var hasil: real;

 

begin

writeln (‘METODE SUBSTITUSI’);

writeln(‘Metode substitusi adalah penyelesaian sistem persaman linear’);

write(‘ dengan mengganti salah satu variabel dengan variabel lain.’);

end;

 

 

begin

writeln(‘Hai Teman…. ^^’);

writeln (‘Selamat Datang Dalam pembelajaran Sistem Persaman Linear Dua Variabel.’);

readln;

write (‘Silahkan Masukkan Nama Kamu: ‘ );

readln (nama);

Writeln (‘Hai,,’); writeln (nama) ;

writeln (‘ Selamat Belajar Dengan Aku ^^’);

writeln (‘Aku akan Membantu Kamu, dan Membuat Pelajaran ini Menjadi Menyenangkan.’);

readln;

write (‘Apakah Kamu jurusan matematika..?????? [ya/tidak]:..’);

readln (nama);

if (nama=’ya’) then

writeln (‘Mari kita mulai belajar Teman ^^’);

if (nama=’tidak’) then

writeln (‘Tidak Masalah Teman, Mari kita mulai belajar ^^ !!!’);

readln;

 

begin

repeat

clrscr;

writeln (‘Sistem Persaman Linear Dua Variabel’);

writeln (‘1. Metode Grafik’);

writeln (‘2. Metode Reduksi’);

writeln (‘3. Metode Eliminasi’);

writeln (‘4. Metode Substitusi’);

 

writeln (‘Masukan Pilihan Anda:…’);

readln(pilih);

 

case pilih of

 

‘1’: Grafik;

‘2’: Reduksi;

‘3’: Eliminasi;

‘4’: Substitusi;

else

end;

 

readln;

writeln(‘Anda masih mau Lanujut [tekan y/t]:…’);

readln (tanya);

until (tanya=’t’) or (tanya=’T’);

clrscr;

writeln(‘Terima Kasin Kamu teLah Memakai Program Aku…?! ^^’);

writeln(‘dina.mulyanie@yahoo.com’);

writeln(‘Sampai Jumpa…^^’);

end;

end.