program CASE_PILIHAN;

uses

wincrt;

var

pilih:char;

var pers, pers1 : string ;

 

 

begin

writeln (‘SPLK dengan Bagian Kuadrat Berbentuk implisit’);

readln ;

writeln (‘Manakah di antara persamaan berikut yang merupakan bagian linear/kuadrat’);

readln ;

writeln (‘y = ax + b, bagian linear/kuadrat ? ‘);

writeln (‘Jawab.’);

readln (pers1);

if (pers1=’bagian linear’) or (pers1=’linear’) then

begin

writeln (‘benar’);

end

else

begin

writeln (‘salah’);

end ;

readln ;

writeln (‘y = px^2 + qx + r, bagian linear/kuadrat ? ‘);

writeln (‘Jawab.’);

readln (pers);

 

 

write(‘pilih SPLK dengan bagian kuadrat berbentuk implisit [1],[2],[3]:’);

readln (pilih);

case pilih of

‘1’: write (‘x^2+y^2+2x-y=0’);

‘2’: write (‘y=3x-2’);

‘3’: write (‘x-y=0’);

 

 

else

write (‘COBA BACA YANG BENAR!!!’);

 

end;

 

end.