Program file

Program Filetugas;
Uses Crt;
Var
 JenisFile         : Text;
 Nama,alamat,telp  : String;
 Tanya             : Char;
 Pilihan           : ShortInt;

Begin
Repeat
 ClrScr;
 Writeln('+-----------------------------+');
 writeln('|        PROGRAM FILE         |');
 writeln('|-----------------------------|');
 Writeln('| 1. | Membuat File Data Baru |');
 Writeln('| 2. | Memasukan Data Baru    |');
 Writeln('| 3. | Menampilkan Data       |');
 Writeln('| 4. | Keluar                 |');
 Writeln('|-----------------------------|');
 Writeln('| Pilihan :                   |');
 writeln('+-----------------------------+');
 gotoxy(13,9);Readln(Pilihan);

Case  Pilihan Of

1 : Begin
 Assign(JenisFile,'Alamat.dat');
 ReWrite(JenisFile);
 Close(JenisFile);
 writeln;
 writeln;
 Writeln('---File Sukses Dibuat---');
 readkey;
 End;

2 : Begin
 Assign(JenisFile,'Alamat.dat');
 Append(JenisFile);
 Repeat
 ClrScr;
 writeln('+----------------------------+');
 Writeln('| Nama      :                |');
 Writeln('| ALamat    :                |');
 Writeln('| Telepon   :                |');
 writeln('+----------------------------+');
 gotoxy(15,2);readln(nama);
 gotoxy(15,3);readln(alamat);
 gotoxy(15,4);readln(telp);
 Writeln(JenisFile,Nama);
 Writeln(JenisFile,Alamat);
 Writeln(JenisFile,Telp);
 Writeln;
 Write('Tambah Data Lagi ? (Y/T): ');
 Tanya := ReadKey;
 Until UpCase(Tanya) = 'T';
 Close(JenisFile);
 writeln;
 Writeln('Data telah dimasukan !');
 readkey;
 End;

3 : Begin
 Assign(JenisFile,'Alamat.dat');
 Reset(JenisFile);
 Repeat
 Readln(JenisFile,Nama);
 Readln(JenisFile,Alamat);
 Readln(JenisFile,Telp);
 ClrScr;
 writeln('+----------------------------+');
 Writeln('| Nama      :                |');
 Writeln('| ALamat    :                |');
 Writeln('| Telepon   :                |');
 writeln('+----------------------------+');
 gotoxy(15,2);writeln(nama);
 gotoxy(15,3);writeln(alamat);
 gotoxy(15,4);writeln(telp);
 writeln;
 If Nama = ''Then
 Tanya := 'T'
 Else
 Begin
  Write('Lihat Data Selanjutnya ? (Y/T) : ');
  Tanya := ReadKey;
 End;
  Until UpCase(Tanya) = 'T';
  Close(JenisFile);
 End;

 Else
 End;

 Until Pilihan=4;
End.

2. Screenshot Program

Read More

rahmad bungsai 08.40  No comment

Program Linklist

program linklist;
uses crt;
  type pointer=^typedata;
  TYPEDATA = RECORD
   NILAI : INTEGER;
   BERIKUTNYA : POINTER;
   end;
var list :pointer;
procedure mas_dep(var L : pointer; x : Integer);
  var baru : pointer;
begin
  new(baru);
  baru^.Nilai:=x;
  baru^.Berikutnya:= nil;
  if L= nil then L:=baru
  else
   begin
   baru^.berikutnya :=L;
   L:= baru;
  end;
 end;

 procedure cetak (L:pointer);
 var bantu : pointer;
 begin
  bantu:= L;
  while bantu <> nil do
  begin
  write (bantu^.Nilai:3);
  Bantu:=bantu^.Berikutnya;
   end;
  end;

  var bil, bil2 : integer;
  JB : char;

  begin
  clrscr;
  new(list);
  list:=nil;
  jb:='Y';
  writeln;
  writeln ('+-----------------------------------+');
  writeln ('|         Program linklist          |');
  writeln ('|-----------------------------------|');
  writeln ('|            MASUK DEPAN            |');
  writeln ('+-----------------------------------|');
  readkey;
  clrscr;
  while upcase(Jb)='Y' do
  begin
   clrscr;
   writeln ('+--------------------------+');
   writeln ('| Input bilangan :         |');
   writeln ('+--------------------------+');
   gotoxy(23,2);readln(bil);
   mas_dep(list,bil);
   writeln;
   writeln ('| Lagi [Y/T]  :            |');
   writeln ('+--------------------------+');
   gotoxy(17,4);readln(jb);
   end;
   writeln ('|--------------------------|');
   writeln ('|                          |');
   writeln ('+--------------------------+');
   gotoxy(3,6);cetak(list);
   writeln;
   readln;
   end.

