paskalio uzduotis

Parašykite programą, kuri suskaičiuotų duotosios sekos: 1,3,5,...,n (n-nelyginis) sumą. ^_^

aciu uz pagalba :D

Ko būtent nesupranti? Pradedam nuo 1 ir didinam po 2 kol pasiekiam skaičių n. Didindami sumuojam. Sakykim taip:

i:=1;
while i<=n do
begin
  sum:=sum+i;
  i:=i+2;
end;

galima viska nu pradzios iki galo nes man kosmosas su paskaliu

program kazkas;
var i, n: integer;
  suma: longint;
begin
 suma := 0;
 i:= 1;
 WriteLn('Iveskite N');
 ReadLn(n);
 while i <= n do begin 
inc(suma, i);
inc(i, 2);
 end;
 WriteLn('Suma: ', suma);
end.

galima viska nu pradzios iki galo nes man kosmosas su paskaliu

Jei kosmosas tai patarčiau mokytis, o ne prašyt jau atliktų užduočių. Tikrai, juk vos pradėjus kurti programą jau duoda tau default rėmus. Belieka įklijuot mano jau pateiktą kodą, prirašyt keletą Readln(); Writeln(); ir aprašyt kinamuosius. O kas, jeigu dabar mokytoja paprašys paaiškint kurią nors eilutę? Anyway, nemoralizuoju, tiesiog patarimas toks. ^_^

EDIT: ^^beje Plx, užmiršai pradžioj prirašyt i:=1; :D

program s;
var n, suma: Integer;
begin
 WriteLn('Įveskite n:');
 ReadLn(n);
 suma := 1 + 2*(n-1);
 WriteLn('Suma: ', suma);
end.

program s;
var n, suma: Integer;
begin
 WriteLn('Įveskite n:');
 ReadLn(n);
 suma := 1 + 2*(n-1);
 WriteLn('Suma: ', suma);
end.

Na jei jau norėjai matematiškai išsireikšt tai taip:

suma:=(n+1)(n-1)/4

O tu parašei tik n-tojo nario formulę. ^_^

Anyway, šita užduotis manyčiau labiau skirta perprast ciklų veiklą, negu kuo greičiau suskaičiuot, tad jam labiau vertingas pirmasis variantas. :D

program s;
var s, n, suma: Integer;
begin
 WriteLn('Įveskite paskutinį sekos skaičių:');
 ReadLn(s);
 n := (s - 1)/2 + 1;
 suma := (n - 1)*n + n;
 WriteLn('Suma: ', suma);
end.

Taip turėtų būti ^_^

program s;
var s, n, suma: Integer;
begin
 WriteLn('Įveskite paskutinį sekos skaičių:');
 ReadLn(s);
 n := (s - 1)/2 + 1;
 suma := (n - 1)*n + n;
 WriteLn('Suma: ', suma);
end.

 

Taip turėtų būti ^_^

Neįsivaizduoju iš kur sumąstei tokias formules, bet vistiek vienos eilutės kodas vertingesnis nei dviejų. :D

Vajetau, dar sukryžiuokit savo e-penius ir pažiūrėkit kieno ilgesnis... ^_^

Vajetau, dar sukryžiuokit savo e-penius ir pažiūrėkit kieno ilgesnis... ^_^

O kas tau įkando? Tai jau nebegalima aptarinėt įvairių uždavinio sprendimo būdų ir optimaliausių variantų? :D

O kas tau įkando? Tai jau nebegalima aptarinėt įvairių uždavinio sprendimo būdų ir optimaliausių variantų? ^_^

Ai nekreipk dėmesio, piktas vakar buvau... :D