Program hitung;

Uses wincrt;

var bil1, bil2, bil3, hasil:integer;

 

Begin

writeln(‘SISTEM PERSAMAAN LINEAR DAN KUADRAT’);

writeln(‘NAMA   : DINA MULYANI’);

writeln(‘NIM: 2225092465’);

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

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

writeln (‘ini adalah program sistem persamaan linear dan kuadrat.’);readln;

writeln (‘pengertian penyelesaian suatu sistem persamaan.’);

writeln (‘A. Persamaan’);

write (‘persaman adalah kalimat terbuka yang memuat tanda = (sama dengan) dan diantara kedua ruas itu ‘);

writeln (‘ masih terdapat satu suku yang belum diketahui nilainya.’); readln;

writeln (‘contoh:’);

writeln (‘carilah perubahan dari x jika:’);

write (‘masukkan bilangan pertama:’); readln (bil1);

write (‘masukkan bilangan kedua:’); readln (bil2);

hasil:= bil1 + bil2;

writeln (‘jadi’, bil1, ‘+’ ,bil2, ‘=’, hasil);

writeln (‘maka nilai x:’);

bil1:= hasil-bil2;

writeln (‘nilai x adalah:’, hasil, ‘-‘ ,bil2, ‘=’, bil1); readln;

writeln (‘B. Persaman Liner’);

Writeln (‘Persaman liner adalah persaman dari peubah yang mempunyai pangakat tertinggi satu.’);readln;

writeln (‘C. Himpunan Penyelesaian’);

writeln (‘Himpunan penyelesaian adalah himpunan yang anggotanya merupakan hasil penyelesaian suatu persamaan.’);

readln;

writeln (‘D. Model Matematika’);

writeln (‘Soal cerita adalah persamaan yang diuraikan dalam bentuk cerita.’);

writeln (‘Untuk menyelesaikannya cerita tersebut harus diubah dalam kalimat Matematika (persamaan).’);

writeln (‘contoh:’); readln;

writeln (‘Jumlah dua bilangan m dan n+9 adalah 150. Jika m adalah bilangan 71,’);

write (‘bilanagn brapakah n?? Tentukan himpunan penyelesaiannya.’); readln;

writeln (‘jawab :’);

writeln (‘Masukan nilai m:’);readln (bil1);

writeln (‘Masukan bil3:’);readln (bil2);

writeln (‘masukan hasil dari m + n + 9 =’); readln (bil3);

hasil:=bil3-(bil1+bil2);

writeln (‘jadi’, bil3, ‘-‘, bil1, ‘+’ ,bil2, ‘=’, hasil); readln;

writeln(‘E. Persaman Ekuivalen.’);

writeln(‘Dua persamaan dikatakan ekuivalen, jika kedua persaman itu mempunyai penyelesaian yang sama.’);

writeln (‘F. Grafik Himpunan Penyelesaian.’);

writeln (‘Himpunan Penyelesaian dari suatu himpunan dapat juga dikatakan pada garis bilngan,’);

write(‘yang selanjutnya dinamakan grafik himpunan penyelesaian persamaan.’);

 

end.