program menuOke;

uses wincrt;

var tanya, pilih : char;

nama:string;

 

procedure variabela;

var a,b: integer;

var hasil: real;

 

begin

 

writeln (‘1.nyatakan bagian persamaan linear x dalam y atau y dalam x’);

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

readln(a);

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

readln(b);

clrscr;

writeln (‘2.substitusikan x atau y pada langkah 1 ke bagian bentuk kuadrat’);

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

readln(a);

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

readln(b);

clrscr;

writeln (‘3.selesaikan PK pada langkah 2,kemudian substitusikan nilai-nilai yang didapat’);

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

readln(a);

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

readln(b);

end;

 

procedure variabelb;

var a,b,x,y: integer;

var hasil: real;

 

begin

writeln (‘1.nyatakan bentuk kuadrat kedalam faktor-faktor dengan ruas kanan sama dengan nol’);

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

readln(a);

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

readln(b);

clrscr;

writeln (‘2.bentuk-bentuk linear langkah 1 digabungkan kedalam persamaan semula’);

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

readln(a);

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

readln(b);

end;

 

begin

writeln (‘assalamualaikum’);

writeln(‘Hello sobat…. !!!!’);

writeln (‘Selamat Datang Dalam pembelajaran Sistem Persaman Linear dan Kuadrat.’);

readln;

write (‘Silahkan Masukkan Nama Mu: ‘ );

readln (nama);

Writeln (‘Hello,,’); writeln (nama) ;

writeln (‘ Selamat Belajar Dengan kami’);

writeln (‘Kami akan membantu Mu, dan Membuat Pelajaran ini Menjadi begitu mudah.’);

readln;

write (‘Apakah Kamu menyukai matematika??’);

readln (nama);

if (nama=’ya’) then

writeln (‘Mari kita mulai belajar sobat ‘);

if (nama=’tidak’) then

writeln (‘Tidak Masalah sobat, kita berbagi ilmu bersama-sama!!!’);

readln;

 

begin

repeat

clrscr;

writeln (‘SPLK dengan bagian kuadrat berbentuk implisit:’);

writeln (‘1.impilisit tidak dapat difaktorkan’);

writeln (‘2.implisit dapat difaktorkan’);

 

writeln (‘Masukan Pilihan Anda:’);

readln(pilih);

 

case pilih of

 

‘1’: variabela;

‘2’: variabelb;

 

else

end;

 

 

write(‘Anda masih mau Lanjut [tekan y/t]:’);

readln (tanya);

until (tanya=’t’) or (tanya=’T’);

clrscr;

writeln(‘Terima Kasih Kamu teLah memakai Program Kami..?! ^^’);

writeln(‘ifkohn@yahoo.com’);

writeln(‘good bye…^^’);

writeln(‘wassalamualaikum…’);

end;

end.