что нужно изменить для того что бы номер первого нечётного

@_lol_ · Регистрация: 03.09.2012

Студворк — интернет-сервис помощи студентам

что нужно изменить для того что бы номер первого нечётного элемента искался (слева - направо)? а тут он ищет (справа налево)!!
var
t,s,e:string;
i,w,v:byte;
k,min:integer;
begin
assignfile(f,'F.txt');
reset(f);
i:=0;
while not eof(f) do
begin
readln(f,t);
w:=0;
for k:=1 to length(t) do
if t[k]<>' ' then
begin
e:=e+t[k];
if k<=2 then
min:=strtoint(e);
i:=0;
end
else
begin
i:=i+1;
if i=1 then
begin
w:=w+1;
if strtoint(e) mod 2 = 1 then
begin
min:=strtoint(e);
v:=w;
end;
e:='';
end;
end;
s:=s+inttostr(v)+' ';
end;
closefile(f);

@HanDi · 16.12.2012, 01:50

Не по теме:

Руки вырвать за такую структуру кода..

@_lol_ 0 / 0 / 1 Регистрация: 03.09.2012 Сообщений: 20
		1
	что нужно изменить для того что бы номер первого нечётного 16.12.2012, 01:22. Показов 743. Ответов 1 Метки нет (Все метки) что нужно изменить для того что бы номер первого нечётного элемента искался (слева - направо)? а тут он ищет (справа налево)!! var t,s,e:string; i,w,v:byte; k,min:integer; begin assignfile(f,'F.txt'); reset(f); i:=0; while not eof(f) do begin readln(f,t); w:=0; for k:=1 to length(t) do if t[k]<>' ' then begin e:=e+t[k]; if k<=2 then min:=strtoint(e); i:=0; end else begin i:=i+1; if i=1 then begin w:=w+1; if strtoint(e) mod 2 = 1 then begin min:=strtoint(e); v:=w; end; e:=''; end; end; s:=s+inttostr(v)+' '; end; closefile(f); Изображения 0

@HanDi
	16.12.2012, 01:50 что нужно изменить для того что бы номер первого нечётного #2
	Не по теме: Руки вырвать за такую структуру кода.. 0

Опции темы