WordPress, Shopify ir PHPFusion programuotojų bendruomenė

Parašė Rose· 2012 Bal. 11 20:04:28

Sveiki, prireikė jūsų pagalbos, programeriai. :) Taigi dabar einam while ciklą, išvis nieko nesigaudau apie jį kolkas, ir davė nd.

Galit kas išspręst? Štai sąlyga. Parašyti programą kuri rastu visų skaičių nuo 1 iki n sandaugą.

Aišku, ačiū iš kart, bei +11 gausit. :)

Redagavo Rose· 2012 Bal. 11 20:04:54

Parašė Kižas· 2012 Bal. 11 21:04:50

Prašom ;)

program sandauga;
  var n, san, i : integer;
begin
  readln(n);
  san := 1;
  i := 1;
  while i <= n do
    begin
      san := san * i;
      i := i + 1
    end;
  writeln ('sandauga = ', san);
 readln;
end.

Parašė KiraLT· 2012 Bal. 11 21:04:22

Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.

Parašė Kižas· 2012 Bal. 11 21:04:37

Hs parašė:
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.

Ką tu čia puliuoji ? Taigi parašiau jau gerą programą, o iš tavo parašytos programos tai tik kažkoks c++ ir pascal kratinys.

Parašė Rose· 2012 Bal. 12 14:04:21

Labai dėkui, Kižas, bet programa neveike, išmeta errorus, nusiunčiau žinutę į PM tau, tikiuosi pataisysi. ;)

Redagavo Rose· 2012 Bal. 12 15:04:45

Parašė Žmogus· 2012 Bal. 12 19:04:56

Kižas parašė:

Hs parašė:
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.

Ką tu čia puliuoji ? Taigi parašiau jau gerą programą, o iš tavo parašytos programos tai tik kažkoks c++ ir pascal kratinys.

Nope, sk++; veikia ir ant pascal

Parašė Kižas· 2012 Bal. 12 20:04:08

ShadoVw parašė:

Kižas parašė:

Hs parašė:
Readln(n);
Sk:=1;
While n <> sk do
Begin
A:=a*sk;
Sk++;
End;

Klaidas išsitaisysi, su fps nk nemoku, programuoju su c++. Be to rašiau per tlf.

Ką tu čia puliuoji ? Taigi parašiau jau gerą programą, o iš tavo parašytos programos tai tik kažkoks c++ ir pascal kratinys.

Nope, sk++; veikia ir ant pascal

Troli, žmogus pirmą kartą matęs pascal vpš jame nesigaudo, tai gal sakau nereikia jam sk++; , nes jis jų net nesupras ir jam tai bus per sudėtinga, o jei mokytojas dar lieps ir paaiškinti kaip ką parašę kas tada ?

Parašė KiraLT· 2012 Bal. 12 21:04:59

#10

Aš kol surinkau tekstą Kižas jau spejo normalu padaryti, tai srr. O del error parašyk ką meta.

Edit:

i := i + 1

Kabliataškio truksta gale!

Redagavo KiraLT· 2012 Bal. 12 21:04:27

Parašė Rose· 2012 Bal. 13 14:04:58

#11

Sudėjas esu aš visur kabliataškius, iš pradžių metė " peržengti rėžiai " pakeičiau integer į longint tada pradėjo mest, klaida 205.

Parašė Kižas· 2012 Bal. 13 18:04:05

#12

Hs,

Taigi po

end;

yra padėtas kabliataškis, netingėkit peržiūrėti visa kodo dalį iki galo :)

Na jei tau per mažą rėžių tai pakeisk į šias eilutes

var n, san, i : extended;

writeln ('sandauga = ', san:6:2);

Redagavo Kižas· 2012 Bal. 13 18:04:57