PROGRAM PASCAL PERSAMAAN LINIER 1 VARIABEL
program Persamaan_Linier_Satu_Variabel;
uses wincrt;
var
a,b,c,d:integer;
x:integer;
pers,lebar,luas:string;
begin
writeln(‘Tugas Algoritma & Pemrograman’);
writeln(‘Nama : Lilis Sulistiawati’);
writeln(‘NIM  : 2225090142′);
writeln(”);
write(‘Tekan Enter…’);
readln;
clrscr;
writeln(‘yuuk kita belajar persamaan linier satu variabel’);
write(”);
readln;
clrscr;
writeln(‘                   ” PERSAMAAN LINIER SATU VARIABEL “‘);
writeln(”);
writeln(‘A. Persamaan Linier Satu Variabel’);
writeln(”);
writeln(‘     Persamaan linier adalah kalimat terbuka yang memiliki hubungan sama dengan dan variabelnya berpangkat satu.’);
writeln(‘contoh : 1. 3x – 7 = 20′);
writeln(‘         2. 2n + 6 = 10′);
writeln(”);
writeln(‘     Kalimat terbuka adalah kalimat yang belum diketahui nilai kebenarannya (benar/salah).’);
writeln(‘Contoh : 1. 5 – m = -1     (kalimat terbuka)’);
writeln(‘         2. 4 + 4 = 8      (kalimat benar)’);
writeln(‘         3. 4 – 2 = -1     (kalimat salah)’);
writeln(”);
readln;
clrscr;
writeln(‘                   ” PERSAMAAN LINIER SATU VARIABEL “‘);
writeln(”);
writeln(‘B. Menyelesaikan PLSV’);
writeln(”);
writeln(’1. Menambah atau mengurangi kedua ruas (kanan kiri) dengan bilangan yang sama’);
writeln(’2. Mengalikan atau membagi kedua ruas (kanan kiri) dengan bilangan yang sama’);
writeln(’3. Menyelesaikan PLSV dengan menggunakan lawan dan kebalikan bilangan’);
writeln(”);
writeln(‘Contoh :’);
writeln(’1. bentuk persamaan linier : ax + b = cx + d’);
writeln(”);
write(‘masukan nilai a : ‘);
readln(a);
write(‘masukan nilai b : ‘);
readln(b);
write(‘masukan nilai c : ‘);
readln(c);
write(‘masukan nilai d : ‘);
readln(d);
writeln(”);
write(‘persamaan linier : ‘,a,’x');
write(‘ + ‘,b,’ =’);
write(‘ ‘,c,’x');
writeln(‘ +’,d,”);
writeln(”);
writeln(‘penyelesaian : ‘);
writeln(”);
write(‘    ‘,a,’x');
write(‘ + ‘,b,’ =’);
write(‘ ‘,c,’x');
writeln(‘ + ‘,d,”);
write(‘<=> ‘,a,’x');
write(‘ + ‘,b,’ -’);
write(‘ ‘,b,’ =’);
write(‘ ‘,c,’x');
write(‘ + ‘,d,’ -’);
writeln(‘ ‘,b,’         <——- kedua ruas dikurangi ‘,b,’ ‘);
write(‘<=> ‘,a,’x');
write(‘ = ‘,c,’x');
writeln(‘ + ‘,(d-b),”);
write(‘<=> ‘,a,’x');
write(‘ – ‘,c,’x');
write(‘ = ‘,c,’x');
write(‘ – ‘,c,’x');
writeln(‘ + ‘,(d-b),’              <——- kedua ruas dikurangi ‘,c,’x');
write(‘<=> ‘,(a-c),’x');
writeln(‘ = ‘,(d-b),”);
write(‘<=> ‘,(a-c),’x');
write(‘/’,(a-c),’ =’);
write(‘ ‘,(d-b),’/');
writeln(”,(a-c),’                <——- kedua ruas dibagi ‘,(a-c),”);
writeln(‘<=> x = ‘,(d-b)/(a-c),”);
readln;
clrscr;
writeln(‘nah sekarang, yuuk kita kerjakan soal-soal berikut!’);
readln;
clrscr;
writeln(‘Soal !’);
writeln(”);
writeln(’1. keliling sebuah persegi panjang sama dengan 20 cm. jika panjangnya 6 cm dan lebarnya a cm, maka : ‘);
writeln(‘   a. buatlah persamaan liniernya.’);
write(‘      jawab : persamaan linier = ‘);
readln(pers);
if pers = ’2a + 12 = 20′ then writeln(‘      Jawaban anda BENAR’) else
if pers = ’2a+12=20′ then writeln(‘      Jawaban anda BENAR’) else
if pers = ’12 + 2a = 20′ then writeln(‘      Jawaban anda BENAR’) else
if pers = ’12+2a=20′ then writeln(‘      Jawaban anda BENAR’) else
write(‘      Jawaban Anda SALAH’);
readln;
writeln(”);
writeln(‘   b. tentukan lebarnya.’);
write(‘      jawab : lebar =  ‘);
readln(lebar);
if lebar = ’4′ then writeln(‘      Jawaban anda BENAR’) else write(‘      Jawaban Anda SALAH’);
readln;
writeln(”);
writeln(‘   c. luas persegi panjang.’);
write(‘      jawab : Luas =  ‘);
readln(luas);
if luas = ’24′ then writeln(‘      Jawaban anda BENAR’) else write(‘      Jawaban Anda SALAH’);
readln;
writeln(”);
writeln(‘  the end……………..’);
end.