Program Pencarian Bagi Dua

program pencarianbagidua;
uses wincrt;
var
L : array [1..100] of integer;
n1,x1,m,hasil :integer;

function BinarySearch2(n :integer; x : integer) : integer;

var
i,j : integer;
idx, k : integer;

ketemu : boolean;
begin
i := 1;
j := n;

ketemu := false;
while (not ketemu) and (i <= j) do
begin
    k:=(i + j) div 2;
    if (L[k] = x) then                           
        ketemu:= true
    else
    if (x > l[k]) then
        i := k + 1
    else
        j := k - 1;
end;

    if (ketemu) then
        idx := k
    else
        idx := -1;

BinarySearch2:=idx;
end;

begin
write ('masukkan jumlah data ');
readln (n1);

for m:=1 to n1 do
begin
    write ('masukkan isi larik ke ' ,m, ' ');
        readln (L[m]);
end;

write ('inputkan data yang ingin dicari ');
readln (x1);


hasil:=BinarySearch2 (n1,x1);

if (hasil = -1) then
writeln ('tidak ditemukan di larik')
else
writeln ('data inputan ditemukan di larik ke ', hasil);

end.

READMORE - Program Pencarian Bagi Dua

Program Pencarian Beruntun

Program pencarian ;
Uses wincrt;
Var
L:array [1..100] of integer;
Bil,I,n:integer;
ul:char;
procedure tampil;
   begin
          write ('masukan banyak data:'); readln (n);
          for i:=1 to n do
          begin
          write ('data [',I,'] :');readln (L [i]);
          end;
   end;
procedure seq_search;
          begin
               write ('angka yang akan di cari:');readln (bil);
               i := 1;
               while (I bil) do
               begin
                i:=i+1;
               end;
               if (L[i]=bil)then
               writeln ('ditemukan pada elemen larik ke',i)
               else
                writeln ('tidak ditemukan');
          end;
begin 

Tampil;
Seq_search;
Writeln ;
End.

READMORE - Program Pencarian Beruntun

Program Mencari Karakter

program mencarikaraktertertentu;
uses wincrt;
var
   stringInput, x: string; y:char;
   jumlahHuruf,jumlah, i: integer;
  
begin
     write ('ketikan kata sesuka anda:');
     readln(stringInput);
     write ('kata yg anda ingin hitung;');
     read(y);
     x:= stringInput;
     jumlah:=0;
     for i:= 1 to length (x) do
         begin
         if (x[i] in [y] )then jumlah:=jumlah + 1;
         end;
        
         jumlahHuruf:=jumlah;
         writeln('jumlah huruf ',y,' adalah ', jumlahHuruf);
end.

READMORE - Program Mencari Karakter

Program Menghitung Karakter

program penghitungkarakter;
uses wincrt;
var
   stringInput, x: string;
   jumlahHuruf,jumlahNonHuruf,jumlah, i: integer;
begin
    write('masukan kata:');
     readln(stringInput);
     x:= stringInput;
     jumlah:=0;
     for i:= 1 to length (x) do
         begin
         if (x[i] in ['A'..'Z','a'..'z']) then jumlah:=jumlah + 1;
         end;
         jumlahHuruf:=jumlah;

         jumlah:=0;
         for i:= 1 to length (x) do
         begin
         if (not(x[i] in ['A'..'Z','a'..'z'])) then jumlah:=jumlah + 1;
         end;
         jumlahNonHuruf:=jumlah;
         writeln(jumlahNonHuruf+jumlahHuruf);
end.

READMORE - Program Menghitung Karakter

Program Luas Lingkaran Menggunakan Fungsi

program luas_lingkaran;
uses wincrt;
     function luaslingkaran ( r : integer) : real;


        begin

        luaslingkaran := 3.14 * r * r;

        end;
var

   a : integer;
begin

write('masukan jari-jari:');
readln (a);
writeln ('luas lingkara:',luaslingkaran (a):0:2 );
readln;
end.

note : Program ini di gunakan di TPW 1.5

READMORE - Program Luas Lingkaran Menggunakan Fungsi

Program Belajar Huruf

program belajarhuruf;
uses wincrt;

var
   i : char;

begin
     writeln ('masukan huruf besar atau kecil:'); readln(i);

             if ( ord (i) >= 65 ) and ( ord (i) < 97 ) then
                begin
                     writeln (' Huruf Kapital ');
                     writeln (' Huruf ke ', ord (i)-64);
                end
                else
                begin
                     writeln (' Huruf Nonkapital ');
                     writeln (' Huruf Ke ', ord (i)-96);
                end;
     readln;
end.

READMORE - Program Belajar Huruf

Program Tahun Kabisat

Program tahun_kabisat;
uses wincrt ;

var

tahun : integer ;

begin

     write ('masukkan tahun : ') ; readln (tahun) ;

     if tahun mod 100 = 0 then
        begin
                if tahun mod 400 = 0 then
                         writeln ('Tahun Kabisat')

                else
                         writeln ('Bukan Tahun Kabisat') ;


        end

        else

        begin
                if tahun mod 4 = 0 then
                         writeln ('Tahun Kabisat')

                else
                         writeln ('Bukan Tahun Kabisat') ;


        end;
