Praktikum Pascal Hari Ini
Posted Oktober 3, 2007
on:Hari ini mei praktikum pemrograman dasar, diasisteni ma tiga asisten yang paling nggak banget se MIPA *canda nyeh nyeh nyeh*, ya itu akhire mei bener-bener di asisteni ma Mas Ndaru, gak nyeremin kok, pas masnya ngomong ajah mei gak denger, heheheh, padahal lumayan deket tuh, au deee, asisten yang atu lagi mas Kurnia, gak tahu ceritane gimana, padahal pernah bilang klo gak ngasisteni TI-A, piye to mas? wekekekek :mesem: terus masih ada satu asisten lagi, tapi mei gak tahu namanya *whoaps*
kemaren ada PR bikin program yang buat nyari akar persamaan kuadrat, yang hari ini diminta bu Umi untuk ditulis di pascal, niy program mei (bisa di compile loh! :alhamdulillah:)
Program Pencari_Akar_Persamaan_Kuadrat;
USES CRT;
VAR a,b,c,D,x1,x2:real;
Begin
clrscr;
gotoxy(20,2); write(‘Pencari Akar Persamaan Kuadrat’);
gotoxy(20,4); write(‘——————————————‘);
gotoxy(20,8); write(‘Masukkan nilai a = ‘); readln(a);
gotoxy(20,10); write(‘Masukkan nilai b = ‘); readln(b);
gotoxy(20,12); write(‘Masukkan nilai c = ‘); readln(c);
D:=sqr(b)-4*a*c;
if D<0 thenBegin
gotoxy(10,14);
write(‘Diskrimanan bernilai negatif sehingga akar-akarnya imajiner’);End;
if D=0 then
Begin
x1:=(-b-sqrt(D))/(2*a);
gotoxy(10,14);
write(‘Diskriminan bernilai nol maka memiliki dua akar kembar yaitu ‘, x1);End;
if D>0 then
Begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
gotoxy(5,14);
write(‘Diskriminan > nol maka memiliki dua akar persamaan kuadrat, yaitu ‘,x1,’ dan ‘,x2);end;
readln;
End.
udah deee jadi, tapi karena sebenere ma bu Umi belon diajarin if … then, ya jadine malah agak gak enak ma bu Umi, mei baca buku kok Bu ….
Oktober 3, 2007 pada 10:28 pm
Wakaka ningetin waktu itu deh
Emang kerjaannya pake dikumpulin di blog yah :)
#ya nggak seee
buat catetan ajah, biar gak ilang,