program case_pilih;

uses wincrt;

var pilih:char;

var a,b,c:integer;

nama: string;

var I: integer;

var nilai : Real;

var x, y, z:Byte;

var metode :char;

hasil:integer;

 

 

procedure variabel;

var pilih1,pilih2,pilih3:integer;

begin

if (pilih=’1′) then

writeln (‘metode grafik’);

if (pilih=’2′) then

writeln (‘metode substitusi’);

if (pilih=’3′) then

writeln (‘metode eliminasi’);

 

 

if (pilih=’1′) then

writeln (‘metode grafik’);

readln;

writeln(‘contoh : ‘);

writeln(‘bentuk persamaan 1 : ax + by = c’);

write(‘masukkan nilai a :’);

readln(a);

write(‘masukkan nilai b : ‘);

readln(b);

write(‘masukkan nilai c : ‘);

readln(c);

writeln(‘maka persamaan menjadi : ‘,a,’x + ‘,b,’y = ‘,c,”);

writeln(‘contoh : ‘);

writeln(‘bentuk persamaan 2 : ax + by = c’);

write(‘masukkan nilai a :’);

readln(a);

write(‘masukkan nilai b : ‘);

readln(b);

write(‘masukkan nilai c : ‘);

readln(c);

writeln(‘maka persamaan menjadi : ‘,a,’x + ‘,b,’y = ‘,c,”);

writeln (‘maka hasil eliminasi persamaan 1 dengan persamaan 2:=’);

readln;

write (‘Masukkan nilai pers ke-1’);

writeln (‘masukan pers ke-1 x^x+y=’,2);

readln;

writeln(‘masukan pers ke-2 x^3x+2y=’,8);

readln;

 

 

 

if (pilih=’2′) then

writeln (‘metode substitusi’);

writeln(‘contoh : ‘);

writeln(‘bentuk persamaan 1 : ax + by = c’);

write(‘masukkan nilai a :’);

readln(a);

write(‘masukkan nilai b : ‘);

readln(b);

write(‘masukkan nilai c : ‘);

readln(c);

writeln(‘maka persamaan menjadi : ‘,a,’x + ‘,b,’y = ‘,c,”);

writeln(‘contoh : ‘);

writeln(‘bentuk persamaan 2 : ax + by = c’);

write(‘masukkan nilai a :’);

readln(a);

write(‘masukkan nilai b : ‘);

readln(b);

write(‘masukkan nilai c : ‘);

readln(c);

writeln(‘maka persamaan menjadi : ‘,a,’x + ‘,b,’y = ‘,c,”);

writeln (‘maka hasil substitusi persamaan 1 dengan persamaan 2:=’);

readln;

 

if (pilih=’3′) then

writeln (‘metode eliminasi’);

writeln(‘contoh : ‘);

writeln(‘bentuk persamaan 1 : ax + by = c’);

write(‘masukkan nilai a :’);

readln(a);

write(‘masukkan nilai b : ‘);

readln(b);

write(‘masukkan nilai c : ‘);

readln(c);

writeln(‘maka persamaan menjadi : ‘,a,’x + ‘,b,’y = ‘,c,”);

writeln(‘contoh : ‘);

writeln(‘bentuk persamaan 2 : ax + by = c’);

write(‘masukkan nilai a :’);

readln(a);

write(‘masukkan nilai b : ‘);

readln(b);

write(‘masukkan nilai c : ‘);

readln(c);

writeln(‘maka persamaan menjadi : ‘,a,’x + ‘,b,’y = ‘,c,”);

writeln (‘maka hasil substitusi persamaan 1 dengan persamaan 2:=’);

readln;

end;

begin

writeln(‘ASALAMUALAIKUM Wr.wb……’);

writeln (‘selamat datang dalam pembelajaran tentang SPLDV’);

readln;

write (‘Silakan masukkan nama anda: ‘ );

readln (nama);

Write (nama) ;

writeln (‘ selamat belajar dengan kami’);

readln;

write (‘Apakah anda jurusan matematika??????’);

readln (nama);

if(nama=’ya’) then

writeln (‘Mari kita belajar’);

if(nama=’tidak’) then

writeln (‘tidak masalah!!!’);

readln (nama);

 

Writeln(‘menggunakan dengan menggunakan sistem persamaan liner dengan dua variabel’);

writeln(‘dengan metode grafik’);

readLN;

writeln(‘dengan metode substitusi’);

readln;

writeln(‘dengan metode eliminasi’);

readln;

Writeln(‘kita ambil contoh soal’);

writeln (‘contohnya’);

writeln (‘nilai x+y=’,2);

writeln (‘nilai 3x+2y=’,8);

readln;

writeln(‘pilih angka yang anda suka:[1],[2],[3]’);

readln(pilih);

case pilih of

‘1’ : variabel;

‘2’ :variabel;

‘3’ :variabel;

else

end;

writeln(‘terima kasih telah ikut belajar dengan kami’);

writeln(‘kurang lebihnya saya mohon maaf bila ada banyak kekurangan’);

readln;

writeln(‘ASALAMUALAIKUM Wr.Wb’);

readln;

end.