Hirdetés
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Bemutatkozott az Oppo kamerás csúcsmodellje
- OnePlus Watch 4 néven újráz az Oppo Watch X3
- Szívós, szép és kitartó az új OnePlus óra
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Új CPU-magokka, de régebbi PowerVR GPU-val jöhet a Tensor G6
- Yettel topik
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- OnePlus 15 - van plusz energia
Aktív témák
-
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] -
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]
Aktív témák
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Bestbuy játékok
- Fujifilm X
- GoodSpeed: MacBook egy kis gikszerrel.
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Bemutatkozott az Oppo kamerás csúcsmodellje
- EA Sports WRC '23
- OnePlus Watch 4 néven újráz az Oppo Watch X3
- Szívós, szép és kitartó az új OnePlus óra
- Formula-1
- További aktív témák...
- Steam Deck 2023 64 GB - MAKULÁTLAN + EXTRÁK
- Samsung Galaxy S24 - 8G/256GB Onyx Black MAKULÁTLAN
- Apple iPhone 15 Pro 128GB, Akku: 92%, Megkímélt, Kártyafüggetlen, Töltővel, 1 Év Garanciával!
- Keresem a V-TAC SKU 7921 csillár mennyezeti ventilátort, tartalmazza a 4db E27 lámpa foglalatot.
- SAPPHIRE RX 7900 XTX 24GB GDDR6 NITRO+ Vapor-X Eladó!
- Törött, Hibás iPhone felvásárlás!!
- ÁRGARANCIA! Épített KomPhone R7 5700X 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- MacBook Neo 512GB Indigó (3év Garancia) - Bontatlan
- MiniITX GAMING PC! Ryzen 7700 / RTX 5070 / B850I / 32GB DDR5 / 2TB NVMe / 750w Gold! BeszámítOK
- Telefon felvásárlás!! Samsung Galaxy S23/Samsung Galaxy S23+/Samsung Galaxy S23 Ultra
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
, de sztem most nekem nincs arra szükségem) Mellesleg itt a progi:

