ايران ويج

صفحه‌ها: 1 2

دوستان هر كي هر كدوم از شوالات زير رو ميدونه بنويسه!!!خواهش ميكنم زود! تا ساعت 3 بعد از ظعر وقت دارم!!!من خودم نميتونم روشون فك كنم(ببخشيد ها!) يه كار فوري برام پيش اومده و حالا به كمك شما نياز دارم!
با ويژوال بيسيك - پاسكال يا سي (يكي از اينا!)
رو كمكتون حساب ميكنم!
همينجا جوابشو بنويسيد( :oops: )
سوال اول : برنامه ای بنویسید که تعداد روزهای یک ماه و نام روز اول آن ماه را دریافت کند ، سپس تقویم مربوط به آن ماه را به شکل مناسب نمایش دهد .

سوال دوم : برنامه ای بنویسید که یک رشته ِی String را دریافت کند و در صورتی که عددی در مبنای 16 بود مقدار آن را در مبنای 10 نمایش دهد .

سوال سوم : برنامه ای بنویسید که بدون استفاده از عمل ضرب و فقط با استفاده از عمل جمع ، n سطر از مثلث خیام را به ازای ورودی n تولید و چاپ نماید . سعی کنید فرم خروجی مناسب باشد . در مثلث خیام راس عدد1 ، در ردیف دوم ، دو تا عدد یک ، در ردیف سوم اعداد یک ، دو ، یک می باشد و در ردیف چهارم اعداد یک ، سه ، سه و یک می باشد .

سوال چهارم : مربع وفقی 3*3 مربعی است که اعداد 3،2،1،...،9 در آن به گونه ای چیده شده اند که مجموع اعداد واقع بر هر قطر ، سطر و ستون آن با یکدیگر برابر است . برنامه ای بنویسید که تمامی مربع های وفقی 3*3 را چاپ کند .

سوال پنجم : برنامه ای بنویسید که ضرایب دو تا چند جمله ای یکی با درجه n و دیگری با درجه m را دریافت نماید و حاصلضرب دو چند جمله ای را چاپ نماید .

سوال ششم : برنامه ای بنویسید که عدد طبیعی n را از ورودی دریافت نماید و یک n ضلعی منتظم رسم نماید .

سوال هفتم : برنامه ای بنویسد که بتواند عددی را که کاربر در نظر گرفته است ، بیابد . به این صورت که ابتدا کاربر عدد طبیعی n را وارد می کند و سپس یک عدد طبیعی کوچکتر از 2 به توان n در نظر می گیرد. کامپیوتر n سوال به این ترتیب می پرسد : در هر سوال 2 به توان (n-1) عدد نمایش داده می شود و اگر کاربر عدد خود را در بین آنها مشاهده کرد ، y و در غیر این صورت n را وارد می کند. کامپیوتر باید بعد از n سوال ، عدد مورد نظر را چاپ کند .

سوال هشتم : برنامه ای بنویسید که مجموعه ای n عضوی را دریافت کرده و زیر مجموعه های آن را به روش بازگشتی به دست آورده و نمایش دهد.

نبودآقا 2000 نفر برنامه نويسي داريم اينجا؟! ساعت 1 ه :cry: ست 1.5 ساعت مونده؟!

کامران جون خیلی عجله داری ؟؟؟ اوووووووووووه چقدر سوال اونم تا ساعت 3 ؟؟؟؟
باشه ... من چند تاش رو جواب میدم .. البته اونایی که فکر میکنم شاید مشکلتره !!! ( عجله نکن... هول شدم !!! :oops: )
اولی که آسونه !!! دومی : من تابع تبدیل عددی در مبنای 16 در مبنای 10 رو به پاسکال ( دلفی ) برات مینویسم... :arrow:
آتستش نکردم چون فقط Procedure رو نوشتم ... اگه مشکلی داشت بگو ... البته فکر نکنم مشکلی باشه

کد: 
Procedure hextodesimal ;

 Begin 

 Dec :=0;

J:=1;

For i:=length(hex ) downto 1 do 

Begin 

Case 

'0'..'9' : val( hex[i] ,k,h )

'A' :K:=10; 

'B' : K:=11;

'C' : : K:=12; 

'D' : : K:=13;

'E' : : K:=14;

'F' : : K:=15;

End ;

Dec:=dec+k*j;

J:=j*16;

End ;

End .

اما سوال مثلث خیام : عزیزم واسه برنامه مثلث خیام اصلا" به ضرب احتیاج نیست !!!! :arrow:
به طور کلی ... هر خونه میشه جمع خونه بالایی خودش با قبل از اون بالایی ...... ( خوب گفتم ؟؟ )

هم با ویژوال نوشتم هم اگه دلفیش رو بخوای برات مینویسم ولی تو vb یک کم راحتتره ...

کد: 
Private Sub Command1_Click()

MSFlexGrid1.Rows = Val(Text1) + 1

MSFlexGrid1.Cols = Val(Text1) + 1

If tect1 <> " " Then

MSFlexGrid1.Row = 1

