program casePilih;

uses wincrt;

var pilih: char;

nama: string;

 

procedure variabel;

var pilih1,pilih2, pilih3, pilih4: integer;

 

begin

if (pilih=’1′) then

writeln (‘Metode grafik’);

if (pilih=’2′) then

writeln (‘Metode Reduksi’);

if (pilih=’3′) then

writeln (‘Metode Eliminasi’);

if (pilih=’4′) then

writeln (‘Metode Substitusi’);

 

if (pilih=’1′) then

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

if (pilih=’2’) then

writeln (‘Tentukan himpunan penyelesaian dari 3x + 2y =17 dan 2x – 3y = -6′);

if (pilih=’3’) then

writeln (‘Tentukan Penyelesaian dari sistem persaman 2x + 3y = 6 dan x – y = 3′);

if (pilih=’4’) then

writeln (‘Tentukan Penyelesaian dari 3x + y = 7 dan x + 4y =6’);

 

end;

 

 

 

 

begin

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

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

readln;

write (‘Silakan 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..??????’);

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;

writeln (‘A. Persaman Linear Dua Peubah (Variabe)’);

writeln (‘Bentuk persamaan ax + by + c = 0 denan a,b tidak sama dengan 0, dan a,b,c adalah bilngan real.’);

writeln (‘Persaman tersebut merupakan kalimat terbuka dengan x dan y sebagai peubah (variabel),’);

write(‘a dan b disebut koefisien, serta c disebut konstanta.’);

readln;

 

writeln (‘B. Sistem Persamaan Linear Dua Variabel.’);

writeln(‘Bentuk persamaan linear dua variabel adalah ax + by = c dan px +qy = r.’);

write (‘ Keduanya merupakan sistem persaman linear dengan dua variabel.’);

write (‘jika terdapat pasangan (x1,y1) sebagai penyelesaiannya, maka berlaku: ax1 + by1 + c dan px1 + qy1 = r.’);

readln;

writeln (‘terdapat 4 Metode untuk menyelesaikan sistem persaman linear dua variabel.’);

readln;

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

readln (pilih);

case pilih of

‘1’: variabel;

‘2’: variabel;

‘3’: variabel;

‘4’: variabel;

else

end;

 

 

end.