[Kuis] Tes Skill Codingmu 2!

[cedrik]

pusing gan..gada kisi2nya yah tuh gan buat jadi lebih gampangnya gitu

[fajar234]

ternyata lebih mudah bongkar pasang komputer.

[Rizkay]

Kode: [Pilih]

Private Function Calc(bVal As String)
Dim b1() As String, s() As String, jml As Long, h As Integer, m As Long
ReDim s(0)
jml = 0
b1 = Split(bVal, ",")
For b = 0 To UBound(b1)
jml = Val(jml) + Val(b1(b))
Next
For c = 0 To UBound(b1)
If c = UBound(b1) Then Exit For
For k = 0 To UBound(b1) - c
If k > 0 Then
m = Val(b1(c)) + Val(b1(UBound(b1) - k + 1))
h = jml Mod m
If h = 0 Then ReDim Preserve s(UBound(s) + 1): s(UBound(s) - 1) = jml & " / " & m & " = " & jml / m
End If
Next
Next
For i = 0 To UBound(s) - 1
MsgBox s(i)
Next
Calc = UBound(s)
End Function

untuk pemanggilan fungsi misal kita sesuaikan dengan contoh: 1,2,3,6

Kode: [Pilih]

MsgBox "jadi banyaknya yang habis dibagi adalah: " & Calc("1,2,3,6")
CODING YANG SAYA BUAT SUDAH 100% TEPAT CMIIW
jadi tinggal panggil fungsi aja calc("1,2,3,4,5,6,7,8,9,10,11,12,13,14,20") sampe 100 angka juga bisa

[TheBlackPirates]

what the ****

pusing gan

[azmitcits]

#include<stdio.h>
#include<conio.h>

main()
{
      int sym[4];
      int Na;
     
      int arr[20];
      int counter = 0;
      scanf("%d",&sym[0]);
      scanf("%d",&sym[1]);
      scanf("%d",&sym[2]);
      scanf("%d",&sym[3]);
     
      Na = sym[0] + sym[1] + sym[2] + sym[3];
      printf("hasil = %d",Na);
     // int hasil[2];
      int hasil, biggest;
      int itung=0;
      for (int a=0 ; a<4 ; a++)
      {
          for (int b = a+1 ; b<4 ; b++ ){
             
              arr[counter] = sym[a] + sym;
              counter++;
              }
             
          }
         for (int c =0 ; c<6 ; c++)
         {
             hasil = Na % arr[c];
             printf("\n %d",hasil);
            if(hasil==0)
            itung++;
            }
     
      printf("\n hasil yang dapat membagi habis berjumlah = %d  ", itung);     
         
      getch();
      }

[philip]

revisi dari coding azmitcits..
batas nilai bisa ditentukan..
asumsi Na terbesar=4..
semoga bisa membantu..

#include<stdio.h>
#include<conio.h>

void philip(int sym[3])
{
      int Na;
      int arr[20];
      int counter=0;
      int hasil=0;
      int itung=0;
     
      Na = sym[0] + sym[1] + sym[2] + sym[3];
      for (int a=0 ; a<4 ; a++)
      {
          for (int b = a+1 ; b<4 ; b++ )
          {
              arr[counter] = sym[a] + sym;
              counter++;
          }
      }
             
      for (int c =0 ; c<6 ; c++)
      {
          hasil = Na % arr[c];
          if(hasil==0)
                  itung++;
      }
     
      if(itung==4)
      {
            printf("%d+%d+%d+%d=%d",sym[0],sym[1],sym[2],sym[3],Na);
            printf(" => %d\n", itung);   
      }
}

main()
{
      int sym[4];
      int batas;
      printf("Batas nilai output?");
      scanf("%d",&batas);
           
      for(int i=1;i<=batas;i++)
      {
              sym[0]=i;
              for(int j=sym[0]+1;j<=batas;j++)
              {         
                  sym[1]=j; 
                      for(int k=sym[1]+1;k<=batas;k++)
                      {
                              sym[2]=k;
                              for(int l=sym[2]+1;l<=batas;l++)
                              {
                                      sym[3]=l; 
                                      philip(sym);
                              }
                      }
              }
      }
         
      getch();
 }

[belajar]

pusing gan.

[ewin gadroen]

Kuis ke-2, kali ini coding yang sedikit lebih berat & diperlukan sedikit pemahaman matematika dasar yang pastinya udah diketahui oleh kebanyakan programmer/computer scientist, semangat   

Prize : 10 Key Smadav Pro.

Soal :


Translate :
Misalkan ada 4 angka positif yang berbeda yaitu a1, a2, a3, a4. Jika hasil jumlahannya sA = a1+a2+a3+a4, misalkan ada 6 pasangan bilangan : a1+a2, a1+a3, a1+a4, a2+a3, a2+a4, a3+a4.  nA adalah banyaknya dari 6 bilangan ini yang habis membagi sA. Cari semua 4 angka a1, a2, a3, a4 yang mempunyai nilai nA terbesar.

Contohnya :
Misalkan a1, a2, a3, a4 =  1,2,3,6
sA = 1+2+3+6 = 12
1+2 = 3 habis membagi 12
1+3 = 4 habis membagi 12
1+6 = 7 tidak habis membagi 12
2+3 = 5 tidak habis membagi 12
2+6 = 8 tidak habis membagi 12
3+6 = 9 tidak habis membagi 12
Jadi nA = 2.

Sekarang cari semua kemungkinan a1, a2, a3, a4, yang menghasilkan nA terbesar yang mungkin.

Uda terjawab blom mas zai ??
saya coba menggunakan vb6 boleh kan mas 
dengan Ai=20, karna dikomp saya klu Ai ratusan prosesny lelet mas (maklum komp dangak2)

Kode: [Pilih]

Private Sub Command1_Click()
Dim ai, sa, na, a, b, c, d, e, f As Integer
Dim i, j, k, l As Integer
ai = 20
For i = 1 To ai
If i < ai + 1 Then
    For j = i + 1 To ai
    If j < ai + 1 Then
        For k = j + 1 To ai
        If k < ai + 1 Then
            For l = k + 1 To ai
            If l < ai + 1 Then
                sa = i + j + k + l
                If sa Mod (i + j) = 0 Then a = 1
                If sa Mod (i + k) = 0 Then b = 1
                If sa Mod (i + l) = 0 Then c = 1
                If sa Mod (j + k) = 0 Then d = 1
                If sa Mod (j + l) = 0 Then e = 1
                If sa Mod (k + l) = 0 Then f = 1
                na = a + b + c + d + e + f
                List1.AddItem (i & "+" & j & "+" & k & "+" & l & " = " & sa & " --> " & na)
                a = 0
                b = 0
                c = 0
                d = 0
                e = 0
                f = 0
                na = 0
                sa = 0
            End If
            Next l
        End If
        Next k
    End If
    Next j
End If
Next i
End Sub

betul gak mas   

[Maxtrix]

Jawabannya

Mandarin : wo bu zhi dao

English : I don't know

Indonesian : Ane ga tau *sadface*

[MozaikTM]

Klo ane mau jawab nih pertanyaan, kyaknya ane mesti upgrade otak neh...

#Numpang ngejunk