Aktív témák
-
kiskekes
csendes tag
Bocs hogy amatőr kérdéssel jövök, de most kezdem tanulni a Delphit!
Szóval ebben a progiban miért nem hajlandó beolvasni a ch változót, ha az char típusú?? (1-et és 2-t szeretném +al illetve -al helyettesíteni)
uses
SysUtils;
var
a, b, e: real;
ch: integer;
begin
e:=0;
a:=0;
b:=0;
repeat
write('a:'); read(a);
write('b:'); read(b);
write('ch:'); read(ch);
case ch of
1 : e:=a+b;
2 : e:=a-b;
end;
write(e);
until e=100;
{ TODO -oUser -cConsole Main : Insert code here }
end.
[Szerkesztve] -
kiskekes
csendes tag
válasz Drótszamár #9 üzenetére
Egyszerűen csak az e értékét kellene kiírnia, és ha ch integer akkor simán működik a progi, viszont ha char (és ez lenne a cél) akkor a ch-t egyszerűen meg sem kérdezi. (amiket írtál, szövegdoboz... nem nagyon értem, de sztem most nekem nincs arra szükségem) Mellesleg itt a progi:
Bővebben: link , ezen a 31-37 oldal. Eléggé kezdeti stádiumban vagyok.
Megpróbálok ezentúl a másikba írni
[Szerkesztve]
Aktív témák
- Nyaralás topik
- Kerékpárosok, bringások ide!
- sziku69: Fűzzük össze a szavakat :)
- Fujifilm X
- Vezeték nélküli fülhallgatók
- EA Sports WRC '23
- Androidos fejegységek
- Amlogic S905, S912 processzoros készülékek
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
- LG 27UK650-W 4K LED monitor, IPS gamer monitor, 27", 3840x2160, pivot (álló), HDR, freesync, 16:9
- ASUS ROG MAXIMUS Z690 APEX - garanciás, fullos csomag
- ASUS RT-AX86U AX5700 WiFi 6 gigabit AiMesh OFDMA mobile gaming 2.5G Wan link aggregation
- Dymo letra 109 címkenyomtató, feliratozó + szalagok
- Eladó gyönyörű HPE ProLiant MicroServer Gen10, 1 év garancia, 0%-os számla