| 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 |
#3 · Zasláno: 30. 5. 2009, 19:21:37
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 * |
#4 · Zasláno: 30. 5. 2009, 19:36:21
heltr214: Myslim zes vubec nepochopil zadani. Mas v tom kodu uplne bludy.heltr214
|
||
| fuckin Profil * |
#5 · Zasláno: 30. 5. 2009, 20:46:36
...
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 * |
#6 · Zasláno: 30. 5. 2009, 20:51:14
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 |
#7 · Zasláno: 30. 5. 2009, 22:11:01
Taky si z těch zadaných čísel musíš taky připravit celá čísla, protože by to jinak bylo špatně.
|
||
| Chamurappi Profil |
#8 · Zasláno: 30. 5. 2009, 22:32:25
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 |
#9 · Zasláno: 31. 5. 2009, 01:42:05 · Upravil/a: imploder
„2) Na součet členů aritmetické posloupnosti není vůbec zapotřebí cyklus.“
jj (B-A-1)(A+B)
S = --------------
2
|
||
| fuckin Profil * |
#10 · Zasláno: 31. 5. 2009, 08:44:03
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 |
#11 · Zasláno: 31. 5. 2009, 09:29:40
|
||
| heltr214 Profil * |
#12 · Zasláno: 31. 5. 2009, 11:09:32
diky moc pomohli jste mi
|
||
|
Časová prodleva: 15 let
|
|||
0