Pascal uzdevums

[Mastero]

Labdien! Vai kāds varētu palīdzēt izlabot kļūdu?

Uzdevums ir tāds: 

1) programma aprēķina skaitļa n faktoriālu (visu naturālo skaitļu no 1 līdz n reizinājumu). Skaitļa n faktoriālu apzīmē ar n!, piemēram, 3! = 1 · 2 · 3 = 6. Skaitli n (mazāku par 11) ievada ar tastatūru;

2) mainīgos norādīt apraksta daļā, mainīgajiem piešķirot identifikatorus un izvēloties atbilstošu tipu (faktoriāla mainīgajam tipu longint).

 

 

program faktorials;

var

  n: integer;

  f: longint;

 

begin

  write('Ievadiet veselu pozitivu skaitli: ');

  readln(n);

  n:=0;

  f:=1;

  while n<11 do

  

  n:=n-1;

  f:=f*n;

  writeln('Skaitla ',n, ' faktorials ir ',f);

  readln;

 

end.

 

 

Paldies jau iepriekš!

[androidss]

kāpēc tu userim liec ievadīt n un pēc tam n piešķir 0?

 

pamēgini uz papīra ar zīmuli iziet cauri savai programmai

Labots Decembris 26, 2014 - androidss

[WildGun]

Šitā konstrukcija

 

while n<11 do

arī nedarbosies.

[Borja]

n:=0; while n<11 do n:=n-1;

Ljoti labi darbosies.

Klasiskais bezgaliigais cikls.

[WildGun]

Borja, ja biji domājis, ka procītim slodze nodrošināta un elektrības skaitītājam darbs nodrošināts, tad šaubu nav. Elegants risinājums.

 

Tikai man ir aizdomas, ka autoram bij padomā cits rezultāts. Kaut gan - ej nu sazini. Kurš tos mūsdienu indigo spēj saprast.....

Labots Decembris 26, 2014 - WildGun

[VIL]

Es skatītos rekursijas virzienā:

 

fja(n) =
  if n=1 then 1 else n*fja(n-1);

Read(n);
write(fja(n)); 

[AndrisBB]

manliekas ka pozitivs vins nekljus nekad

starpcitu visdrizak for vai do loops bus atraks par rekursiju, ja vien kompilieris tikunta neoptimizes to neparrakstis ka parastu while

Labots Decembris 26, 2014 - AndrisBB

[AlCohol]

par google tupu izmantošanu jau vien pirkstus jānocērt, kur nu vel palīdzēt, lai izpildītu tik elementāru lietu. priekš kam vispār mācies to, kas pašam šķiet garlaicīgi?

[Леший]

tūlīt Londonas Māris iemetīs risinājumu

 

Es viņa vietā: https://eval.in/237348

{-# LANGUAGE PostfixOperators #-}

(!) = product . enumFromTo 1

main = do
  print (5!)
  print (1234!)
  print ((-5)!)

Pēc šita, kurš grib lietot paskalu?

Labots Decembris 27, 2014 - Леший

[beryl]

Pascal noteikti autoram lika augstskolas pasniedzējs. Firmas Pascal neprasa, cita varianta, kāpēc Pascal, neredzu.

[MarisO]

Pascal gan riebjas, nezinu tā 'int' ieražas, bet vai tad pēc mirkļa tas n nekļūs pat ļoti pozitīvs?

 

 

jā, TurboPascal ir int "wrap around",  pēc  -32768  - 1 =   32767   

Labots Decembris 27, 2014 - MarisO