Read More

rahmad bungsai 21.26  No comment

Program Pointer Tak Bertipe

program pointertaktipe;

uses crt;

var

 a : Pointer;

 b : ^Byte;

 c : array [0..100] of Byte;

 d : Byte;

 e : integer;

begin

  clrscr;

  writeln('+-----------------------------+');

  writeln('|   POINTER TAK BERTIPE       |');

  writeln('|-----------------------------|');

  writeln('| Input jumlah data  :        |');

  writeln('+-----------------------------+');

  gotoxy(24,4);readln(e);

  writeln;

  GetMem(a, 20);

  b := a;

  for d := 0 to e do

  begin

   c[d] := e - d;

   b^ := e - d;

   inc(b);

  end;

  b := a;

  for d := 0 to e do

  begin

   writeln('+------------|----------------+');

   writeln('|            |                |');

   writeln('|c[ ', d ,' ] = ', c[d], '  | a^ ke-', d ,' = ', b^,'    |');

   writeln('+------------|----------------+');

   inc(b);

  end;

  readln;

 end.

 2. Screenshot Program

Read More

rahmad bungsai 22.50  No comment

Program pencarian nilai

2. Source Code

Program searchnilai;

uses crt;

const nnim = 1;

   nmax = 100;

type arrint = array [nnim..nmax] of integer;

var tabint : arrint;

    x,n,i,indeks,max,min,maks :  integer;

function seqsearch(xx : integer): integer;

var i : integer;

begin

   i:= 1 ;

  while ((i<n) and (tabint[i] <> xx )) do

  i:=i+1;

  if tabint[i]=xx then

  seqsearch:=i else

  seqsearch:=0;

end;

function maksimum(tabint:arrint;n :integer): integer;

var i,max : integer;

begin

  for i:=2 to n do

  if max<tabint[i] then

  max:=tabint[i];

  maksimum:=max;

end;

function minimum (tabint:arrint; n:integer):integer;

var i,min : integer;

begin

  for i :=1 to n do

  if min>tabint[i] then

  min:=tabint[i];

  minimum:=min;

end;

begin

clrscr;

  writeln('+----------------------------------+');

  writeln('| Masukkan Jumlah data :       |');

  writeln('|------------------------------------|');

  gotoxy(26,2);readln(n);

  for i:=1 to n do

  begin

   writeln('|----------------------------------|');

   writeln('|         Data ke-',i,'                  |');

   writeln('|----------------------------------|');

   writeln('|      Masukkan Nilai  :           |');

   writeln('|-----------------------------------|');

   gotoxy(26,6+(4*(i-1)));readln(tabint[i]);

 end;

 begin

   writeln('|----------------------------------|');

   writeln('|                                             |');

   writeln('| Temukan Nilai   :                |');

   writeln('|                                             |');

   writeln('|----------------------------------|');

   gotoxy(21,9+(4*(i-1)));readln(x);

   writeln('|                                             |');

   writeln('|----------------------------------|');

   writeln('|                                             |');

   writeln('| Nilai ',x,'                                  |');

   indeks:=seqsearch(x);

   if indeks <> 0 then

   writeln('| Berada di indeks ke-',indeks,'            |')

   else

   writeln('| tidak ditemukan !');

   writeln('|                                         |');

   writeln('|-------------------------------|');

 end;

 begin

   maks:=maksimum(tabint,n);

   min:=minimum(tabint,n);

   writeln('|                                           |');

   writeln('| Nilai maksimum :             |');

   writeln('| Nilai minimum  :              |');

   writeln('|                                           |');

   writeln('+------------------------------+');

   gotoxy(20,18+(4*(i-1)));writeln(maks);

   gotoxy(20,19+(4*(i-1)));writeln(min);

   readkey;

 end;

end.
2. Screenshot program

Read More

rahmad bungsai 11.20  No comment