program funcDanproc_dan_PesanLokasiArray ;

uses wincrt;

var lanjut :longint ;

var nama :string;

var a1,a2,b1,b2,c1,c2,nilai1,nilai2,nilai: longint;

var hasil1,hasil2,hitung,bagi :real;

var persamaan :array [1..2] of longint;

var i:longint;

var mau: byte;

var x,y,z:integer;

var tanya,pilih: char;

keterangan : string[4];

 

procedure garis1;

begin

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

end;

procedure garis2;

begin

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

end;

procedure menghilangkan_variabel;

var a1,a2b1,b2,c1,c2,hasil1,hasil2,hasil3,hasil4,hasil5,hasil6,hasil7,hasil8,hasil9,nilai,hasil10,hasil11,hasil13:integer;

var hasi14,hasil16,hasil17,hasil18,hasil12,hasil15:integer;

var x, y, z:Byte;

function hasil (var a:longint) : longint ;

begin

end;

begin

for i :=1 to 2 do

begin

garis2 ;

writeln (‘OPERASI ELIMINASI’);

garis2 ;

write(‘masukkan nilai a :’);

readln(a1);

readln(a2);

write(‘masukkan nilai b : ‘);

readln(b1);

readln(b2);

write(‘masukkan nilai c : ‘);

readln(c1);

readln(c2);

write(‘Masukan persamaan ke-‘,i,’adalah:’,a1,’x + ‘,b1,’y =’,c1);

writeln(‘Masukan persamaan ke-‘,i,’adalah:’,a2,’x + ‘,b2,’y =’,c2);

readln(nama[i]);

end;

begin

write(‘Masukan persamaan yang anda mau:’);

readln(mau);

writeln (‘persamaan ke-‘,mau,’adalah :’,a1,’x + ‘,b1,’y =’,c1,’persamaan ke-‘,mau,’adalah:’,a1,’,x + ‘,b1,’y =’,c1,nama[mau]);

readln(nama[mau]);

writeln (‘masukan persamaan ke-‘,i,’adalah:’,a2,’*’,(-c2),’-‘,b2,’*’,(-c1) ,’bagi’, a1,’*’,a1,’-‘,b1,’*’,b1,’=’);

readln(nama[i]);

writeln(‘maka hasil1=’,a2,’*’,(-c2),’=’);

hasil1 :=a2*(-c2);writeln(hasil1);

writeln(‘maka hasil2=’,b2,’*’,(-c1),’=’);

hasil2:=b2*(-c1);writeln(hasil2);

writeln(‘,’,hasil1,’-‘,hasil2,’=’);

hasil3:=hasil1-hasil2;writeln(hasil3);

writeln(‘maka hasil4=’, a1,’*’,a1,’=’);

hasil4:=a1*a1;write(hasil4);

writeln(‘maka hasil5=’,b1,’*’,b1,’=’);

hasil5 :=b1*b1;writeln(hasil5);

writeln(‘,’,hasil4,’-‘,hasil5,’=’);

hasil6:=hasil4-hasil5;writeln(hasil6);

writeln(‘maka hasil untuk sumbu x=’,hasil3/hasil6,’=’);

hasil12:=hasil3 DIV hasil6;writeln(hasil12);

writeln (‘masukan persamaan ke-‘,i,’adalah:’,a1,’*’,(-c2),’-‘,b1,’*’,(-c1) ,’bagi’,b1,’*’,b1,’-‘,a1,’*’,a1,’=’);

readln(nama[i]);

writeln(‘maka hasil7=’,a1,’*’,(-c2),’=’ );

hasil7 :=a1*(-c2);writeln(hasil7);

writeln(‘maka hasil8=’,b1,’*’,(-c1),’=’);

hasil8:=b1*(-c1);writeln(hasil8);

writeln(‘,’,hasil7,’-‘,hasil8,’=’);

hasil9:=hasil7-hasil8;writeln(hasil9);

writeln(‘maka hasil10=’, a1,’*’,a1,’=’);

hasil10:=a1*a1;writeln(hasil10);

writeln(‘maka hasil11=’,b1,’*’,b1,’=’);

hasil11 :=b1*b1;writeln(hasil11);

writeln(‘,’,hasil10,’-‘,hasil11,’=’); writeln(hasil13);

writeln(‘maka hasil untuk sumbu y=’,hasil9/hasil13,’=’);

hasil15:=hasil9 DIV hasil13;

writeln(hasil15);

