[Kuis] Tes Skill Codingmu 2!

[★ harboot ★]

[spoiler]hahaa,, gak liat Sp ,, maap OOT dikit[/spoiler]

[SpecTyte™]

Ini hubungannya tentang kode atau Matematika? Pusing sangat..

[Zai]

Nanti akan saya post jawabannya di C++

[Red Rebel]

Ijin Nyimak aja dach
ga sanggup mikir 

[zarloda]

nih pakek vb dijamin dinamis mo sampe berapa data pun, semoga menang   

Kode: [Pilih]

Module Module1
    Dim xJumlah As Integer = 0
    Dim xTotal As Integer = 0
    Dim xtemp As Integer = 0
    Dim xtemp2 As Integer = 0
    Dim xNa As Integer = 0
    Sub Main()
        While xJumlah <= 0
            Console.Write("masukkan jumlah bilangan" & vbTab & ": ")
            xJumlah = Console.ReadLine()
        End While
       
     
        Dim xContTemp(xJumlah - 1) As Integer
        For i As Integer = 0 To xJumlah - 1
            Console.Write("masukkan angka" & vbTab & ": ")
            xtemp = Console.ReadLine()
            xTotal += xtemp
            xContTemp(i) = xtemp
        Next

        Console.WriteLine()
        Console.Write("sA " & xTotal)
        Console.WriteLine()
        Console.WriteLine()

        For i As Integer = 0 To xContTemp.Length - 1

            Console.WriteLine("a" & i + 1 & " " & xContTemp(i))

        Next

        Console.WriteLine()

        For i As Integer = 0 To xContTemp.Length - 1

            For u As Integer = i + 1 To xContTemp.Length - 1
                xtemp2 = xContTemp(i) + xContTemp(u)
                If xTotal Mod xtemp2 = 0 Then
                    Console.Write(xContTemp(i) & " + " & xContTemp(u) & " = " & xContTemp(i) + xContTemp(u) & " habis membagi " & xTotal)
                    Console.WriteLine()
                    xNa += 1
                End If
            Next

        Next
        Console.WriteLine("jadi Na = " & xNa)
    End Sub

End Module
 
screenshot

[Rizkay]

sebenernya ane dah buat code nya dulu cuma ga di save ini cuma pake fungsi Mod buat kondisi pembagian yang habis
juga make variabel ber array

[Rdion]

Ini Yang Udah Di Perbaiki Kodenya:

#include <stdlib.h>
#include <iostream>
#include <windows.h>
using namespace std;

int An[] = {1, 2, 3, 6};

int BesarNa(int &);
void Roll();

int BesarNa(int &Jum)
{
   int *p = An;
   int jumlah = 0, i, j, ret = 0;
   for (i = 0; i < 4; i++) jumlah += *(p+i);
   Jum = jumlah;
   for (i = 0; i < 4; i++) {
      for (j = i + 1; j < 4; j++) {
         if ((jumlah % (*(p+i) + *(p+j))) == 0) ret += 1;
      }
   }
   return ret;
}

void Roll()
{   
   int *p = An;
   int r, i, j;   
   r = (((GetTickCount() & 0xFFFFFFFF) & 0xFFFF) ^ 0xFF) & 3;
   *(p+r) += 1;
   for (i = 0; i < 4; i++) {
      for (j = i + 1; j < 4; j++) {
         if (*(p+i) == *(p+j)) {
            *(p+i) += 1;
            *(p+j) -= 1;
         }
      }
   }
}

int main()
{   
   int c;
   for (c = 0; c < 400; c++) {
      int j;
       int Besar = BesarNa(j);
       cout << An[0] << "+" << An[1] << "+" << An[2] << "+" << An[3] << "=" << j << "->" << Besar << endl;      
      Roll();      
   }
}

[muzank]

algoritma gw jelek gan......kbnyakan ngelamun...jd jelek deh logika nya!!

[cybzx09]

mas batasannya a1, a2, a3, a4 berapa?

[santozs]

wakwakwak, gan blom bisa coding, gila manteb dah soalnya