Segitiga Pascal dan Cari Akar-akar Persamaan Kuadrat dalam Nusaptel

Sebelumnya aku minta maaf atas keterlambatan postingan kali ini ... Heheh ... ne emang udah telat kalee ...

Langsung aja, ne aku kasih script Segitiga Pascalnya. Ne aku dapet dari Ferry.

program segi3pascal;

void main(){

integer x, y, masukan;

integer[100] angka;
angka[1]:=1;

write('masukkan n jumlah baris: ');

read(masukan);

for(x:=1; x<=masukan; x++){

  for(y:=1; y<=masukan; y++){

    write(angka[y],' ');

  }

  for(y:=x+1; y>1; y--){

    angka[y]:=angka[y]+angka[y-1];

}}}

OK, langsung aja ke script selanjutnya, yaitu cara mencari akar-akar persamaan kuadrat.

program akar2;

void main(){

float a,b,c,d,x_satu,x_dua;

writeline('masukkan persamaan kudrat (ax^2+bx+c): ');

write('nilai a: ');

read(a);

write('nilai b: ');

read(b);

write('nilai c: ');

read(c);

d:=b**2-4*a*c;

in_case(){

  d<0 : writeline('akar-akarnya imajiner');

  else : {

    x_satu:=(-b+d**(1/2))/2*a;

    x_dua:=(-b-d**(1/2))/2*a;

    writeline('akar-akarnya adalah: ',x_satu,' dan ',x_dua);

}}}

Namun, perlu diingat ... ternyata dalam Nusa, pangkat harus integer, jadi semua yang diakar 1/2 jadi dianggap pangkat 0, jadinya semua angka jadi 1. Coba aja sendiri. Selamat mencoba!!!