Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
_lol_
0 / 0 / 0
Регистрация: 03.09.2012
Сообщений: 20
#1

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

16.12.2012, 01:22. Просмотров 354. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос что нужно изменить для того что бы номер первого нечётного (Delphi):

Нужно описание исходного кода скринсейвера, т.е. где что происходит, что чему и для чего присваивается и т.д - Delphi
unit unitMain; interface uses Windows, Classes, Graphics, Forms, Registry; type TfrmMain = class(TForm) procedure...

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

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

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

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

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

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

Не по теме:

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

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

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

Что нужно для создания своего компонента (TMyComponent) на палитру компонентов Delphi - Delphi
Привет. Собственно вопрос в теме. Я знаю, что Delphi 7 может помочь в создание компонента с помощью своего встроенного средства, но при...

Шанс того что сработает - Delphi
Всем привет! Передо мною встала ооочень интересная проблема. Есть такая переменная string с содержанием например 1\2. Это...

Что нужно изменить для того, чтобы проект, написанный в VS2015 открылся в VS2012? - Visual Studio
Что нужно изменить для того, чтобы проект, написанный в VS2015 открылся в VS2012?


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

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

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