Stránka 1 z 1
Permutace x cisel v delphi
Napsal: stř 19. pro 2007, 23:23
od Krys
zdar mam problem potreboval bych upravit
tento zdrojak tak abych mohl pomoci writeln upravovat rozsah permutace.
jedna se o program:na vypsani vsech permutaci
x cisel
dik za pomoc
Napsal: čtv 20. pro 2007, 07:34
od Trinom
Napiš se m pořádně, co chceš, aby to dělalo. Pokud chceš jen P(n), tak je to n!.
Napsal: čtv 20. pro 2007, 10:23
od Krys
Ted tam je nadefinovana constanta const n=2 a ja jen potrebuju abych ji mohl vkladat pomoci napr writeln('Zadej cislo pro pocet permutaci'); readln(n);
Napsal: čtv 20. pro 2007, 20:33
od Trinom
Jelikož ten tvůj odkaz nějak nefunguje, tak jsem ti to napsal. Nepředpokládám, že do toho budeš cpát záporný čísla.
Kód: Vybrat vše
program Permutace;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,p:integer;
function faktorial (n:integer):integer;
begin
if n=0 then faktorial:=1 {triviální případ}
else faktorial:=n * faktorial(n - 1)
end;
begin
write('Zadej pocet permutaci: ');
readln(n);
writeln(faktorial(n));
readln;
end.
Napsal: čtv 20. pro 2007, 23:47
od Krys
parada dik za pomoc
Napsal: pát 21. pro 2007, 08:25
od Trinom
nz
