به دادم رسيد~!

[kamran11958]

دوستان هر كي هر كدوم از شوالات زير رو ميدونه بنويسه!!!خواهش ميكنم زود! تا ساعت 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 عضوی را دریافت کرده و زیر مجموعه های آن را به روش بازگشتی به دست آورده و نمایش دهد.

[kamran11958]

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

[afshin]

کامران جون خیلی عجله داری ؟؟؟ اوووووووووووه چقدر سوال اونم تا ساعت 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:

[afshin]

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

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

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

:wink: :wink:

[kamran11958]

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

[kamran11958]

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

[kamran11958]

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

[navidal]

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

کد:

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.

[kamran11958]

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

[navidal]

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

[ashkan]

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