readln;
end.

READMORE - Program Tahun Kabisat

Program Merubah Angka menjadi Huruf

 program    mencarihuruf;

uses wincrt;

var

x : integer;

begin

        writeln('masukan angka:'); readln (x);

        writeln ( char ( 64 + x));

readln;

end.

READMORE - Program Merubah Angka menjadi Huruf

Program Anak Ayam

Seperti yang kita ketahui lagu anak ayam yakni seperti anak ayam turun sepuluh mati satu tinggal sembilan disini saya mencoba membuat program tersebut bagi yang berminat silakan mencobanya

uses wincrt;

var

   i: integer;
   x: integer;
begin
     readln (x);

     for i := x downto 1 do
     begin
          if i = 1 then
              writeln('anak ayam turun 1 mati 1 tinggal induknya')
          else
              writeln ('anak ayam turun ', i, ' mati 1 tingal ',i-1);
     end;
readln;
end.

READMORE - Program Anak Ayam

Program Membuat deret

 Cek ebroot GAn :

uses crt;

var

   a,b : integer;
begin
     for a := 1 to 5 do
     begin
          for b:= 1 to 5 do write (a:4,b:2);
          writeln;
     end;
     readln;
end.

READMORE - Program Membuat deret

Program Mencari Huruf

Cek Idot GAn :


program    mencarihuruf;

uses crt;

var

x : integer;

begin

        writeln('masukan angka:'); readln (x);

        writeln ( char ( 64 + x));

readln;

end.

READMORE - Program Mencari Huruf

Program Tahun Kabisat

 Langsung aja dech Cek Idot GAn :


uses crt ;

var

tahun : integer ;

begin

     write ('masukkan tahun : ') ; readln (tahun) ;

     if tahun mod 100 = 0 then
        begin
                if tahun mod 400 = 0 then
                         writeln ('Tahun Kabisat')

                else
                         writeln ('Bukan Tahun Kabisat') ;


        end

        else

        begin
                if tahun mod 4 = 0 then
                         writeln ('Tahun Kabisat')

                else
                         writeln ('Bukan Tahun Kabisat') ;


        end;
readln;
end.

READMORE - Program Tahun Kabisat

Program Kalkulator

Langsung aja dech cekidot :


Program Calculator;

uses crt;

const

    Kol = 10; kol2=35;

Var

    Bil1,Bil2,Bil3,Pilih : Integer;

procedure masukkan;

    begin

        clrscr;
        gotoxy(kol2,4);writeln('----------------------');
        gotoxy(kol2,5);writeln(' Masukan Bilangan ');
        gotoxy(kol2,6);writeln('----------------------');
        gotoxy(kol2,7);writeln('Bilangan 1 : ');
        gotoxy(kol2,8);writeln('Bilangan 2 : ');
        gotoxy(kol2,9);writeln('----------------------');
        gotoxy(kol2,10);writeln('Hasil Operasi : ');
        gotoxy(kol2,11);writeln('----------------------');
        gotoxy(kol2+20,7);readln(bil1);
        gotoxy(kol2+20,8);readln(bil2);
    end;

Procedure Tambah;

    begin

        masukkan;

        bil3 := bil1 + bil2;

        gotoxy(kol2+20,10);writeln(bil1,'+',bil2,'=',bil3);

        readln;

    end;

Procedure Kurang;

    begin
        masukkan;

        bil3 := bil1 - bil2;

        gotoxy(kol2+20,10);writeln(bil1,'-',bil2,'=',bil3);

        readln;
    end;

Procedure Kali;

    begin
        masukkan;

        bil3 := bil1 * bil2;

        gotoxy(kol2+20,10);writeln(bil1,'*',bil2,'=',bil3);

        readln;

    end;

Procedure bagi_bulat;

    begin

        masukkan;

        bil3 := bil1 div bil2;

        gotoxy(kol2+20,10);writeln(bil1,'div',bil2,'=',bil3);

        readln;

    end;

Procedure Sisa_bagi;
    begin
        masukkan;

        bil3 := bil1 mod bil2;

        gotoxy(kol2+20,10);writeln(bil1,'mod',bil2,'=',bil3);

        readln;

    end;

(* Program Utama *)

begin

    repeat

    clrscr;

    gotoxy(kol,4); writeln('--------------------------');

    gotoxy(kol,5); writeln('Operasi Bilangan Bulat');

    gotoxy(kol,6); writeln('--------------------------');

    gotoxy(kol,7); writeln('1. Penambahan');

    gotoxy(kol,8); writeln('2. Pengurangan');

    gotoxy(kol,9); writeln('3. Perkalian');

    gotoxy(kol,10);writeln('4. Pembagian Integer {Div} ');

    gotoxy(kol,11); writeln('5. Sisa Hasil Bagi {Mod} ');

    gotoxy(kol,12); writeln('6. Selesai');

    gotoxy(kol,13); writeln('--------------------------');

    gotoxy(kol,14); writeln('Pilihan Anda [1..6] : [ ] ');

    gotoxy(kol,15);writeln('--------------------------');

    gotoxy (kol+25,14);readln(pilih);

    case pilih of

    1 : Tambah;

    2 : Kurang;

    3 : Kali;

    4 : Bagi_bulat;

    5 : Sisa_bagi;

