Freepascal programozás, tudnátok segíteni?
Adott egy string típusú tömb, benne két elemmel: ['az alma piros, 'es finom'] .
A feladatom az lenne, hogy megállapítsam szerepel-e a tömbben az 'alma' szó. Ha igen, hányadik pozícióban.
Az alapötlet az lenne, hogy végig ellenőrzöm, hogy az alma szó betűi, szerepelnek-e a megfelelő sorrendben egymás mellett. Tehát: 'a' után van-e 'l' ha igen az 'l' mellett van-e m. Stb ha nincs ugyanezen elv. szerint a ciklust léptetve ellenőrzök az összes karakterre. Azonban ötletem sincs, hogy mind ezt, hogy oldjam meg egy elemen belül. Valaki tudna segíteni?
válasza:program szokereso;
var
i : byte;
szoveg : array[1..4] of string = (
'Fényesebb a láncnál a kard,',
'Jobban ékesíti a kart,',
'És mi mégis láncot hordtunk!',
'Ide veled, régi kardunk!'
);
begin
for i := 1 to 4 do WriteLn(szoveg[i]);
WriteLn(#10#13#39'lánc'#39' kifejezés:');
for i := 1 to 4 do
if Pos('lánc', szoveg[i]) > 0 then WriteLn(i, '. sor');
WriteLn(#10#13#39'kard'#39' kifejezés:');
for i := 1 to 4 do
if Pos('kard', szoveg[i]) > 0 then WriteLn(i, '. sor');
end.
válasza:Ja, hogy a pozíciót is ki kell írni... Pardon.
program szokereso;
var
i, p : byte;
szoveg : array[1..4] of string = (
'Fényesebb a láncnál a kard,',
'Jobban ékesíti a kart,',
'És mi mégis láncot hordtunk!',
'Ide veled, régi kardunk!'
);
begin
for i := 1 to 4 do WriteLn(szoveg[i]);
WriteLn(#10#13#39'lánc'#39' kifejezés:');
for i := 1 to 4 do
begin
p := Pos('lánc', szoveg[i]);
if p > 0 then WriteLn(i, '. sor, ', p, '. pozíció');
end;
WriteLn(#10#13#39'kard'#39' kifejezés:');
for i := 1 to 4 do
begin
p := Pos('kard', szoveg[i]);
if p > 0 then WriteLn(i, '. sor,', p, '. pozíció');
end;
end.
(A program nem foglalkozik az ékezetes betűkből adódó problémákkal.)
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!