Salam bung
Wahhh enak juga tuh ada orang yang seneng pascal di milis
Nih gua kasih Example nya
{
uses dos,crt;
const Max = 10;
type Larik = array[1..Max] of Char;
var A : Larik;
C_Per,C_El,i : Longint;
Kal : string;
Lagi : char;
procedure Permutasi(var B : longint;A : Larik;K,N : longint);
var Temp : char;
i : integer;
begin
if K = N then
begin
B := Succ(B);
write('Permutasi ke ',B:2,' : ');
for i := 1 to N do
write(A[i]:3);
writeln;
end
else
for I := K to N do
begin
Temp := A[i];
A[i] := A[K];
A[K] := Temp;
permutasi(B,A,K+1,N);
end
end;
procedure Isi;
begin
for i := 1 to Length(Kal) do
A[i] := Kal[i];
C_El := Length(Kal);
end;
begin
repeat
write('Karakter anda = ');readln(Kal);
Isi;
C_per := 0;
permutasi(C_Per,A,1,C_El);
writeln('Banyak Permutasi : ',C_Per:3);
write('Ingin lagi (Y/T) ');readln(Lagi);
until Lagi in['t','T'];
end.
}
Oke deh gitu aja dulu
salam,
[IPGD]
----- Original Message -----
From: Eldy Munggaran <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 05, 2000 4:44 PM
Subject: [MIKRODATA] nanya pascal lagi....
> (e)
> saya lagi bingung gimana bikin program yang bisa mengeluarkan kombinasi
> dari data input, misalnya kalo datanya ABC, maka hasilnya adalah :
> ABC
> ACB
> BCA
> BAC
> CAB
> CBA
>
> gimana yah ????
>
> (e)
>
>
> ------------------------------------------------------------------------
> [EMAIL PROTECTED] - Mailing List MIKRODATA
>
> Informasi : http:[EMAIL PROTECTED]
> Arsip : http://www.mail-archive.com/forum%40mikrodata.co.id/
> WAP : http://mikrodata.co.id/wap/index.wml
>
> Milis ini menjadi kontribusi beberapa rubrik yang diasuh tim MIKRODATA.
> Termasuk rubrik-rubrik yang ada di media lain.
>
>
------------------------------------------------------------------------
[EMAIL PROTECTED] - Mailing List MIKRODATA
Informasi : http:[EMAIL PROTECTED]
Arsip : http://www.mail-archive.com/forum%40mikrodata.co.id/
WAP : http://mikrodata.co.id/wap/index.wml
Milis ini menjadi kontribusi beberapa rubrik yang diasuh tim MIKRODATA.
Termasuk rubrik-rubrik yang ada di media lain.
Please check with the latest AVP version before you ask about virus:
ftp://mikrodata.co.id/avirus_&_security/AntiViral_Toolkit_Pro/avp30.zip
