Autor Zpráva
heltr214
Profil *
zdarec mám za ukol napsat v delphi tento program Na vstupu jsou dve cela kladna cisla A,B.Spoctete soucet vsech celych cisel vetsich nez A a mensich nez B.Cyklem WHILE me to nefunguje.budu rad za kazdou radu . diky


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var soucet,a,b,x,y:integer ;

begin
      writeln('      ******Cykly 05******');
      writeln;
      writeln;
      writeln;
      readln(a,b);
      soucet:=0;








      while a<b do begin


        soucet:=x+y;
        x:=a+1;
        y:=b-1;


        a:=a+1;
        b:=b-1;




      end;
      writeln('Soucet je ',soucet);



     writeln('Stisknutim ENTERU program ukoncite');
     readln;

end.
tomas657
Profil
To Udělejte v nadpise pôsobí na ľudí fakt zaujímavo... ty to prikazuješ? Aspoň keby si tam prosím pridal....

Moderátor Mistr: Ten název tématu jsem změnil já. Původně byl v podobě Delphi CYKLY07 uloha.
joe
Profil
Myslim, že takhle nějak, jen si to přepiš do delphi, takhle to je v PHP. Snad jsem to pochopil dobře.

$a = 1;
$b = 4;
$soucet = 0;

for ($i = $a + 1; $i < $b; $i++) {
$soucet = $soucet + $i;
}

echo $soucet;
Ivanhoe
Profil *
heltr214: Myslim zes vubec nepochopil zadani. Mas v tom kodu uplne bludy.heltr214
fuckin
Profil *
...
writeln(...);
readln(a);
writeln(....);
readln(b);
for i:=a+1 to b-1 do
soucet:=soucet+i;
writeln('vysledek je ',soucet);
readln;

Je to psane v TP, doufam ze se to od delphi nijak nelisi, melo by to fungovat ;)
fuckin
Profil *
pomoci while treba takto ale je to zbytecne zdlouhave

i:=a+1;
soucet:=0;
while i<b do begin
soucet:=soucet +i;
i:=i+1;
End;
joe
Profil
Taky si z těch zadaných čísel musíš taky připravit celá čísla, protože by to jinak bylo špatně.
Chamurappi
Profil
Reaguji na heltra214:
1) Toto je diskusní fórum o webdesignu, otázky na téma Delphi a zejména domácích úkolů sem nepatří.
2) Na součet členů aritmetické posloupnosti není vůbec zapotřebí cyklus.
imploder
Profil
2) Na součet členů aritmetické posloupnosti není vůbec zapotřebí cyklus.
jj

      (B-A-1)(A+B) 
S =  --------------
           2       
fuckin
Profil *
ma tam nadefinovany integer takze cela cisla to budou. Ty moje priklady s cyklem funguji, o tomto vzorci sem neslysel, aspon sem zase chytrejsi, zde je to v delphi...

soucet:=((b-a-1)*(a+b))/2
_es
Profil
fuckin
http://cs.wikipedia.org/wiki/Aritmetick%C3%A1_posloupnost
heltr214
Profil *
diky moc pomohli jste mi

Vaše odpověď


Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm: