Matematické Fórum

ahoj ↑ Pritt:,

zkus použít vzorec pro součet k členů aritmetické posloupnosti - a_1=1;d=1.

↑ Pritt:

No a čemu je rovno x v podmínce

while x<cislo do ?

↑ Pritt:
1.Před cyklem while pro jistotu přiřaď x := 0;
  a hlavně přiřaď  i := 1;
2.Vyhoď cyklus  for i :=1 to cislo do ...
3.Aby se ti nevypsali i celé dílčí posloupnosti - mám na mysli 1,..1,2,..1,2,3,..1,2,3,4,.., tak je potřeba z cyklu
   for y:=1 to i do
   begin
     write(y,',');
     x:=x+1;
   end;
  vyskočit když už počet vypsaných čísel bude roven hodnotě cislo.
  To zařídíš podmínkou
    if x<cislo then
      write(y,',')
    else
      Break;
4.Před koncovým end cyklu while zvyš čítač i. Tedy dopiš i := i+1;

Poznámka:
Úloha se dá naprogramovat i tak, že si nejdříve spočítaš kolik celých dílčích posloupností (oznacme jejich pocet třeba x) (viz.výše) musíš vypsat aby počet členů byl menší nebo roven zadané hodnotě cislo. (např. pro cislo=10 bude x=4, pro cislo=30 bude x=7)
výpočet hodnoty x vychází se součtu aritmetické řady 1,2,3,4,...
a je x := Trunc((sqrt(1+8*cislo)-1)/2);
Ve dvou vnořených cyklech pak vypisuješ tyto dílčí posloupnosti
(zkus sám)
Nyní už zbývá pouze dopsat z další dílčí posloupnosti tolik prvních čísel aby celkový počet byl roven hodnotě cislo.
ten se spočítá jednoduše takto:
x := cislo-x*(1+x) div 2;
A pak uz jen v cyklu for i := 1 to x do dopíšeš ty zbývající.
Výhoda tohoto postupu je v tom, že tělo programu se dá napsat na pouhých 7-mi řádcích.

Napsal jsem to variantou jak napsal Honzc:
for i:=1 to cislo do
begin
for y:=1 to i do
begin
x:=x+1;
if x <=cislo then write(y,',');
end;
end;


Každopádně dekuju za další nápady a vyzkouším.