program PLSV;
uses wincrt;
var
pilihan:char;
i:integer;
procedure carasubstitusi;
var
i:integer;
n,x,z:string;
begin
writeln(‘ ^^ Menyelesaikan Persamaan dengan Cara Substitusi ^^’);
writeln(”);
write(‘ adalah menyelesaikan persamaan dengan cara mengganti variabel dengan bilangan-bilangan yang telah ditentukan,’);
writeln(‘ sehingga persamaan tersebut menjadi kalimat benar.’);
writeln(”);
writeln(‘contoh :’);
writeln(”);
writeln(’1. tentukan penyelesaian dari persamaan 3x – 2 = 7, x adalah variabel pada bilangan asli!’);
writeln(”);
writeln(‘Penyelesaian : ‘);
writeln(”);
write(‘variabel x = ‘);
i:=1;
repeat
write(”,i,’, ‘);
i:=i+1;
until i>5;
writeln(”);
writeln(”);
i := 1;
While I <= 5 Do
Begin
Writeln(‘==> untuk x = ‘,i,’, maka 3(‘,i,’) – 2 = 7′);
i := i + 1;
end;
writeln(”);
writeln(‘jadi, penyelesaiannya adalah x = 3 (merupakan kalimat benar)’);
readln;
clrscr;
writeln(‘ayooooooo berhitung…!’);
readln;
clrscr;
writeln(‘Latihan 1′);
writeln(”);
write(‘Dengan mengambil variabel pada himpunan bilangan asli, ‘);
write(‘A = {‘);
i := 1;
While I <= 5 Do
Begin
Write(”,i,’, ‘);
i := i + 1;
end;
write(‘}, ‘);
writeln(‘tentukan penyelesaian persamaan berikut ini dengan cara substitusi!’);
writeln(’1. 2n – 4 = 8′);
write(‘ Jawab : n = ‘);
readln(n);
if n = ’6′ then writeln(‘ jawaban anda BENAR’) else write (‘ jawaban anda SALAH’);
readln;
writeln(”);
writeln(’2. 4x – 1/4 = 1/4′);
write(‘ Jawab : x = ‘);
readln(n);
if n = ’1/8′ then writeln(‘ jawaban anda BENAR’) else write (‘ jawaban anda SALAH’);
readln;
writeln(”);
writeln(’3. z x z = 4/9 ‘);
write(‘ Jawab : z = ‘);
readln(n);
if n = ’2/3′ then writeln(‘ jawaban anda BENAR’) else write (‘ jawaban anda SALAH’);
end;
procedure bentukpecahan;
var a,b,c,d,e:integer;
begin
writeln(‘ ^^ Menyelesaikan Persamaan Bentuk Pecahan ^^’);
writeln(”);
writeln(‘Persamaan bentuk pecahan : persamaan yang variabelnya memuat pecahan’);
writeln(‘cara penyelesaian : mengalikan kedua ruas agar persamaan tidak memuat pecahan’);
writeln(”);
writeln(‘contoh :’);
writeln(’1. persamaan bentuk pecahan : a/b(cx + d) = e’);
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);
write(‘masukan nilai e : ‘);
readln(e);
clrscr;
writeln(‘Persamaan menjadi : ‘,a,’/',b,’(‘,c,’x + ‘,d,’) = ‘,e,”);
writeln(‘Penyelesaian :’);
writeln(”);
writeln(‘ ‘,a,’/',b,’(‘,c,’x + ‘,d,’) = ‘,e,”);
write(‘<=> ‘,b ,’ . ‘,a,’/',b,’(‘,c,’x + ‘,d,’) = ‘,b,’ . ‘,e,”);
writeln(‘ <——- kedua ruas dikalikan ‘,b,’ ‘);
writeln(‘<=> ‘,a,’(‘,c,’x + ‘,d,’) = ‘,b*e,”);
writeln(‘<=> ‘,a*c,’x + ‘,d,’ = ‘,b*e,”);
write(‘<=> ‘,a*c,’x + ‘,d,’ – ‘,d,’ = ‘,b*e,’ – ‘,d,”);
writeln(‘ <——- kedua ruas dikurangi ‘,d,’ ‘);
writeln(‘<=> ‘,a*c,’x = ‘,(b*e)-d,”);
write(‘<=> ‘,a*c,’x/’,a*c,’ = ‘,(b*e)-d,’/',a*c,”);
writeln(‘ <——- kedua ruas dibagi ‘,a*c,’ ‘);
writeln(‘<=> x = ‘,((b*e)-d) div (a*c),”);
writeln(”);
writeln(‘jadi, penyelesaiaannya adalah x = ‘,((b*e)-d) div (a*c),”);
end;
procedure soalcerita;
var i:integer;
begin
writeln(‘ ^^ Menyelesaikan Soal Dalam Bentuk Cerita ^^’);
writeln(”);
writeln(‘Langkah-langkah untuk menyelesaikan soal-soal dalam bentuk cerita :’);
writeln(’1. untuk soal yang berhubungan dengan geometri, buatlah sketsa dari kalimat terbuka’);
writeln(’2. terjemahkan kalimat cerita(soal) menjadi kalimat matematika dalam bentuk persamaan’);
readln;
clrscr;
writeln(‘berikut beberapa istilah yang sering dipakai untuk mengubah kalimat cerita menjadi bentuk persamaan.’);
writeln(‘________________________________________________________________’);
writeln(‘|No.| istilah | Penulisan |’);
writeln(‘|___|__________________________________________|________________|’);
writeln(‘| 1.| jumlah a dan b | a + b |’);
writeln(‘| 2.| selisih a dan b, a>b | a – b |’);
writeln(‘| 3.| hasil kali a dan b | a . b |’);
writeln(‘| 4.| hasil bagi a dan b | a / b |’);
writeln(‘| 5.| kebalikan a | 1 / a |’);
writeln(‘| 6.| kebalikan jumlah a dan b | 1 / a+b |’);
writeln(‘| 7.| kebalikan selisih a dan b, a>b | 1 / a-b |’);
writeln(‘| 8.| kuadrat a | a^2 |’);
writeln(‘| 9.| kuadrat jumlah a dan b | (a+b)^2 |’);
writeln(‘|10.| jumlah kuadrat a dan b | a^2 + b^2 |’);
writeln(‘|11.| kuadrat selisih a dan b | (a-b)^2 |’);
writeln(‘|12.| selisih kuadrat a dan b | a^2 – b^2 |’);
writeln(‘|___|__________________________________________|________________|’);
readln;
clrscr;
writeln(‘contoh :’);
writeln(’1. jumlah dua bilangan ganjil berurutan adalah 36.’);
writeln(‘ a. jika bilangan pertama n, nyatakan bilangan kedua.’);
writeln(‘ b. tentukan bilangan-bilangan itu ‘);
writeln(‘ c. urutkan bilangan ganjil tersebut jika n=1′);
readln;
writeln(‘penyelesaian :’);
writeln(”);
writeln(‘a. bilangan pertama = n’);
writeln(‘ bilangan kedua = n+2′);
readln;
writeln(‘b. n + (n+2) = 36′);
writeln(‘ <=> 2n + 2 = 36′);
writeln(‘ <=> 2n + 2 – 2 = 36 – 2′);
writeln(‘ <=> 2n = 34′);
writeln(‘ <=> 2n/2 = 34/2′);
writeln(‘ <=> n = 17′);
writeln(‘ jadi,’);
writeln(‘ bilangan pertama = n bilangan kedua = n + 2′);
writeln(‘ = 17 = 19′);
readln;
write(‘c. urutan bilangan ganjil : ‘);
i:=1;
while i<=19 do
begin
write(”,i,’, ‘);
i:=i+2
end;
end;
begin
i:=1;
while i<=50 do
begin
write(‘*’);
i:=i+1
end;
writeln(”);
writeln(‘* ^ Tugas Algoritma & Pemrograman ^ *’);
writeln(‘* *’);
writeln(‘* Nama : Lilis Sulistiawati *’);
writeln(‘* NIM : 2225090142 *’);
writeln(‘* *’);
i:=1;
while i<=50 do
begin
write(‘*’);
i:=i+1
end;
writeln(”);
writeln(”);
write(‘Tekan Enter…’);
readln;
clrscr;
writeln(‘ BAB IV’);
writeln(‘ ” Menyelesaikan Persamaan Linier Satu Variabel “‘);
writeln(”);
writeln(‘[a] Menyelesaikan Persamaan dengan Cara Substitusi’);
writeln(‘[b] Menyelesaikan Persamaan Bentuk Pecahan’);
writeln(‘[c] Menyelesaikan Soal Bentuk Cerita’);
writeln(”);
write(‘Masukan pilihan anda : ‘);
readln(pilihan);
clrscr;
case pilihan of
‘a’: carasubstitusi;
‘b’: bentukpecahan;
‘c’: soalcerita;
else
write(‘Pilihan yang anda masukkan salah!!!’)
end;
end.
Tidak ada komentar:
Posting Komentar