Cara Membuat Auto Hide Kotak Komentar Blog-Selamat pagi sobat blogger,tahukan sobat tentang auto hide kotak komentar?pastinya sudah tidak asing lagi ditelinga...
Kumpulan Program Delphi 7 For U All
Dalam Article Ini Saya Akan Share Dalam Bentuk PDF .
Article Yang Saya Buat Ini Banyak Dari File Tetangga Termasuk Senior Kita Yaitu
ILMUKOMPUTER
karena...
PROGRAM MENGHITUNG LUAS SEGITIGA DENGAN DELPHI 7
Program berikut ini mempergunakan rumus matematika untuk menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dari rumus tersebut kita bisa membuat...
PROGRAM KALKULATOR SEDERHANA DENGAN DELPHI 7
Dengan menggunakan Delphi 7 kita juga bias membuat sebuh calculator sederhana,
Langka-langkanya adalah sebagi berikut :
1.Buatlah sebuah Form seperti...
Program Transaksi Sederhana dengan Borland Delphi 7
Komponen yang digunakan :
- Komponen Standart : Panel, Edit, Label, Memo, Button
Listing Program :
unit Unit1;
interface
uses
Windows, Messages, SysUtils,...
Program Menyusun Rentang Nilai Code !!!
Program Menyusun_Rentang_Nilai;
Uses Wincrt;
Var i,tot,n:integer;
Begin
Write('Masukkan Jumlah Rentang Nilai: ');Readln(n);
For i:= 1 to n do
Begin
if...
Contoh Program Pisahkan Rekursif
Program Pisahkan_Rekursif;
Uses Wincrt;
Procedure pisah(x,y:integer);
Begin
Writeln(x,'<--->',y);
if x<y then
begin
pisah(x,(x+y) div 2);
pisah((x+y)...
Contoh Program TLQueue
Program Queue;
Uses Wincrt;
Type antrian = ^node; {Program QUEUE menggunakan Record}
node = Record
isi : String[10];
next : antrian; End;
Var dpn, blk,...
Program Heap sort algorithm
(** Heap sort algorithm.** Author: Paulo Roma* Date: 22/04/2008.* http://en.wikipedia.org/wiki/Heapsort* http://www2.hawaii.edu/~copley/665/HSApplet.html*)program...
Program Insertion Sort
program insertion(input,output);constMAX = 10;vara : array[1..MAX] of integer;i, n : integer;procedure insertion_sort;vari, pos : integer;value : integer;done...
Program Tree
PROGRAM Tree (Input, Output);{Written by Jason John Schwarz with Turbo Pascal v6.0.Purpose: A demonstration binary tree.}USES CRT;TYPEPoint = ^Node;Node...
Program Max1 Max2 Code !!!
Program Max1_Max2;
Uses Wincrt;
Var
x: array[1..100] of integer;
i,n,max,sec: integer;
Begin
Write('Masukkan Jumlah Data: ');readln(n);
for i :=...
Program matrik
Program matrik;
uses wincrt;
type data = array[1..10,1..10] of integer;
var matrikI,matrikII : data;
baris,kolom,pil : integer;
procedure isimatrik;
var...
Program Menyusun Kali Matrik Code !!!
Program Menyusun_Kali_Matrik;
Uses Wincrt;
Var i,j,n:integer;
Begin
Write('Masukkan Jumlah Perkalian: ');Readln(n);
Write('*':5);
For i:= 1 to n...
Program Menghitung Suku
Program Menghitung_Suku;
Uses Wincrt;
Var tot,suku:real;
i:integer;
Begin
tot:=0;
suku:=2;
While tot <= 3.9999 Do
Begin
tot:=tot+suku;
i:=i+1;
s...
Contoh Script Program Acckerman
Program Acckerman;
Uses Wincrt;
Function ACC(m,n:integer):integer;
Begin
if m=0 then
begin
ACC:=n+1;
Write(n+1,' ');
end
else if n=0 then
begin
ACC:=ACC(m-1,1);
Writeln(ACC(m-1,1),'...
Program Indeks Larik
Program Indeks_Larik;
Uses Wincrt;
Var
x : Array [1..100] of Integer;
i,n : Integer;
Ul : Char;
Procedure CekIndeks(m: integer);
Var t: Integer;
Begin
Writeln;
Write('Nomor...
Program Urut Pecahan
Program Urut_Pecahan;
Uses Wincrt;
Var pmb,pny : array [1..10] of integer;
i,j,n : integer;
Procedure Urut(x : integer);
Var t1,t2 : integer;
Begin
For...
Contoh Program Tukar Nilai
Turbo Pascal Logo
Program Tukar Nilai
Program Tukar_Nilai;
Uses WinCrt;
Type Larik = Array [1..100] of Integer;
Var
A,B : Larik;
i,x,m : Byte;
Procedure...
Program Prosedur reference
Program Prosedur_reference;
Uses Wincrt;
Var a,b,c : Integer;
Procedure Coba(x,y:integer; var z:integer);
Begin
x:=x+1;
y:=y+1;
z:=x+y;
End;
Begin
a:=2;b:=3;c:=0;
Coba(a,b,c);
Writeln('a...
Program Prosedur aktual
Program Prosedur_aktual;
Uses Wincrt;
Var Y:char;
m:byte;
Procedure Tampil(x:char;n:byte);
Var i:integer;
Begin
for i := 1 to n do
Write(x);
Writel...
Subscribe to:
Posts (Atom)
