Правила форума
Прочтите прежде чем задавать вопрос!
сижу пол-сонный, нифига не соображаю уже. КОд вроде начал. Помогите советом или строчкой, проснусь доделывать буду
На данный момент не знаю как заставить проверять фаил в алфавитном порядке
Код
program laba11;
uses crt;
const filename='c:\text.txt';
var a:set of char;
i,n:integer;
poz:byte;
f:text;
temp,ln:string[80];
begin
clrscr;
a:=['a'..'z'];
assign(f,filename);
while not eof do
begin
append(f);
for i:=1 to length(ln) do readln(f,ln);
if ln[i] in a then
begin
poz:=pos(ln[i],ln);
writeln;
readln;
end.
uses crt;
const filename='c:\text.txt';
var a:set of char;
i,n:integer;
poz:byte;
f:text;
temp,ln:string[80];
begin
clrscr;
a:=['a'..'z'];
assign(f,filename);
while not eof do
begin
append(f);
for i:=1 to length(ln) do readln(f,ln);
if ln[i] in a then
begin
poz:=pos(ln[i],ln);
writeln;
readln;
end.
