درخواست حل يه سوال از كتاب وي بي قمي
مدیر انجمن: rosa_127
درخواست حل يه سوال از كتاب وي بي قمي
دوستان اگه ميشه سورس اين برنامه رو يكي بهم بده قول ميدم سر نماز براس دعا كنم.(وي بي 6)
برنامه اي بنويسيد كه 10 عدد را خوانده و در ارايه قرار دهد.سپس عددي كه بيشترين تكرار را دارد نمايش دهد
اين سوال مربوط به سوال 7 صفحه ي 120 كتاب اموزش ويژوال بيسيك اقاي قمي است.
رشتم هم نرم افزار نيست.برق است اين كتاب رو استاد بهم 10 هم بده راضيم!هيچي از برنامه نويسي ير در نميارم چون علاقه اي ندارم.خداييش اين رسته ي شما هم سخته ااااا
منتظرم براي يكي دعا كنم!
برنامه اي بنويسيد كه 10 عدد را خوانده و در ارايه قرار دهد.سپس عددي كه بيشترين تكرار را دارد نمايش دهد
اين سوال مربوط به سوال 7 صفحه ي 120 كتاب اموزش ويژوال بيسيك اقاي قمي است.
رشتم هم نرم افزار نيست.برق است اين كتاب رو استاد بهم 10 هم بده راضيم!هيچي از برنامه نويسي ير در نميارم چون علاقه اي ندارم.خداييش اين رسته ي شما هم سخته ااااا
منتظرم براي يكي دعا كنم!
Re: درخواست حل يه سوال از كتاب وي بي قمي
بنده هم کلاس این رفیق هستم.لطفا یکی سورس این برنامه ی ساده رو به ما بده وگر نه 2 نمره از نمره ی پایان ترممون کم میشه،و بلعکس!
Re: درخواست حل يه سوال از كتاب وي بي قمي
حتما به زبان بیسیک میخواهید باشه؟
الگوریتمش که راحته ولی من زبان بیسیک اصلا یادم نیست.
الگوریتمش که راحته ولی من زبان بیسیک اصلا یادم نیست.
Re: درخواست حل يه سوال از كتاب وي بي قمي
به زبان وی بی 6
لطفا یکی به داد این حقیر برسه
لطفا یکی به داد این حقیر برسه
Re: درخواست حل يه سوال از كتاب وي بي قمي
mtu نوشته شده:دوستان اگه ميشه سورس اين برنامه رو يكي بهم بده قول ميدم سر نماز براس دعا كنم.(وي بي 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
کد: انتخاب همه
#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;
}
...
Re: درخواست حل يه سوال از كتاب وي بي قمي
انشا الله از جوانیت خیر ببینی مهندس
یه دنیا تشکر
یه دنیا تشکر
Re: درخواست حل يه سوال از كتاب وي بي قمي
کد: انتخاب همه
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 عدد به تعداد مساوي تكرار شده اند،همه اعداد تعداد دفعات تكرارش را به تعداد مساوي چاپ كند
حالا چه خاكي تو سرمون باسد بريزيم؟
Re: درخواست حل يه سوال از كتاب وي بي قمي
استاد فقط اون 4،3 خط سورسی که به برنامه باید اضافه بشه رو میخواد(وی بی 6)
کمک ک ک ک ک ک ک ک ک ک
کمک ک ک ک ک ک ک ک ک ک