At 04:44 PM 9/5/00 -0700, you wrote:
>(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
mungkin coba rutin berikut
VAR var1 : STRING;
jumlah,i : INTEGER;
BEGIN
var1 := 'ABC';
jumlah := LENGTH(var1);
FOR i:= 1 TO jumlah DO
WRITE(var1);
var1 := copy(var1,2,2)+copy(var1,1,1);
WRITE(copy(var1,1,1)+copy(var1,3,1)+copy(var1,2,1));
NEXT
END.
coba tangkep logicnya
>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.
