Vki ért a Pascalhoz? Egy kis segítség kéne (:
Hogyan kell megoldani a következő feladat utolsó sorát?
"Készítsen programot, amely egy beolvasott számról eldönti, pozitív, negatív vagy nulla-e! A kiíratásnál használjon különböző színeket! A program ne fogadja el kétszer egymás után ugyanazt a számot!" Az egész meg van, csak azt nem tudom, h egymás után ne fogadja el ugyanazt a számot. Ezt hova kell betenni? És mit?
válasza:Eddig megvan (remélem nem baj, hogy angol), és innen hogyan tovább?
uses crt;
var szam: integer;
begin
writeln (’írd be a számot’);
readln (szam);
if szam=0 then
begin
textcolor (green);
write (’az adott szám 0’);
end
else
if szam<0 then
begin
textcolor (red);
write (’negatív’);
end
else
if szam>0 then
begin
textcolor (blue);
write (’pozitiv’);
end.
válasza:gondolom úgy kellene megoldani, hogy, miután eldöntötte, hogy pozitív/negatív/nulla a szám, újra lehetőség van megadni egy számot, amiről szintén eldönti.
egy ciklusba kellene tenni a fő-részt, és bevezetni egy változót, amiben eltárolod a ciklus végén az előző megadott számot, illetve a ciklus elején ellenőrizni, hogy a mostani megadott szám egyenlő-e az előzővel.
válasza:program szamok;
uses crt;
var szam,elozoszam: integer;
begin
szam:=49284;
textcolor(white);
writeln('Kilépés kétszer ugyanazzal a számmal');
repeat;
elozoszam:=szam;
textcolor(white);
write(’írd be a számot: ’);
readln(szam);
if szam=0 then
begin
textcolor (green);
writeln(’az adott szám 0’);
end
else
if szam<0 then
begin
textcolor (blue);
writeln(’az adott szám negatív’);
end
else
if szam>0 then
begin
textcolor (red);
writeln(’az adott szám pozitív’);
end;
until szam=elozoszam;
end.
Remélem így működik.
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!