Programy v Pascale

ChesterZZ

Tak ja neviem čo s tým je, ale keď to spustím a zadám číslo, tak mi faktoriál nevypočíta proste.

program faktorial; 
var n:integer; 
     fakt:longint; 
begin 
readln(n); 

fakt:=n; 

repeat 
     n:=n-1; 
     fakt:=fakt*n; 
until(n=1);
readln; 
end.

Takto to máš aj ty?

áno, tak to mám. A som si istý že ti ho vypíčta. Druhá vec je, že si ho nikde nevypíšeš, ale výsledok bude v premennej fakt určite správny. Tak nepíš že to nefunguje

piton

ChesterZZ napísal:Tak ja neviem čo s tým je, ale keď to spustím a zadám číslo, tak mi faktoriál nevypočíta proste.
Kód: Vybrať všetko
program faktorial; 
var n:integer; 
     fakt:longint; 
begin 
readln(n); 

fakt:=n; 

repeat 
     n:=n-1; 
     fakt:=fakt*n; 
until(n=1);
readln; 
end.
Takto to máš aj ty?

Prva vec: Vies co je faktorial?
Druha: Ten program nevypocita faktoroial velkeho cisla, lebo sa do longintu "nezmesti"...

ChesterZZ

Takže aj keď mi nevypíše výsledok, je to správne ? A čo s tým potom, aby mi vypísalo aj výsledok ?

Piton sprostý nie som, ale program, ktorý mi nevypíše výsledok mi je nanič. A nemyslím si, že napr. 2! je až také veľké číslo

ChesterZZ napísal:Takže aj keď mi nevypíše výsledok, je to správne ? A čó s tým potom, aby mi vypísalo aj výsledok ?

žeby writeln(fakt) pred posledné readln?

ChesterZZ napísal:Piton sprostý nie som, ale program, ktorý mi nevypíše výsledok mi je nanič. A nemyslím si, že napr. 2! je až také veľké číslo

ehm, no radšej budem ticho

piton

ChesterZZ napísal:Takže aj keď mi nevypíše výsledok, je to správne ? A čó s tým potom, aby mi vypísalo aj výsledok ?

Piton sprostý nie som, ale program, ktorý mi nevypíše výsledok mi je nanič. A nemyslím si, že napr. 2! je až také veľké číslo

omg! to nevies pouzit ani writeln?
EDIT: audiotrack:

ChesterZZ

No už som na to prišiel aj sám. Ale díky, že zo mňa robíte debila.

No nič, pomôžete mi ešte s tými zvyšnými dvoma ?