Program Pascal dengan Loopingan

program faktorial;

uses wincrt;

var

faktor :real;

i,n :integer;

begin

write('Masukkan bilangan n =');readln(n);

faktor:=1;

for i:= 2 to n do{Menghitung n faktorial}

faktor:=faktor*i;

writeln(n,' Faktorial = ',faktor:0:0);

end.

 

 

program pangkat;

Uses Wincrt;

Function Pkt(X :real;n : integer):real;

var t : real;

m : integer;

Begin

m:=abs(n);

if (x<>0) and (n=0) then pkt:=1

else if n >0 then

pkt:=x*pkt(x,n-1)

else if (n < 0) then pkt := 1/(x*pkt(x,m-1));

end;

var x : real;

n : integer;

begin

write('Bilangan yang dipangkatkan : ');readln(x);

write('Bilangan pangkat : ');readln(n);

writeln(x:5:2,' Pangkat ',n,' = ',Pkt(x,n):8:3);

end.

 

program kalkulator;

uses wincrt;

var n1,n2,p,h:real;

begin

writeln('Program Kalkulator');

writeln('==================');

write('Masukkan Nilai Pertama= ');readln(n1);

write('Masukkan Nilai Kedua= ');readln(n2);

writeln('Pilih Operasi:');

writeln('1 --> Perkalian');

writeln('2 --> Pembagian');

writeln('3 --> Penjumlahan');

writeln('4 --> Pengurangan');

write('Pilihan anda [1..4]= ');readln(p);

if p=1 then h:=n1*n2;

if p=2 then h:=n1/n2;

if p=3 then h:=n1+n2;

if p=4 then h:=n1-n2;

writeln('Hasil Operasinya Adalah= ',h:0:2);

readln;

end.