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.perpangkatan’);
writeln(‘4.pengakaran’);
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.