MSFlexGrid1.Col = 1

MSFlexGrid1.Text = 1

End If

For j = 2 To Val(Text1(

 For i = 1 To j

 MSFlexGrid1.Row = j - 1

 MSFlexGrid1.Col = i - 1

 ghabli = Val(MSFlexGrid1.Text)

 MSFlexGrid1.Col = i

 balayi = Val(MSFlexGrid1.Text)

 MSFlexGrid1.Row = j

 MSFlexGrid1.Col = i

 MSFlexGrid1.Text = Str(balayi + ghabli(

 Next i

Next j

End Sub

این رو تستش هم کردم برنامه کامل و بدون ارور ... اگه باگ گرفتی ازش جایزه میدم !!!
اگه توزیح این برنامه رو هم خواستی بگو توضیح بدم ...
مربع وفقی نمیدونم چیه ؟؟؟

سوال 5 هم که آسونه دیگه ...

بقیه رو هم اگه قبل از 3 نوشتم برات مینویسم ... ( و اگه وقت کردم ... آخه خودم امتحان دارم )

فعلا" اینا رو داشته باش ...

راستی ... کامران اینا رو واسه کی (چی ) میخوای ؟؟؟ چرا اینقدر با عجله ؟؟ 8O

میگم کامران ... خیلی دوست داشتم که با اینکه امتحان دارم واست برنامه رو نوشتم :P ... در ازاش برام دعا کن این
امتحانه رو به خوبی و خوشی پاس کنم بره پی کارش ... :cry:

امیدوارم این کد ها بدردت بخوره !!!! :!:
:wink:

kamran11958 نوشته است:نبودآقا 2000 نفر برنامه نويسي داريم اينجا؟! ساعت 1 ه :cry: ست 1.5 ساعت مونده؟!

بابا برترين برنامه نويس بين اين 2000 تا خودت شودي :oops: :oops: :oops:

به هر حال اگه كمك كم مفيد واقع شد ... بدون كه وضيفم بود :arrow:

:wink: :wink:

ممنون افشين جون خواهشن آسون ها رو هم برام بنويس :oops: :oops: چون خودم نميتونم جواب بدم! :wink: (ممنون ميشم) براي امتحانتم دعا ميكنم اميدوارم موفق باشي! در ضمن ميدونستم اولين نفر خودت جواب ميدي!!! :wink: :wink: :wink:
خواهشن آسوناشم بنويس ممنون.

در ضمن افشين جون سعي كن كه از كنترل استفاده نشه!! (مثل تكست و ...) اينا رو براي يه مسابقه ميخوام كه تا 40 دقيقه ديگه وقت دارم!!! جبران ميكنم!! :wink: :wink: :oops:
(در ضمن تعداد خطوط برنامه از 20 كمتر بايد باشه!!!(رو رو برم!!) :oops:

مربع وفقي رو توضيح داده خودش
مربعی است که اعداد 3،2،1،...،9 در آن به گونه ای چیده شده اند که مجموع اعداد واقع بر هر قطر ، سطر و ستون آن با یکدیگر برابر است . برنامه ای بنویسید که تمامی مربع های وفقی 3*3 را چاپ کند
يعني يه مربع 3*3 كه خصوصيات بالا رو داره...

آقا كامران فكر كنم منظورت از مربع وفقي همون مربع جادويي باشه اين برنامه همين مربع هست كه با پاسكال نوشتم و براي هر تعداد سطر و سطون فرد عمل ميكنه

کد: 
uses crt;

var

  x:array[1..100,1..100]of integer;

  n,k,i,j:integer;

begin

clrscr;

write('enter a fard number:');readln(n);

for i:=1 to n do

for j:=1 to n do x[i,j]:=0;

i:=1;

j:=n div 2+1;

x[i,j]:=1;

for k:=2 to n*n do

  if (i-1<1)and(j-1>=1)then

    begin

    dec(j);

    i:=n;

    x[i,j]:=k;

  end

  else if (i-1>=1)and(j-1<1)then

  begin

     dec(i);

     j:=n;

     x[i,j]:=k;

  end

  else if (i-1<1)and(j-1<1)then

  begin

     inc(i);

     x[i,j]:=k;

  end

  else if (i-1>=1)and(j-1>=1)then

  begin

      if (x[i-1,j-1]>0)then

      begin

        inc(i);

        x[i,j]:=k;

      end

      else

      begin

         dec(i);

         dec(j);

         x[i,j]:=k;

      end;

  end;

  for i:=1 to n do

  begin

  writeln;

  for j:=1 to n do

    write(x[i,j],'  ');

  end;

 readln;

end.

ممنون! بله فك كنم خودشه مثلا مجموع هر سر يا ستون يا قطر با هم برابر باشه.

خواهش مي كنم!!

آقا اين جريان سريع جواب دادن و ساعت 3 چي بود ، مسابقه بود؟؟؟

صفحه‌ها: 1 2

kamran11958

kamran11958

afshin

afshin

kamran11958

kamran11958

kamran11958

navidal

kamran11958

navidal

ashkan