program funcDanproc_dan_PesanLokasiArray ;

uses wincrt;

var maju :longint ;

var nama,nama1,nama2,nama3 :string;

var angka,angka1, angka2, angka3: longint;

var sistempersmaanlinierdankudratberbentukimplisit : array [1..7] of longint ;

var i:longint;

 

 

procedure garis;

begin

writeln (‘!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!’);

end;

procedure garis2;

begin

writeln (‘++++++++++++++++++++++++++++++’);

end;

procedure implisit(var a:longint);

function hasil (var a:longint) : longint ;

begin

hasil :=angka*a*a+angka2*a+angka3;

end;

begin

for i :=1 to 7 do

end;

 

begin

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

readln ;

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

readln ;

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

writeln (‘Jawab.’);

readln (nama1);

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

begin

writeln (‘Anda cukup cerdas’);

end

else

begin

writeln (‘Anda kurang cerdas’);

end ;

readln ;

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

writeln (‘Jawab.’);

readln (nama2);

if (nama2=’bagian kuadrat’) or (nama2=’kuadrat’) then

begin

writeln (‘Anda cukup hebat ya’);

end

else

begin

writeln (‘ich, ternyata Anda kurang hebat’);

end ;

readln ;

writeln (‘right. Kita langsung saja ke contoh’);

readln ;

clrscr ;

writeln (‘Misalkan ada persamaan : ‘);

writeln (‘y = x + 16’);

writeln (‘y = x^2’);

writeln (‘maka untuk menyelesaikannya yaitu dengan cara mensubstitusi’);

writeln (‘bagian linear ke bagian kuadrat yang diperoleh’);

readln ;

writeln (‘x + 16 = x^2?’);

writeln (‘x^2 – x – 16 = 0?’);

readln ;

writeln (‘maka didapat x = -1 atau x = 4?’);

writeln (‘maka didapat x = -1 atau x = 4’);

writeln (‘kemudian substitusi x ke persamaan y = x + 16’);

readln ;

writeln (‘jadi himpunan penelesaian SPLK itu adalah {(-1,15),(4,20)})’);

write (‘benar atau tidak ? ‘);

readln (nama);

if (nama=’benar’) then

begin

writeln (‘Terima kasih telah mempelajari materi SPLK berbentuk implisit’);

end

else

begin

writeln (‘Silahkan Anda ulangi dari bagian awal lagi’);

end;

end.