سوال از پاسکال

osh

New Member
سلام به همه علم دوستان
برای نوشتن برنامه های زیر مشکل دارم اگر میتوانید راهنمایی کنید :
برنامه ای که مثلث خیام پاسکال را تا 9 سطر چاپ کند .
 

aira

Member
اين برنامه اي كه شما ميخواين آسونترين و رايج ترين مسئله دانشگاه هست.
فقط صورت مسئله ي سختي داره.
شما بهتره به جاي گشت زدن تو اينترنت و اينكه از يه جا سورسشو پيدا كني؛فقط 5 دقيقه روش فكر كني.
اينجوري هم خودت ياد ميگيري هم مغزت براي مسئله هايي كه 1000000برابر سخت تر و پيچيده تر از اينه آماده ميشي.
من سورسشو برات ميزارم؛اما آلان نه.
يه خورده فكر كن جوون:)
 

aira

Member
مثل اينكه خيلي فكر كردييي:lol:
اينم جواب براي بار هزارم :-?
کد:
Program Pascal_Triangle;

var
  NMax,
  N,
  K,
  E : longint;

begin
  Write ('How many lines: ');
  ReadLn (NMax);

  for N := 0 to NMax-1 do begin
    E := 1;  (* for K=0;  this is "0 under N" *)
    Write (E);
    for K := 1 to N do begin
      (* (K u N) = (K-1 u N) * (N - (K-1)) / K  : *)
      E := E * (N - K + 1) div K;
      Write (' ', E);
    end;
    WriteLn;
  end;
end.
 

جدیدترین ارسال ها

بالا