Valaki le tudná írni hogyan lehet? (feladat lent)
A felhasználótól érkező pozitív számok összegét írassuk ki, a számok bevitelének végét 0 jelezze.
PL:
Kérek egy számot: 12
Kérek egy számot: 100
Kérek egy számot: 22
Kérek egy számot: 0
A bevitt számok összege: 134
A legegyszerűbb módszer, ha a bekért számokat típuskonverzió után egy tömb elemeiként tárolod, kivéve ha az adott szám nulla. Ez után egy ciklussal végigmész a tömb elemein és az értékeit egy változóhoz adod (, ha az adott nyelvben nincs tomb.sum() vagy hasonló függvény).
Remélem segítettem :)
Ha valami nem tiszta, írj privit.
1)Először csak annyit csinálj hogy bekérsz egy számot és utána kilép a program, ennyi csak megy.
2)Utána módosítsd úgy hogy addig kérje be a számokat míg nem 0.
Utána egy változó értékét 0-ra állítasz majd utána a 2 pontban lévő kódot írod annyi módosítással hogy ehhez a változóhoz adod mindig a beolvasott számot.
Végül kiírod az összeget.
Nem olyan nehéz.
program szamos;
uses crt;
var adat , osszeg :integer;
begin
clrscr;
Write('Kérek egy számot(a számok bevitelének vége 0):');
osszeg:=0;
readln(adat);
while adat >0 do
begin
osszeg :=osszeg + adat;
readln(adat)
end;
writeln('A bevit számok összege: ',osszeg);
readln
end.
idáig jutottam az lenne a kérdésem hogy hogy csináljam az hogy minden szám beírásánál írja azt hogy kérek egy számot mert így csak az elsőnél írja ??
Mivel itt minden amit ismételsz feltétel szerint az a
while adat >0 do
begin
...
end;
között van ezért azt a kiíratást is közé kell rakni.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!