درخواست حل يه سوال از كتاب وي بي قمي

[mtu]

دوستان اگه ميشه سورس اين برنامه رو يكي بهم بده قول ميدم سر نماز براس دعا كنم.(وي بي 6)

برنامه اي بنويسيد كه 10 عدد را خوانده و در ارايه قرار دهد.سپس عددي كه بيشترين تكرار را دارد نمايش دهد

اين سوال مربوط به سوال 7 صفحه ي 120 كتاب اموزش ويژوال بيسيك اقاي قمي است.

رشتم هم نرم افزار نيست.برق است اين كتاب رو استاد بهم 10 هم بده راضيم!هيچي از برنامه نويسي ير در نميارم چون علاقه اي ندارم.خداييش اين رسته ي شما هم سخته ااااا

منتظرم براي يكي دعا كنم!

[fanoos]

بنده هم کلاس این رفیق هستم.لطفا یکی سورس این برنامه ی ساده رو به ما بده وگر نه 2 نمره از نمره ی پایان ترممون کم میشه،و بلعکس!

[serpico]

حتما به زبان بیسیک میخواهید باشه؟
الگوریتمش که راحته ولی من زبان بیسیک اصلا یادم نیست.

[fanoos]

به زبان وی بی 6
لطفا یکی به داد این حقیر برسه

[peyman]

دوستان اگه ميشه سورس اين برنامه رو يكي بهم بده قول ميدم سر نماز براس دعا كنم.(وي بي 6)

برنامه اي بنويسيد كه 10 عدد را خوانده و در ارايه قرار دهد.سپس عددي كه بيشترين تكرار را دارد نمايش دهد

اين سوال مربوط به سوال 7 صفحه ي 120 كتاب اموزش ويژوال بيسيك اقاي قمي است.

رشتم هم نرم افزار نيست.برق است اين كتاب رو استاد بهم 10 هم بده راضيم!هيچي از برنامه نويسي ير در نميارم چون علاقه اي ندارم.خداييش اين رسته ي شما هم سخته ااااا

منتظرم براي يكي دعا كنم!

کد: انتخاب همه

Option Base 1
Dim  i, j, countt, maincount As Integer
Dim u(10)

Private Sub Form_Load()
For i = 1 To 10
u(i) = InputBox("yek adad vared konid", Number)
Next
For j = 1 To 10
countt = 0
For j2 = 1 To 10
If u(j) = u(j2) Then
countt = countt + 1
index1 = u(j2)
End If
Next
If (maincount < countt) Then
maincount = countt
Index = index1
End If
Next
karshenasi = MsgBox("result = " + Index, vbInformation, "Result")
End Sub

و این هم به زبان ++C

کد: انتخاب همه

#include <iostream>
#include <cstdlib>

using namespace std;
int main()
{
    int a[10],max=0,index,count;
    for(int i=0 ; i < 10; ++i)
        cin>>i[a];
    for(int i=0 ; i < 10; ++i)
    {
        count=0;
        for(int j=0 ; j < 10 ; ++j)
            count+=a[j]=a[i];
        if(max<count)
            index=i;
    }

    cout<<a[index]<<endl;
    system("pause");
	return 0;
}

[fanoos]

انشا الله از جوانیت خیر ببینی مهندس
یه دنیا تشکر

[mtu]

کد: انتخاب همه

Option Base 1
Dim  i, j, countt, maincount As Integer
Dim u(10)

Private Sub Form_Load()
For i = 1 To 10
u(i) = InputBox("yek adad vared konid", Number)
Next
For j = 1 To 10
countt = 0
For j2 = 1 To 10
If u(j) = u(j2) Then
countt = countt + 1
index1 = u(j2)
End If
Next
If (maincount < countt) Then
maincount = countt
Index = index1
End If
Next
karshenasi = MsgBox("result = " + Index, vbInformation, "Result")
End Sub

مثله اينكه استاد دبه ي جديد دراورده!!!
گفته اين سورس رو بهينه كنيد!!!(چند خط سورس رو بهش اصافه كنيد)

1.اگر وسط ارايه به عددي برخورد كرد كه قبلا تعداد دفعات تكرارش محاسبه شده باشد ،مجددا ان را محاسبه نكند

2.اگر بيش از 1 عدد به تعداد مساوي تكرار شده اند،همه اعداد تعداد دفعات تكرارش را به تعداد مساوي چاپ كند

حالا چه خاكي تو سرمون باسد بريزيم؟

[mtu]

استاد فقط اون 4،3 خط سورسی که به برنامه باید اضافه بشه رو میخواد(وی بی 6)
کمک ک ک ک ک ک ک ک ک ک