Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
_lol_
0 / 0 / 1
Регистрация: 03.09.2012
Сообщений: 20
#1

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

16.12.2012, 01:22. Просмотров 363. Ответов 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
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2012, 01:22
Ответы с готовыми решениями:

Нужно описание исходного кода скринсейвера, т.е. где что происходит, что чему и для чего присваивается и т.д
unit unitMain; interface uses Windows, Classes, Graphics, Forms,...

Известно, что в массиве имеются элементы равные 5, определить номер первого и последнего из них
Помогите пожалуйста составить программу, решающую следующую задачу. ...

Подскажите, что нужно изменить, чтобы слоны держали под боем всю доску
unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Что нужно учить что бы писать бруты-чекеры и т.д
Помогите , чуваки , надо научиться писать бруты\чекеры , в delphi уже как 4...

Что нужно для написания бота для mmorpg
Гуглил, но никак не пойму за какую ниточку мне потянуть, чтобы начать...

1
HanDi
16.12.2012, 01:50     что нужно изменить для того что бы номер первого нечётного
  #2

Не по теме:

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2012, 01:50
Привет! Вот еще темы с ответами:

Что нужно для создания клиент-серверного приложения.
Добрый день. Мне нужно сделать программу для для вычитки часов в учебном...

Имеется программа, слова для замены берутся из файла, что изменить чтобы для замены писать свое предложение в консоли
program Project3_ready; {$APPTYPE CONSOLE} uses SysUtils, ...

Что мне нужно доставить для нормальной компиляции проекта
Я в связях дельфи с базами данных полный ноль, админку для дипломной делали на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru