Nem tudok megírni egy programot, valaki segítene?
Készítsünk programot, amely bekér egy egész számot (1-től 100-ig), majd kiírja az adott számot szavakkal.
A szó kiírásához előbb nézzük meg hogy a szám tízzel osztható-e, ha igen, akkor írjuk ki case segítségével: tíz, húsz, harminc, stb.
Ha a szám nem osztható tízzel, nézzük meg mi áll a tízesek helyén a számban (div fügvénnyel) és ez szerint előbb írjuk ki egy case segítségével hogy: tizen, huszon, harminc, stb. (ha nulla van a tízesek helyén akkor semmit ne írjunk ki), majd nézzük meg hogy mi áll az egyesek helyén (mod fügvénnyel) és ez alapján írjuk ki mellé egy másik case segítségével hogy: egy, kettő, három, stb. Például:
Kerek egy egesz szamot: 27
huszonhet
A linket ahonnan a *.pas filem-et letölthetitek azt megadom kommentben.
válasza:A programod (kétjegyű számokkal) működik, ha rendberakod az if-case lezárásokat, mondjuk így:
if c mod 10=0 then
begin
case t of
1:write('tiz');
2:write('husz');
3:write('harminc');
4:write('negyven');
5:write('otven');
6:write('hatvan');
7:write('hetven');
8:write('nyolcvan');
9:write('kilencven');
end;
end
else
begin
case t of
1:write('tizen');
2:write('huszon');
3:write('harminc');
4:write('negyven');
5:write('otven');
6:write('hatvan');
7:write('hetven');
8:write('nyolcvan');
9:write('kilencven');
end;
case e of
1:write('egy');
2:write('ketto');
3:write('harom');
4:write('negy');
5:write('ot');
6:write('hat');
7:write('het');
8:write('nyolc');
9:write('kilenc');
end;
end;
válasza: válasza: válasza: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!