Witam.
Dopiero uczę się pisać w pascalu i muszę zrobić następujące zadanie.
Jest to 4 zadanie z podstawowej matury z informatyki w 2010 roku.
Treść zadania:
W pliku dane.txt umieszczono w kolejnych wierszach 1000 słów o długościach od 2 do 25 znaków, składających się z wielkich liter od A do J. Napisz program który przegląda słowa zapisane w pliku dane.txt i wypisuje te z nich które są palindromami po jednym w wierszu. Kolejność wypisywania palindromów powinna być taka sama jak w pliku z danymi. Wyniki zapisz w pliku zadanie4.txt.
Napisałem program który działa dobrze w przypadku gdy w pliku podane jest słowo tylko w pierwszym wierszu a powinien sprawdzać wszystkie słowa w każdym wierszu i wypisać palindromy.
Proszę o pomoc.
Kod źródłowy:
program Palindromy;
uses crt;
var odczyt,zapis:text;
palindrom:string;
a,b:integer;
begin
clrscr;
assign(odczyt,'C:\dane.txt');
reset(odczyt);
assign(zapis,'C:\zadanie4.txt');
rewrite(zapis);
while not eof(odczyt) do
begin
readln(odczyt,palindrom);
a:=1;
b:=length(palindrom);
if palindrom[a]<>palindrom[b] then
begin
readln;
halt
end;
inc(a);
dec(b);
writeln(palindrom);
writeln(zapis,palindrom)
end;
readln;
close(odczyt);
close(zapis)
end.