end;
    until pilih = 6;

    readln;

end.

READMORE - Program Kalkulator

Program 1 Berderet

 Program ini mengeluarkan output seperti:

contoh:

 apabila diberi inputan 6 maka outputnya:



uses crt ;

var

x, y, z, i : integer ;

begin
     readln (z) ;


     for y:= 1 to z do

         begin
         for i:= 1 to y do

              write (i);
              writeln;
         end;
     readln;

end.

note:

sama kyak postingan dibawah..

READMORE - Program 1 Berderet

Program Bintang

 Program ini menghasilkan output seperti :
contoh:
apabila inputan yang di masukan 4 maka outputnya:

      *
    **
  ***
****

langsung aja nih programnya:

uses crt ;

var

x, y, z,i : integer ;

begin
     readln (z) ;


     for y:= 1 to z do

         begin
         for  x:= z-1 downto y do
              write (' ');


         for i:= 1 to y do

              write ('*');
              writeln;
         end;
     readln;

end.


note:

penggunaan uses crt hanya di gunakan untuk basis DOS
dan apabila anda menggunakan TPW 1.5 gunakan uses wincrt.

READMORE - Program Bintang

Program Akar Kuadrat Volume Balok

 Contoh dari program pascal: 
Misalkan a = panjang balok, b. tinggi balok, c. lebar balok. Yang dikeluarkan adalah kuadrat volum balok

Program kuadrat_volum_balok ;

{ diberikan tiga buah bilangan a, b, c kemudian dari ketiga bilangan tersebut dimasukkan

kedalam rumus volume balok kemudian hasilnya dikuadratkan  }

uses wincrt ;

var

a, b, c, kuadrat_volum : longint ;

begin

readln (a) ; {panjang balok}

readln (b) ; {tinggi balok}

readln (c) ; {lebar balok}

kuadrat_volum := sqr(a * b * c) ;

writeln ( 'kuadrat_volum =' , kuadrat_volum) ;

end.

  selamat mencoba,,



notice:
program menggunakan aplikasi TPW 1.5

READMORE - Program Akar Kuadrat Volume Balok

Tugas Petruk Hal 153 Latihan 6

1. Program kelipatan 4

      Deklarasi

      a: integer
      b: integer

      ALGORITMA

      Read (a)

      If   (a=4)   then

     Read (a)

     b: a^2 write (kelipatan 4)

     else

     write (bukan kelipatan 4)

     endif


2. Program diskon

    Deklarasi

    Belanja: integer

    Harga sesudah diskon: integer

    Harga akhir : integer

    Diskon : 15%

    Algoritma

   Read (belanja)

   If   (belanja > 100.000)    then

   Read (belanja)

   Harga diskon : total belanja * diskon

   Harga akhir : belanja – harga diskon

   endif



3. PROGRAM Urutkan

    DEKLARASI
    a, b, c, max, med, min : integer

    ALGORTIMA:
    read (a, b, c)
    if a > b then
    max ← a
    else
    max ← b
    endif

    if c > max then
    max ← c
    endif

    if (a > b) and (a < c) or (a < b) and (a > c) then
    med ← a
    else
    if (b > a) and (b < c) or (b < a) and (b > c) then
    med ← b
    else
    med ← c
    endif
    endif

   if a < b then
   min ← a
   else
   min ← b
   endif

   if c < min then
   min ← c
   endif
   write (min, med, max)




5. Program konversi digit

   Deklarasi

  a : char

  Algoritma

  Read (a)
  Case a

  ‘0’ : write (‘0’)
  ‘1’ : write (‘1’)
  ‘2’ : write (‘2’)
  ‘3’ : write (‘3’)
  ‘4’ : write (‘4’)
  ‘5’ : write (‘5’)
  ‘6’ : write (‘6’)
  ‘7’ : write (‘7’)
  ‘8’ : write (‘8’)
  ‘9’ : write (‘9’)

  Otherwise : write (‘-99’)

 Endcase



7. a. Program angka romawi

    Deklarasi

    a : integer

    Algoritma

    Read (a)

   Case a

   1 : write (‘I’)
   2 : write (‘II’)
   3 : write (‘III’)
   4 : write (‘IV’)
   5 : write (‘V’)
   6 : write (‘VI’)
   7 : write (‘VII’)
   8 : write (‘ VII’)
   9 : write (‘IX’)
  10 : write (‘X’)

  Otherwise : write (‘bukan angka romawi’)

  endcase

READMORE - Tugas Petruk Hal 153 Latihan 6