2. Buyuknet
  3. Webmaster
  4. Programlama Dilleri
  5. Pascal
  6. n!/(n-r)!r! işlemini yapan program.

n!/(n-r)!r! işlemini yapan program.

« n∑i=1/n!-(n-r)! ilemini yapan program.Klavyeden girilen sayıların çift veya tek olduğunu bulan program. »


Sayfa: 1
tarantula90117.11.2008 - 17:53
)uses crt;
var
fak,i,n,r,fakt,fakr,faktnr:integer;
sonuc:real;
begin
writeln('r sayısını giriniz');readln(r);
writeln('n sayısını giriniz');readln(n);
fak:=1; fakr:=1; faktnr:=1;
 
for i:=2 to n  do begin
fak:=fak*i;
if(i<=r)then
fakr:=fakr*i;
if(i<=(n-r))then
faktnr:=faktnr*i;


end;
sonuc:=fak/(faktnr*fakr);
writeln('sonuc',sonuc);
readln;
end.


Linkback: https://www.buyuknet.com/nnrr-islemini-yapan-program-t8603.0.html

ŞUNLARADA BAKABİLİRSİNİZ
Sayfa: 1


« n∑i=1/n!-(n-r)! ilemini yapan program.Klavyeden girilen sayıların çift veya tek olduğunu bulan program. »
Etiket:
  2. Buyuknet
  3. Webmaster
  4. Programlama Dilleri
  5. Pascal
  6. n!/(n-r)!r! işlemini yapan program.

Bu bilgi size yardimci oldu mu?

EvetHayır
n!/(n-r)!r! işlemini yapan program.
n!/(n-r)!r! işlemini yapan program.
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2