Jeżeli kto¶ ujmie co¶ ze słów tej księgi proroctwa...
O Hoodzie słów kilka
schronisko dla słów
17.02.2007 - Return of the Funky Monkey vol. 6 - Bagdad CAFE
Krówniki - Oddział Zerowy - Krówniki 168a
III kolejka
! DJ Cadman - Mixy R'N'B HIP-HOP :]
Chrupie pierścień od AO
[Sprzedam] KsiÄ…ĹĽki informatyczne. Dobry stan. 50% zniĹĽki
typy LESTERA
Tanit diary
SZukanie słówWitam,proszę o pomoc w napisaniu programu w lazarusie:
Napisz program, który w zadanym tek¶cie złoŜonym z nie więcej niŜ 255
znaków szuka kolejnych, podanych przez uŜytkownika wyrazów (aŜ nie
zechce zakończyć). Wyszukiwanie ma być nieczułe na wielko¶ć liter. W
odpowiedzi program podaje, czy słowo występuje w tek¶cie i na której
pozycji (pozycja liter). Zadany tekst:
Litwo! Ojczyzno moja! Ty jestes jak zdrowie. Ile cie trzeba
cenic, ten tylko sie dowie, kto cie stracil. Dzis pieknosc
twa w calej ozdobie widze i opisuje, bo tesknie po tobie.
z góry dziękuje
[ Dodano: 2010-01-18, 08:55 ]
uses crt;
var tekst, slowo: string;
var i, j, poczatek: integer;
tosamo: boolean;
label wyjscie;
begin
clrscr;
tekst:='Litwo! Ojczyzno moja! Ty jestes jak zdrowie.Ile cie trzeba cenic, ten tylko sie dowie, kto cie stracil.Dzis pieknosc twa w calej ozdobie widze i opisuje, bo tesknie po tobie.'
;writeln(tekst);
write('Podaj słowo: '); readln(slowo);
tosamo:=false;
for i:=1 to length(tekst) do
if upcase(tekst[i])=upcase(slowo[1]) then begin poczatek:=i;
for j:=1 to length(slowo) do begin
if upcase(tekst[i+j-1])=upcase(slowo[j]) then tosamo:=true else tosamo:=false;
if j=length(slowo) then goto wyjscie; end;
end;
wyjscie:
if tosamo then begin
writeln('Wystepuje od pozycji ', poczatek, ' do pozycji ', poczatek+length(slowo)-1);
for I:=1 to length(slowo) do begin
write('s[', i+poczatek-1 , ']=');
if slowo[i]=chr(32) then write('spacja') else write(slowo[i]);
writeln;
end;
end
else writeln('Nie wystepuje');
readln;
end.
Proszęopoprawki
