oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:19 Titlul subiectului: Problema 22 |
|
|
| Cod: |
{22. fisierul cuvinte.in contine mai multe linii nevide de text, fiecare linie
de cel mult 255 de caractere. orice linie este compusa din unul sau mai multe
cuvinte separate prin cate un spatiu. sa se scrie un program care citeste de
de la tastatura un numar natural L si scrie in fisierul cuvinte.out toate
cuvintele palindromice de lungime L din fisierul de intrare, in ordinea in care
apar ele in text.}
program ex22;
var f,g:text;
s:string;
l:integer;
function pal(a:string):boolean;
var i:integer;
begin
pal:=true;
for i:=1 to length(a) div 2 do if a[i]<>a[length(a)+1-i] then pal:=false
end;
begin
assign(f,'D:\bp\bin\cuvinte.txt'); reset(f);
assign(g,'cuvinteo.txt'); rewrite(g);
write('L: '); readln(l);
while not seekeof(f) do begin
read(f,s);
if (pal(s)) and (length(s)=l) then write(g,s,' ');
end;
close(f);
close(g);
end.
|
|
|