writeln(‘jadi himpunan penyelesaiannya adalah=(‘,hasil12,’,’,hasil15);

writeln(hasil12,hasil16);

end;

end;

procedure perkalian ;

var x, y, z:Byte;

var a1,a2,nilaix,b1,b2, c1,c2:integer;

var hasil1,hasil2,hasil3,hasil4:integer;

function hasil (var a:longint) : longint ;

begin

end;

begin

for i :=1 to 2 do

begin

clrscr;

garis2 ;

writeln (‘OPERASI SUBSTITUSI’);

garis2 ;

write(‘masukkan nilai a :’);

readln(a1);

readln(a2);

write(‘masukkan nilai b : ‘);

readln(b1);

readln(b2);

write(‘masukkan nilai c : ‘);

readln(c1);

readln(c2);

write(‘Masukan persamaan ke-‘,i,’adalah:’,a1,’x + ‘,b1,’y =’,c1);

writeln(‘Masukan persamaan ke-‘,i,’adalah:’,a2,’x + ‘,b2,’y =’,c2);

readln(nama[i]);

end;

write(‘Masukan persamaan yang anda mau:’);

readln(mau);

writeln (‘persamaan ke-‘,mau,’adalah :’,a1,’x + ‘,b1,’y =’,c1,nama[mau]);

readln(nama[mau]);

write (‘Masukkan nilai uji : ‘);

readln (nilai1);

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

write (‘Jika x di substitusi dengan ‘);

writeln (nilaix);

writeln (‘Menjadi’);

write (nilai1);

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

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

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

write (nilai1);

readln;

write (‘Dan hasilnya adalah:’);

hasil1:=c1+nilai1-b1;

writeln (hasil1);

readln;

end;

procedure grafik;

var

hasil3,hasil4:real;

bil1,bil2,hasil1,hasil2:integer;

a,b,c,d:real;

pers3,pers4,pers5,pers6,pers7,pers8,pers9:real;

xa,ya,za,pers,pers2:integer;

x1,x2,ci,i,n,dat,tot:integer;

fak:longint;

angka:integer;

x:array [1..100] of integer;

function hitung(a:integer; n:integer):integer;

var

hasil:integer;

begin

hasil:=1;

hasil:=hasil*a;

hasil1:=hasil;

end;

begin

writeln(‘sistem persamaan dua variabel’);

garis2;

writeln(‘sistem persamaan dua variabel (xa,ya) adalah y=a(x-xa)^2+ya+y’);

garis1;

write(‘masukan xa = ‘);readln(xa);

write(‘masukan ya = ‘);readln(ya);

writeln;

writeln(‘sistem persamaan dua variabel dengan hp (‘,xa,’,’,ya,’)’);

writeln(‘adalah y=a(x-‘,xa,’)^a(y-‘,ya,’)=’);

write(‘masukan  z= ‘);readln(za);

writeln;

writeln(‘subtitusikan titik (‘,xa,’,’,za,’) ke persamaan’);

writeln(za,’=a(x-‘,xa,’)^a(y-‘,ya);

pers:=sqr(xa);

writeln(za,’=a*’,pers,’+’,’^a(y-‘,ya);

pers2:=za-ya;

writeln(pers2,’=a*’,pers);

pers3:=pers2/pers;

writeln(‘a=’,pers3:5:1);

writeln;

writeln(‘maka persamaannya adalah’);

writeln(‘y=’,pers3:5:1,'(x-‘,xa,’)^+’,’a(y-‘,ya);

pers4:=2*xa*pers3;

pers5:=(pers*pers3)+ya;

writeln(‘z=’,pers3:5:1,’x*x -‘,pers4:5:1,’y +’,pers5:5:1);

garis2;

end;

begin

clrscr;

garis1;

writeln(‘PROGRAM PERSAMAAN DUA VARIABEL’);

garis2;

writeln(‘1.eliminasi’);

writeln(‘2.substitusi’);

writeln(‘3.grafik’);

garis2;

write(‘masukan pilihan anda:…’);

readln(pilih);

case pilih of

‘1’:menghilangkan_variabel;

‘2’:perkalian;

‘3’:grafik;

else

writeln;

writeln(‘Pilih sesuai menu dund!!!’);

writeln(‘oke…………oke……….^^!!!!!!!’);

end;

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

readln (tanya);

clrscr;

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

writeln(‘martinad43@yahoo.com’);

writeln(‘sampai jumpa’);

garis1;

writeln(‘ASALAmualaikum’);

garis2;

writeln(‘NAMA     : dina martina’);

writeln(‘SMT/KLS  : 3/D’);

writeln(‘NIM      : 2225092234’);

writeln(‘MATERI  :SISTEM PERSAMAAN DUA VARIABEL ‘);

 

 

end.