Program hitung;

Uses wincrt;

var pers1, pers2, hasil:integer;

 

 

 

 

Begin

writeln(‘SISTEM PERSAMAAN LINEAR DAN KUADRAT’);

writeln(‘NAMA   : NURUL  IFKOH’);

writeln(‘NIM: 2225092780’);

writeln(‘———————————————‘);

writeln (‘halo dunia, aku sedang memprogram’);

writeln (‘ini adalah program sistem persamaan linear dan kuadrat dengan bagian kuadrat berbentuk implisit’);

writeln (‘berbentuk implisit jika persamaan dua variabel tidak dapat dinyatakan dalam bentuk y=f(x) atau x=f(y)’);

writeln (‘secara umum bentuknya sebagai berikut:’);

writeln (‘px+qy+r=0….bagian linear’);

writeln (‘ax2+by2+cxy+dx+ey+f=0(di baca:axkuadrat+bykuadrat+cxy+ey+f samadengan nol…….bagian kuadrat berbentuk implisit’);

writeln (‘bagian kuadrat yang berbentuk implisit ada 2 kemungkinan, yaitu:’);

writeln (‘1. Bentuk Implisit yang tidak dapat difaktorkan’);

writeln (‘contoh:’);

write (‘masukan bilangan pertama x+y….bagian linear=’); readln (pers1);

write (‘masukan bilangan kedua x2+y2(dibaca,x kuadrat+y kuadrat)…bagian implisit tidak dapat difaktorkan=’); readln (pers2);

hasil:=pers1+ pers2;

writeln (‘jadi,’, pers1,’+’, pers2,’=’, hasil);

writeln (‘2. bentuk implisit yang dapat difaktorkan’);

writeln (‘contoh:’);

write (‘masukan bilangan pertama x-y-3=…bagian linear=’);readln (pers1);

write (‘masukan bilangan kedua x2+4xy+4y2-8(baca,xkuadrat+4xy+4ykuadrat-8)..bagian impisit dapat difaktorkan=’);readln(pers2);

hasil:=pers1+pers2;

write (‘jadi,’, pers1,’+’, pers2,’=’, hasil);

 

end.