I-BEGO

Selamat pagi .

saya rasa saya ini memang bodoh .

seharian saya memikirkan ini untuk mengasah logika , tapi belum menghasilkan nya .

kira-kira bagaimana ya membuat output seperti ini :

1 2 3 4 5 6 7

2 3 4 5 6 7 1

3 4 5 6 7 1 2

4 5 6 7 1 2 3

5 6 7 1 2 3 4

6 7 1 2 3 4 5

7 1 2 3 4 5 6

Kalau pakai VB6 kira-kira begini:

Code: Select all

Sub TukarHuruf()

  Dim Tulisan as String, TulisanSem as String
  Dim i as Long

  Tulisan    = "1 2 3 4 5 6 7 "  ' Tulisan aslinya seperti ini, ada spasi di antara angka2.
  TulisanSem = "              "  ' Alokasikan tempat yang lebarnya sama, untuk tulisan baru

  For i = 0 to 999

    TulisanSem =  Right (Tulisan, Len(Tulisan)-2) ' Mengcopy huruf bagian kanan
    TulisanSem = TulisanSem & Left(Tulisan, 2)    ' Mengcopy huruf bagian kiri di belakang
    Tulisan = TulisanSem   ' Mengcopy String Baru ke variabel Tulisan
   
  Next i

End Sub



Kalau pakai C, kira-kira begini:

Code: Select all

void TukarHurf()
{
  int i;
  char Tulisan[]="1 2 3 4 5 6 7 ";
  char TulisanSem[]="1 2 3 4 5 6 7 ";

  long pTul=0;
  long pTulSem=0;

  pTul = &Tulisan[0];
  pTulSem = &TulisanSem[0];

  for(i=0;i<1000;i++) 
  {
    memcpy(pTulSem,pTul+2,strlen(Tulisan)-2);  // Mengcopy huruf bagian kanan
    memcpy(pTulSem,pTul,2);        // Mengcopy huruf bagian kiri di belakang
    memcpy(pTul,pTulSem,strlen(TulisanSem));  // Mengcopy String Baru ke variabel Tulisan
  }
}


Mohon dikoreksi kalau keliru

itu

Code: Select all

long pTul;
long pTulSem;


ato

Code: Select all

long * pTul;
long *pTulSem;


?