Penulis Topik: [Kuis] Tes Skill Codingmu 2!  (Dibaca 78426 kali)

Offline cedrik

  • Pro10
  • ***
  • Tulisan: 63
  • Reputation: +68/-0
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #40 pada: Desember 29, 2011, 12:37:03 PM »
pusing gan..gada kisi2nya yah tuh gan buat jadi lebih gampangnya gitu :D

Offline fajar234

  • Pro100
  • ****
  • Tulisan: 178
  • Reputation: +210/-0
  • Jenis kelamin: Pria
    • Lihat Profil
    • Simpel Tapi Menarik
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #41 pada: Januari 12, 2012, 10:00:16 PM »
ternyata lebih mudah bongkar pasang komputer.

Offline Rizkay

  • Pro10
  • ***
  • Tulisan: 24
  • Reputation: +64/-0
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #42 pada: Januari 23, 2012, 05:20:03 PM »
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
« Edit Terakhir: Januari 23, 2012, 05:57:08 PM oleh Rizkay »

Offline TheBlackPirates

  • Pro10
  • ***
  • Tulisan: 27
  • Reputation: +59/-0
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #43 pada: Januari 31, 2012, 03:19:20 PM »
what the ****

pusing gan :D

Offline azmitcits

  • Pro1
  • *
  • Tulisan: 2
  • Reputation: +34/-0
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #44 pada: Maret 28, 2012, 08:47:04 AM »
#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();
      }

Offline philip

  • Pro1
  • *
  • Tulisan: 1
  • Reputation: +31/-0
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #45 pada: Agustus 20, 2012, 01:45:27 PM »
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();
 }

Offline belajar

  • Pro10
  • ***
  • Tulisan: 36
  • Reputation: +104/-0
  • Jenis kelamin: Pria
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #46 pada: Februari 09, 2013, 02:27:53 PM »
pusing gan. ???

Offline ewin gadroen

  • Pro1
  • *
  • Tulisan: 1
  • Reputation: +32/-0
  • Jenis kelamin: Pria
  • I'm Newbie
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #47 pada: Maret 09, 2013, 03:23:19 AM »
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   :-bd

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  :D
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   ^-^ :-\ :-\

Offline Maxtrix

  • Pro200
  • *****
  • Tulisan: 452
  • Reputation: +468/-0
  • Jenis kelamin: Pria
    • Lihat Profil
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #48 pada: Maret 22, 2013, 11:38:04 PM »
Jawabannya

Mandarin : wo bu zhi dao

English : I don't know

Indonesian : Ane ga tau *sadface*

:D

Offline MozaikTM

  • Moderator
  • Pro500
  • *****
  • Tulisan: 1.814
  • Reputation: +795/-3
  • Jenis kelamin: Pria
  • ...
    • Lihat Profil
    • MozaikTM
Re: [Kuis] Tes Skill Codingmu 2!
« Jawab #49 pada: April 07, 2013, 07:56:14 PM »
Klo ane mau jawab nih pertanyaan, kyaknya ane mesti upgrade otak neh... =)) =))

#Numpang ngejunk ^_^ ^_^ ^_^
Brain.EXE has stopped working. Error 0x00000007 (Out Of Memory).
Failed to Understand.