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 a REPEAT me to podarilo se mi to akorat pomoci cyklu WHILE.jeste to potrebuji pomoci cyklu REPEAT...vim ze na to cykly vubec nejsou potreba ale mám to za domaci ukol a musim to to bohuzel napsat pomoci cyklu WHILE a REPEAT...takze potrebuji uz jen dodelat cyklus REPEAT.....diky za odpovedi
cyklus WHILE
readln(a,b);
i:=a+1;
soucet:=0;
while i<b do begin
soucet:=soucet+i;
i:=i+1;
end;
Fórum › Delphi
Delphi cykly07
uz to mam ale mám jeste jeden program ktery mam za DU CYKLY09 NA vstupu je cele kladne cislo N, spoctete aritmeticky prumer vsech jeho delitelu.vim ze taky na tohle neni potreba cyklus ale mám to za du tak tenhle ukol mi staci pomoci cyklu WHILE...fak diky za odpovedi
i := 1;
soucetdelitelu := 0;
delitelu := 0;
while i <= N do
begin
if N mod i = 0 then
begin
soucetdelitelu := soucetdelitelu + i;
delitelu := delitelu + 1;
end;
i := i + 1;
end;
vysledek := soucetdelitelu div delitelu;
Nevím, jestli to bude fungovat, nezkoušel jsem to :D
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 3 hosté
Podobná vlákna
C++ vs.Delphi — založil Dávid Ivan
Hra had v delphi — založil Nineros
Driver v Delphi — založil delphak