Program Perulangan dengan While Do Pascal

Sama halnya dengan struktur kendali yang telah dibahas sebelumnya, pada struktur perulangan dapat terjadi kasus dimana di dalam struktur perulangan tertentu terdapat struktur perulangan yang lain dan seterusnya. Program berikut akan menerapkan struktur perulangan dengan menggunakan While :

  • program P0401;
  • uses wincrt;
  • var
  • m:char;
  • i,j:integer;
  • begin
  • gotoxy(20,1);writeln('Contoh Program Perulangan');
  • writeln;
  • repeat
  • write('Masukkan sembarang karakter : ');readln(m);
  • i:=1;
  • while i<=10 do
  • begin
  • j:=1;
  • while j<=i do
  • begin
  • write(m);
  • inc(j);
  • end;
  • writeln;
  • inc(i);
  • end;
  • writeln;
  • write('Mau Ulang ? : ');readln(m);
  • until m<>'y';
  • end.
-----------------------------------------------------------


Apabila menginginkan filenya bisa di download disini :





Read More!

Aplikasi Sederhana di Access 2007

Untuk Apasih kita belajar microsoft Access. Microsoft Access adalah suatu aplikasi yang dapat membantu kita membuat sebuah aplikasi database dalam waktu yang relatif singkat. Biasanya digunakan untuk pembuatan aplikasi-aplikasi yang kecil. Misalnya Program untuk Kasir di koperasi, penjualan untuk toko.

Seperti contoh gambar diatas, kita dapat membuat tampilan yang kita inginkan. anda mau...

Sebelum mulai belajar jangan lupa berdoa dulu kemudian Tanamkan pada diri anda bahwa Microsoft Access itu gampang dan mudah dipelajari. Kuatkan keyakinan pada diri anda bahwa anda dapat menguasainya.

Klik disini untuk melihat tutorialnya :  Lihat Tutorial

Read More!

Matriks 2 ordo dengan Pascal 1.5

Read More!

Praktikum-4 Fibbonacci dan Deret Kuadrat Pascal

  • program P0401;
  • uses wincrt;

  • var
  • a:array[1..100] of integer;
  • hasil:real;
  • i,j,pilih,k,n:integer;
  • status:boolean;
  • m:char;

  • begin
  • repeat
  • clrscr;
  • writeln('1. Program Perulangan');
  • writeln('2. Deret Fibbonacci');
  • writeln('3. Deret Kuadrat');
  • writeln('4. Keluar');
  • writeln;
  • write('Masukkan Pilihan Anda : ');readln(pilih);

  • case pilih of
  • 1: begin
  •    clrscr;
  •    gotoxy(20,1);writeln('Contoh Program Perulangan');
  •    writeln;
  •    write('Masukkan sembarang karakter : ');readln(m);
  •    i:=1;
  •    while i<=10 do
  •    begin
  •    j:=1;
  •    while j<=1 do
  •    begin
  •    write(m);
  •    inc(j);
  •    end;
  •    inc(i);
  •    end;
  •    writeln;
  •    end;

  • 2: begin
  •    clrscr;
  •    gotoxy(20,1);writeln('Program Deret Fibbonacci'); writeln;
  •    write('Input banyaknya fibbonaci: ');readln(i);
  •    writeln;
  •    a[1]:=1;
  •    a[2]:=1;
  •    for k:=2 to i do
  •    begin
  •    a[k+1]:=a[k]+a[k-1];
  •    end;
  •    writeln;

  •    for k:=1 to i do
  •    begin
  •    write(a[k],' ');
  •    end;
  •    writeln;
  •    end;

  • 3: begin
  •    clrscr;
  •    gotoxy(20,1);writeln('Program Deret Kuadrat'); writeln;
  •    write('Input Banyaknya Kuadrat : ');readln(n);
  •    writeln;
  •    j:=0;
  •    for i:=1 to n do
  •    begin
  •    k:=sqr(i);
  •    write(k,' ':2);
  •    end;
  •    end;


  • 4: status:=true;

  • else
  • begin
  • writeln('Pilihan Anda Salah !');status:=false;
  • end;
  • writeln;
  • end;
  • readln;
  • until status;
  • end.

Read More!

Mencari Bilangan Terendah dan Tertinggi Pascal

Pada Program Mencari Bilangan Terendah dan Tertinggi ini, saya menggunakan Array.

Berikut adalah salah satu contoh Program :
  • Program Array;
  • Uses Wincrt;
  • Var x : array [1..100] of integer;
  • n,i,max,min : integer;
  • Begin
  • Writeln('Program Array');
  • Writeln('=============');
  • Writeln;
  • Write('Masukkan Jumlah Data: ');readln(n);
  • Writeln;Writeln('Data Harus Urut');
  • For i:= 1 to n do
  • Readln(x[i]);
  • Writeln;
  • Write('Data Yang Telah Dimasukkan: ');
  • max:=x[1];
  • min:=x[1];
  • For i:= 1 to n do
  • Begin
  • Write(x[i],' ');
  • if (max<x[i]) then
  • max:=x[i]
  • else
  • min:=x[i];
  • End;
  • Writeln;
  • Writeln('Nilai Maximal: ',max);
  • Writeln('Nilai Minimal: ',min);
  • End.


Ingin lihat scriptnya download disini :

Read More!

Deret Fibbonacci Pascal



program fibonacci;
uses wincrt;
var a:array[1..1000] of integer;
i,k:integer;
begin
clrscr;
write('Input banyaknya fibbonaci: ');readln(i);

a[1]:=1;
a[2]:=1;
for k:=2 to i do
begin
a[k+1]:=a[k]+a[k-1];
end;
writeln;

for k:=1 to i do
begin
write(a[k],' ');
end;
writeln;
readln;
end.

Apabila anda menginginkan PAS Type File silahkan download link dibawah ini :
Download

Read More!

Program Mahasiswa Pascal





Download Read More!

Praktikum-2 Perulangan Case Of dalam Pascal

program P0302;
uses wincrt;

var
prima:array[1..100] of integer;
hasil:real;
i,pilih,a,x,n:integer;
status:boolean;
b:char;

begin
repeat
clrscr;
writeln('1. Pemangkatan');
writeln('2. Faktorial');
writeln('3. Deret Angka');
writeln('4. Balik Huruf');
writeln('5. Bilangan Prima');
writeln('6. Perulangan for tersarang');
writeln('7. Keluar');
writeln;
write('Masukkan Pilihan Anda : ');readln(pilih);

case pilih of
1: begin
   clrscr;
   gotoxy(20,1);writeln('Program Pemangkatan');writeln;
   write('Masukkan Sembarang Angka : ');readln(x);
   write('Akan dipangkatkan berapa : ');readln(a);
   writeln;
   hasil:=1;
   for i:=1 to a do hasil:=x*hasil;
   writeln('Jadi ',x,' dipangkatkan ',a,' : ',Hasil:2:2);
   status:=false;
   end;

2: begin
   clrscr;
   gotoxy(20,1);writeln('Program Faktorial');writeln;
   write('Masukkan Sembarang Angka : ');readln(n);
   writeln;
   if (n<=0) then
   Writeln('Hasil Faktorial: ',1)
   else
   Begin
   x:=1;
   For i := 1 to n do
   x:=x*i;
   Writeln('Hasil Faktorial: ',x);
   End;
   status:=false;
   end;

3: begin
   clrscr;
   gotoxy(20,1);writeln('Program Deret Angka');writeln;
   write('Masukkan Maksimal Angka : ');readln(a);
   writeln;
   for i:=1 to a do
   write(i:4);
   end;

4: begin
   clrscr;
   gotoxy(20,1);writeln('Program Balik Huruf');writeln;
   for b:='Z' downto 'A' do
   write(b:4);
   end;

5: begin
   clrscr;
   gotoxy(20,1);writeln('Program Bilangan Prima');writeln;

   for i:=2 to 100 do
   begin
   prima[i]:=i;
   for a:=2 to i-1 do
   begin
   x:=(i mod a);
   if x=0 then prima[i]:=0;
   end;
   if prima[i]<>0 then
   write(prima[i],' ');
   end;
   end;

6: begin
   clrscr;
   gotoxy(20,1);writeln('Program Perulangan for tersarang');writeln;

   write('Masukkan jumlah Nilai cetak : ');readln(x);
   write('Masukkan Nilai yang dicetak : ');readln(n);
   writeln;
   for i:=1 to x do
   begin
   for a:=1 to n do
   write(i:4,a:2);
   writeln;
   end;
   end;

7: status:=true;

else
begin
writeln('Pilihan Anda Salah !');status:=false;
end;
end;
readln;
until status;
end.
   Read More!

My Blog List