Hogyan lehet ezt egyszerubben?
Figyelt kérdés
var s:char;
e:byte;
begin
readln(s);
if (s='n') or (s='z') or (s='w') then e:= ord(s)-1
else e:= ord(s)+1;
write(chr(e));
readln;
end.
2017. febr. 16. 20:52
1/2 anonim 
válasza:
válasza:Mit szeretnél ezen még egyszerűsíteni?
2/2 anonim 
válasza:
válasza:Meg lehet oldani switch-csel, de azzal sem lesz egyszerűbb:
Case s of
’n’, ’z’, ’v’ : e:= ord(s)-1;
else
e:= ord(s)+1
end;
De talán így:
readln(s);
if (pos(s,'nzw') <> 0) e:=ord(s)-1
else e:=ord(s)+1;
write(chr(e));
Lehet, hogy hibás a kód, évek óta nem nyúltam Pascalhoz.
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!