download

PEROGRAM
Author: fathul bahruli on

contoh program kalkulator


program kalkulator;
uses wincrt;
var
tambah,kurang,kali,bagi,a,b:integer;
begin
gotoxy(45,1);writeln('medit-and-pelit.blogspot.com');
writeln('----------------------------------------------------------');
writeln('                 program kalkulator                     ');          
writeln('----------------------------------------------------------');
writeln;
writeln;
    write('masukan angka pertama = ');readln(a);
    write('masukan angka kedua = ');readln(b);
    writeln;
    writeln;
begin
tambah:=a + b;
kurang:=a - b;
bagi:=a div b;
kali:=a * b;
writeln('hasil penjumlahan  : ',a,'+',b,'=',tambah);writeln;
writeln('hasil pengurangan  : ',a,'-',b,'=',kurang);writeln;
writeln('hasil pembagian    : ',a,'/',b,'=',bagi);writeln;
writeln('hasil perkalian    : ',a,'x',b,'=',kali);
end;

end.
untuk file pas download di sini

contoh program faktorial
program faktorial;
Uses wincrt;
var i,n,x : longint;

Begin
 gotoxy(45,1);writeln ('medit-and-pelit.blogspot.com');
     writeln;

     writeln ('       Program Faktorial              ');
     writeln;
     write ('   masukkan bilangan n=  ');
     readln (n);
     writeln;
     if (n<=1) then
        writeln('Hasil Faktorialnya=  ',1)
     else
         begin
         x:=1;
         for i:=1 to n do
             x:=x*i;
         writeln('   Hasil FaktorialNya=  ' ,x);
         writeln;
     end;
end.



untuk file pas download klik di sini

contoh program konvet desimal to biner,oktal,heksa desimal

program KONVERSI_BILANGAN_DESIMAL;

uses wincrt;

type bantuan = array [1..20] of integer;

var
p, x, n : integer;
larikbin, larikokt, larikhex : bantuan;


procedure KE_BINER;
var a : integer;
begin
   x := 1;
   a := n;
   repeat
   begin
      larikbin[x] := a mod 2;
      a := a div 2;
      x := x + 1;
   end;
   until a < 1;
   repeat
   begin
      x := x - 1;
      write (larikbin[x]);
   end;
   until x = 1;
end;


procedure KE_OKTAL;
var b : integer;
begin
   x := 1;
   b := n;
   repeat
   begin
      larikokt[x] := b mod 8;
      b := b div 8;
      x := x + 1;
   end;
   until b < 1;
   repeat
   begin
      x := x - 1;
      write (larikokt[x]);
   end;
   until x = 1;
end;


procedure KE_HEXADESIMAL;
var c : integer;
begin
   x := 1;
   c := n;
   repeat
   begin
      larikhex[x] := c mod 16;
      c := c div 16;
      x := x + 1;
   end;
   until c < 1;
   repeat
   begin
      x := x - 1;
      if larikhex[x] = 10 then
         write ('A') else
      if larikhex[x] = 11 then
         write ('B') else
      if larikhex[x] = 12 then
         write ('C') else
      if larikhex[x] = 13 then
         write ('D') else
      if larikhex[x] = 14 then
         write ('E') else
      if larikhex[x] = 15 then
         write ('F') else
      write (larikhex[x]);
   end;
   until x = 1;
end;

begin
gotoxy(45,1);writeln('medit-and-pelit.blogspot.com');
   writeln ('-------------------------------------------------------------------------------');
   writeln;
   writeln ('                    Program Pengkonversi Bilangan Desimal                      ');
   writeln;
   writeln ('-------------------------------------------------------------------------------');
   writeln;
   writeln;
   writeln ('Ketikkan sebuah bilangan desimal!');
   readln (n);
   writeln;
   writeln ('Hasil Konversi Bilangan');
   write ('Biner       : '); KE_BINER;
   writeln;
   write ('Oktal       : '); KE_OKTAL;
   writeln;
   write ('Hexadesimal : '); KE_HEXADESIMAL;
   
end.


untuk file pas download klik di sini


Category: | 0 Comments