в общем задание вот такое..
Дано: Const N=... ;
Var X { непустой текстовый файл с непустыми строками) . text; T : boolean; в каждой строке файла находится одно слово; последовательность не более, чем N символов } Написать процедуру, в которой переменной Т присваивается значение true или false в зависимости от того, есть или нет среди строк файла X хотя бы одно симметричное слово. Требуется использовать в процедуре вспомогательную (вложенную) функцию для анализа очередной строки файла.
Для анализа строки необходимо строку перенести в packed array [1..n] of char, и уже в нем анализировать строку на симметричность
Помогите пожалуйста написать программу..
нужно написать так же процедуру заполнения файла, заполняя который нужно использовать тип char
У меня трудности возникают на этапе процедуры ввода..
здесь точка означает конец файла а запятая конец строки.. в общем пожалуйста помогите дописать программу)
Код:
program pr8(input,output);
const n=10;
var x:text; t:boolean;
procedure vvod(var x:text);
var y:char;
begin
rewrite(x);
read(y);
write(x,y);
while y <> '.' do
begin
if y<> ',' then
begin
read(y);
write(x,y);
end
else writeln(x);
end;
end;
begin
assign(x,'x.pas');
vvod(x);
end.
