Kombinasyon Programı

Admin Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08

Uses wincrt;
var
sayi1,sayi2,i,alt1,alt2,ust:integer;sonuc:real;
begin
clrscr;write('1. sayiyi girin --->');readln(sayi1);
write('2. sayiyi girin --->');readln(sayi2);
ust:=1;alt1:=1;alt2:=1;
for i:=1 to sayi1 do
begin
ust:=ust*i;end;
for i:=1 to sayi2 do
begin
alt1:=alt1*i;end;
for i:=1 to (sayi1-sayi2) do
begin
alt2:=alt2*i;end;
sonuc:=(ust)/((alt1)*(alt2));
writeln('sonuc --->',sonuc:3:3);readln;end.