Hai sobat blog, udah lama nih saya ga update blog saya, hampir 1 tahun ya.
Sekarang ini saya akan berbagi sedikit informasi tentang komputer. Mungkin anda telah mengenal aplikasi pascal. Jika belum, pascal itu adalah salah satu dari banyak aplikasi yang digunakan untuk membuat program. Dengan menggunakan pascal kita bisa membuat program. Tpi menurut saya, pascal ini lebih banyak saya gunakan untuk membantu dalam hal matematis atau yang berhubungan dengan mencari-cari gitu. ya supaya lebih cepat dan ga ribet-ribet mencarinya haha :D
Program pascal yang akan saya bahas kali ini adalah program untuk mencari akar kuadrat dari suatu persamaan kuadrat. Biasanya ini untuk anak sekolahan. Kita bakal sering ketemu dengan soal yang terdapat persamaan kuadrat. Kalau untuk angka yang kecil mungkin bisa di cari, tapi jika angkanya besar mungkin kita udah malas untuk mencarinya. Oleh karena itu, kita dapat menggunakan program pascal ini untuk mencari akar-akar kuadratnya. TAPI INGAT, GA BOLEH DIGUNAKAN UNTUK UJIAN YA!! ;)
1. bentuk persamaan kuadrat adalah (ax2+bx+c=0) oleh karena itu yang akan kita tukar-tukar angkanya adalah a,b,c.
Pertama kita masukan angka a,b,c dengan
"Readln(a,b,c); atau read(a,b,c);"
2. Setelah angkanya di masukan, tentu kita harus mencari determinannya dahulu. Untuk menentukan apakah akar-akarnya imaginer atau akarnya sama atau akarnya berbeda.
" Determinan := sqr(b) - 4*a*c;
Stelah itu, kita buat syaratnya, jika determinan < 0 maka akarnya imaginer. Jadi kita tidak perlu mencari akarnya.
Jika determinan = 0 maka akarnya akan sama, jadi kita cukup mencari satu akar saja.
Jika determinan > 0 maka akarnya berbeda, jdi kuta harus mencari kedua-dua akarnya.
"If Determinan < 0 then writeln('akar imaginer');
If Determinan = 0 then
Begin
Akar := (-b + sqrt(Determinan))/(2*a);
Writeln('Akarnya : ',Akar,' Akar sama');
End;
If Determinan > 0 then
Begin
Akar1 := (-b + sqrt(Determinan))/(2*a);
Akar2 := (-b - sqrt(Determinan))/(2*a);
Writeln('Akar1 : ',Akar1:0:2,' Akar2 : ',Akar2:0:2,' Akar berbeda');
End."
Jangan lupa untuk mengenalkan variabelnya
" var
a,b,c : integer;
Determinan,Akar,Akar1,Akar2 : real;
seperti inilah akhirnya
var
a,b,c : integer;
Determinan,Akar1,Akar2,Akar : real;
begin
readln(a,b,c);
Determinan := sqr(b) - (4*a*c);
if Determinan < 0 then writeln('akar imaginer');
if Determinan = 0 then
begin
Akar := (-b + sqrt(Determinan))/(2*a);
writeln('Akar : ',Akar:0:2,' Akar sama');
end;
if Determinan > 0 then
begin
Akar1 := (-b + sqrt(Determinan))/(2*a);
Akar2 := (-b - sqrt(Determinan))/(2*a);
writeln('Akar1 : ',Akar1:0:2,' ','Akar2 : ',Akar2:0:2,' Akar berbeda');
end;
readln;
end.
Semoga bermanfaat ya ;) masih banyak lho yang bisa di buat dari pascal ;) tetap semangat :)
0 komentar:
Post a Comment