Program Persamaan Kuadrat dengan Pascal

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.