Program menuOke;

uses wincrt;

var tanya,pilih: char;

keterangan : string[4];

procedure menghilangkan_variabel ;

var pers1,pers2,pers,nilai,hasil:integer;

var x, y, z:Byte;

var a1,a2, b1,b2, c1,c2:char;

 

begin

clrscr;

writeln(‘OPERASI ELIMINASI’);

writeln (‘==============’);

writeln (‘a1=1,b1=1c1=2’);

writeln(‘a2=3,b2=2,c2=8’);

write(‘masukan nilai pers1=’);

writeln(‘bentuk per1 : a1x + b1y = c1’);

write(‘masukkan nilai a1 :’);

readln(a1);

write(‘masukkan nilai b1 : ‘);

readln(b1);

write(‘masukkan nilai c1 : ‘);

readln(c1);

write(‘maka pers1 menjadi : ‘,a1,’x + ‘,b1,’y = ‘,c1);

readln;

write(‘masukan nilai pers2=’);

writeln(‘bentuk pers2 : a2x + b2y = c2’);

write(‘masukkan nilai a2 :’);

readln(a2);

write(‘masukkan nilai b2 : ‘);

readln(b2);

write(‘masukkan nilai c2 : ‘);

readln(c2);

write(‘maka pers2 menjadi : ‘,a2,’x – ‘,b2,’y = ‘,c2);

readln;

write (‘Maka x^’,a1,’x + ‘,b1,’y=’,c1,’ dengan mengeliminasi x^’,a2,’x – ‘,b2,’y=’,c2 );

readln;

write (‘Jika x di eliminasi dengan ‘);

writeln (‘Menjadi ‘);

write (nilai);

write (‘^’,a1,’x’);

write (‘,-‘,a2,’x’);

write (‘^’,b1,’y’);

write (‘-‘,b2,’y’);

write(nilai);

write (‘^’,c1);

write (‘,-‘,c2);

readln;

write (‘Dan hasilnya’);

writeln (‘x+y=2, diubah menjadi y=2-x kemudian persamaan y=2-x dieliminasi ke persamaan 3x+2y=8’);

write (‘Maka x^y=2-x dengan x=4’);

writeln (nilai);

readln;

x:=4;

writeln(‘nilai’,2,’-‘,x,’=,’,-2);

writeln(‘jadi himpunan penyelesaiannya SPLDV adalah {(4,-2)}’);

readln;

writeln(‘hasil kurang’,pers1,’dengan’,pers2,’adalah’,hasil);

end;

procedure perkalian ;

var pers1,pers2,pers,nilai,hasil:integer;

var x, y, z:Byte;

var a1,a2, b1,b2, c1,c2:char;

 

begin

clrscr;

writeln(‘OPERASI SUBSTITUSI’);

writeln (‘==============’);

writeln(‘masukan a=2,b=1,c=6’);

write(‘masukan persamaan ke-1:’);

writeln(‘bentuk per1 : a1x + b1y = c1’);

write(‘masukkan nilai a1 :’);

readln(a1);

write(‘masukkan nilai b1 : ‘);

readln(b1);

write(‘masukkan nilai c1 : ‘);

readln(c1);

write(‘maka pers1 menjadi : ‘,a1,’x + ‘,b1,’y = ‘,c1);

readln;

write (‘Masukkan nilai uji : ‘);

readln (nilai);

write (‘Maka x^’,a1,’x + ‘,b1,’y =’,c1,’dengan x=’);

writeln (nilai);

readln;

write (‘Jika x di substitusi dengan ‘);

writeln (nilai);

writeln(‘masukan a=2,b=1,c=6’);

writeln(‘maka menjadi pers 2x+y=6 ‘);

writeln (‘Menjadi ‘);

write (nilai);

write (‘^,’,a1,’x’);

write (‘,-‘,b1,’y’);

write (‘=’,c1,’,’);

write (nilai);

readln;

write (‘Dan hasilnya adalah:’);

hasil:=6-2*nilai;

writeln (hasil);

readln;

end;

procedure memasukan_nilai_variabel_xatauy ;

var pers1,pers2,pers,nilai,hasil1,hasil2:integer;

var x, y, z:Byte;

var a1,a2, b1,b2, c1,c2:char;

 

begin

writeln(‘OPERASI GRAFIK’);

writeln (‘==============’);

writeln(‘masukan persamaan ke-1:’);

writeln(‘masukan a=2,b=1,c=6’);

write(‘masukan persamaan ke-1:’);

writeln(‘bentuk per1 : a1x + b1y = c1’);

write(‘masukkan nilai a1 :’);

readln(a1);

write(‘masukkan nilai b1 : ‘);

readln(b1);

write(‘masukkan nilai c1 : ‘);

readln(c1);

write(‘maka pers1 menjadi : ‘,a1,’x + ‘,b1,’y = ‘,c1);

readln;

write (‘Maka x^’,a1,’x + ‘,b1,’y =’,c1,’dengan uji-uji’);

readln;

write (‘Masukkan nilai uji x : ‘);

readln(nilai);

writeln(‘masukan a=2,b=1,c=6’);

writeln(‘maka menjadi pers 2x+y=6 ‘);

write (‘^,’,a1,’x’);

write (‘,-‘,b1,’y’);

write (‘=’,c1,’,’);

readln;

hasil1:=6-2*nilai;

writeln (hasil1);

readln;

write (‘Masukkan nilai uji y : ‘);

readln(nilai);

writeln (‘jika melalui sumbu y=2’);

writeln (‘Dan hasilnya adalah:’);

hasil2:=6-2*nilai;

writeln (hasil2);

readln;

writeln(hasil1,hasil2);

readln;

end;

begin

repeat

clrscr;

writeln(‘===========’);

writeln(‘PROGRAM OPERASI MTK’);

writeln(‘==========’);

writeln(‘1.eliminasi’);

writeln(‘2.substitusi’);

writeln(‘3.grafik’);

 

writeln(‘================’);

write(‘masukan pilihan anda:…’);

readln(pilih);

case pilih of

‘1’:menghilangkan_variabel;

‘2’:perkalian;

‘3’:memasukan_nilai_variabel_xatauy;

 

else

writeln;

writeln(‘Pilih seuai menu!!!’);

end;

write (‘Anda Masih Mau Lanjut untuk belajar lagi[TEKAN a/b]:….’);

readln (tanya);

until (tanya=’a’)or (tanya=’b’);

clrscr;

writeln(‘TERIMAKASIH ANDA TELAH MEMAKAI PROGRAM KAMI’);

writeln(‘martinad43@yahoo.com’);

writeln(‘sampai jumpa’);

writeln(‘walaikumsalam…..wr.wb’);

end.