Program Persamaan Kuadrat dengan Pascal

Written By Unknown 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...

nenghepi mengatakan...
Komentar ini telah dihapus oleh pengarang.
Unknown mengatakan...

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

Posting Komentar

Don't Spam Please !