Új hozzászólás Aktív témák
-
Diskcopy
tag
válasz
peterszky #747 üzenetére
összedobtam, kicsit bénán, elszoktam már pascal szintaktikától, de müxik:
var a,b : char;
i : integer;
begin
Write('Elso betü:'); Readln(a);
Write('Masodik betü'); Readln(b);
for i:=ord(a) to ord(b) do write(chr(i));
{fordítottan}
writeln;
for i:=ord(b) downto ord(a) do write(chr(i));
end.
persze hiba, stb kezelés semmi
[Szerkesztve] -
Diskcopy
tag
válasz
peterszky #743 üzenetére
Hi!
Jól értem, hogy csak két betűt kell ABC sorrendbe rendezni? Ha csak angol abc, számok ilyesmi kizárva, akkor megnézed melyiknek az ascii kódja a kisebb vagy nagyobb Ord(karakter) Előtte még Upcase-elheted is, hogy ne legyen kis nagy betű problem. Aztán ha az elsőnek a kisebb, akkor az az első betű és akkor a második a távolabbi az abc-ben. Ellenkező esetben meg fordítva. Tehát fordított sorrendbe iratod ki őket. Márha külön változóba kéred be. De add be a kódot kihozok belőle neked valamit.
Új hozzászólás Aktív témák
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3361
- iPhone 13 128GB Starlight- 1 ÉV GARANCIA, Kártyafüggetlen,MS3436
- iKing.Hu - Honor 400 Pro Black Stílusos csúcsteló, nagy tárhely 12/512 GB,3 hónap gari!
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- GYÖNYÖRŰ iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3063
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő