Toplista
- betöltés...
Ha szívesen korrepetálnál, hozd létre magántanár profilodat itt.
Ha diák vagy és korrepetálásra van szükséged, akkor regisztrálj be és írd meg itt, hogy milyen tantárgyban!
Mivel kell kiegészíteni?
ksdjfskjdn
kérdése
425
i és ok változók egész számok, x változó karakter. a pontok helyére olyan utasítás kell, amivel az ok 1 lesz, ha az x változó a abc kisbetűit tartalmazza, ellenkező esetben pedig az ok 0
ok:=1;
for i:=1 to 10 do
begin
read(x);
......
end;
ok:=1;
for i:=1 to 10 do
begin
read(x);
......
end;
Jelenleg 1 felhasználó nézi ezt a kérdést.
0
Felsőoktatás / Informatika
Válaszok
1
eHazi
megoldása
Ha a konstans tömbös megoldás nem jó:
- Használhatod az Ord() függvényt ami meghatározza egy karakter ascii kódját.
Így x beolvasása után meghatározhatod hogy a és z között van-e az ascii kódja alapján:
a kis a betű kódja: 97, a kis z betű: 122
Így tudod megvizsgálni:
read(x);
If (Ord(x) > 96 and Ord(x) < 123) Then
ok := 1
Else
ok := 0;
Ha ez sem jó, akkor beírnám az összeset az If függvénybe (x = 'a' or x = 'b' stb..)
Ezeken kívül egyszerű megoldás szerintem nincs.
Esetleg még ez a compareText függvény:
http://www.freepascal.org/docs-html/rtl/sysutils/comparetext.html
Esetleg így a legegyszerűbb:
read(x);
If x in ['a'..'z'] Then
ok := 1
Else
ok := 0;
- Használhatod az Ord() függvényt ami meghatározza egy karakter ascii kódját.
Így x beolvasása után meghatározhatod hogy a és z között van-e az ascii kódja alapján:
a kis a betű kódja: 97, a kis z betű: 122
Így tudod megvizsgálni:
read(x);
If (Ord(x) > 96 and Ord(x) < 123) Then
ok := 1
Else
ok := 0;
Ha ez sem jó, akkor beírnám az összeset az If függvénybe (x = 'a' or x = 'b' stb..)
Ezeken kívül egyszerű megoldás szerintem nincs.
Esetleg még ez a compareText függvény:
http://www.freepascal.org/docs-html/rtl/sysutils/comparetext.html
Esetleg így a legegyszerűbb:
read(x);
If x in ['a'..'z'] Then
ok := 1
Else
ok := 0;
Módosítva: 7 éve
0
- Még nem érkezett komment!