Program Persamaan Kuadrat dengan Pascal

Written By Abdul Wakhid on 18 Oktober 2009 | 20.07.00

abdulmail | freeware | free game | exotic artikel | tips dan trik | free tutorial | internet marketing | gratis |education


contoh program pascal untuk mencari akar persamaan kuadrat.

program ProgramFaktorial;
uses crt;
var
n,x,i,j,hasil:longint;
pil:char;
label A,B,C;

begin
A: clrscr;
textcolor(green);
writeln(' ------------------------------------');
writeln(' MENCARI NILAI N FAKTORIAL (N!)');
writeln(' ------------------------------------');
writeln;
textcolor(white);
write(' MASUKKAN N FAKTORIAL (1 - 16) : ');readln(n);
if (n>16) or (n<1) then goto A;
hasil:=1;
for i:=1 to n do
hasil:=hasil*i;
writeln;
writeln(' NILAI ',n,'! ADALAH : ',hasil);
writeln;
B:textcolor(white);
writeln(' ------------------------------------');
write (' INGIN MENGHITUNG LAGI ?(Y/N)');readln(pil);
writeln;
begin
if (pil='Y') or (pil='y') then goto A
else
if (pil='N') or (pil='n') then goto C
else
textcolor(red+blink);
writeln(' PILIHAN ANDA SALAH SILAKAN ULANGI !');
writeln;goto B;
end;
C:textcolor(green);
writeln(' TERIMA KASIH');
writeln;
writeln(' ............DELAY..............');
delay(2000);
end.

Itu scripnya, mohon di koreksi ya kalau da yang salah.

4 komentar:

Anonim mengatakan...

comment....comment....comment....comment....comment....comment....

ha..ha...ha..ha...ha..ha...ha..ha...

Moch.Rasyid mengatakan...

wah, bagus neh...buat ngebantu pelajaran matematika anak SMA...heheh...

Vibie 22 mengatakan...

FFiuuuuuuuhhhhhhhhhh,,,
Pascal..Pascal...
Dirimu sulit begete,,sih...
Teng qyu atas info2 tentang PASCAL,,ea...
Berguna begete,,
Maturnuwun,,,

Muh Abdul Wahid mengatakan...

he.. he..., nyantai ja kalau belajar pasti juga bisa.., saya juga masih belajar kok.....

Posting Komentar

Don't Spam Please !