Требуется в двух , пишу сюда, ибо сам зашел в тупик. желательно код с комментариями, дабы понять все: 1. вывести на экран те строки файла, которые не содержат слово no заранее
var f:text; s,t:string; i,n:integer; y:boolean; //признак наличия слова NO
function wr(c:char):boolean; //определяет, буква или нет begin if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false end;
begin assign(f,'d:/file.txt'); reset(f); repeat readln(f,t); s:=t; y:=false; i:=pos('NO',s); while i>0 do begin n:=length(s); if n=2 then y:=true else begin if i=1 then begin if wr(s[i+2])=false then y:=true; end else if wr(s[i-1])=false then y:=true; end; delete(s,1,i+2); i:=pos('NO',s); end; if y=false then writeln(t); until f.Eof; close(f) end.
var
f:text;
s,t:string;
i,n:integer;
y:boolean; //признак наличия слова NO
function wr(c:char):boolean; //определяет, буква или нет
begin
if (c in ['A'..'Z']) or (c in ['a'..'z']) then result:=true else result:=false
end;
begin
assign(f,'d:/file.txt');
reset(f);
repeat
readln(f,t);
s:=t;
y:=false;
i:=pos('NO',s);
while i>0 do
begin
n:=length(s);
if n=2 then
y:=true
else
begin
if i=1 then
begin
if wr(s[i+2])=false then y:=true;
end
else
if wr(s[i-1])=false then y:=true;
end;
delete(s,1,i+2);
i:=pos('NO',s);
end;
if y=false then writeln(t);
until f.Eof;
close(f)
end.