Подсчитать количество положительных, отрицательных и нулевых элементов

@nnm74 · Регистрация: 17.01.2010

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

privetstvuyu vseh!pomogite,pojaluysta reshit' zada4u:
Дан файл из целых чисел. Подсчитать количество положительных, отрицательных и нулевых элементов.
zaranee,spasibo!

@nVz · 17.01.2010, 22:02

держи

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
f:TStringlist;
i,c,n,n1:integer;
begin
     f := TStringList.Create;
     f.LoadFromFile('1.txt');
     for i := 1 to f.Count-1 do
       begin
      if f.Strings[i] > IntToStr(0) then inc(c);
      if f.Strings[i] < IntToStr(0) then inc(n);
      if f.Strings[i] = IntToStr(0) then inc(n1);
       end;
     Form1.Caption := 'Четных: '+IntTostr(c)+
                   ', Нечетных: '+IntTostr(n)+
                   ', Hулевых: '+IntTostr(n1);
 
end;

@nnm74 · 17.01.2010, 22:15 **[ТС]**

a v bolee prostom vvide mojno? ili mojet poyasnenie vozmojno,ya prosto ne mogu ponyat' vot eto "IntToStr",i vot etot paramentr "f.Count-1"... zaranee ,spasibo

@nVz · 17.01.2010, 22:20

поскольку мы обращаемся к строкам Strings а проверяем числа, то IntToStr переводит число в строку
f.Count-1 это количество строк в файле, по циклу узнаём сколько строк и потом проверяем каждую

@nnm74 · 17.01.2010, 22:26 **[ТС]**

spasibo... bolee menee stalo ponyatno

deathNC · 17.01.2010, 22:38

немного с запозданием, но всё же выложу проект

Не по теме:

просто у меня иннет вырубился, и пока его починили, тут уже кто-то решил задачу... но я тоже решил, поэтому выкладываю... не зря же сделал?

@nnm74 · 17.01.2010, 22:44 **[ТС]**

posmotrel... telo ya eshe mogu ispol'zovat',a vot strukturu net... poka mne ee ne dadut primenit',t.k. nel'zya

deathNC · 18.01.2010, 05:10

В смысле? Что именно нельзя использовать, пока в университете не дадут?

(у меня всё самыми стандартными средствами, самый простой алгоритм... я сам видел, как мои одногруппники по этому алгоритму выполняли подобного рода задачку)..

@nnm74 · 18.01.2010, 06:55 **[ТС]**

Сообщение от deathNC

В смысле? Что именно нельзя использовать, пока в университете не дадут?

(у меня всё самыми стандартными средствами, самый простой алгоритм... я сам видел, как мои одногруппники по этому алгоритму выполняли подобного рода задачку)..

sovershenno verno,v universitete poka ne dali takogo,kone4no je ya sdam etot proekt,no vse ravno budet mnogo lishnih slov po etomu povodu

prepod prosto pridir4iv ><

deathNC · 18.01.2010, 07:06

В смысле? И в моём проекте, и в проекте nVz есть то, что ты не проходил, так? если да, то я могу объяснить свои действия (прокомментировать). и вообще, если что-то непонятно пиши - мы постараемся объяснить всё до мельчайших подробностей

@nnm74 · 18.01.2010, 07:16 **[ТС]**

Сообщение от deathNC

В смысле? И в моём проекте, и в проекте nVz есть то, что ты не проходил, так? если да, то я могу объяснить свои действия (прокомментировать). и вообще, если что-то непонятно пиши - мы постараемся объяснить всё до мельчайших подробностей

kone4no ne prohodili...poka ne uznul knigu po delphi i ne otkryl spravo4nik bylo ne ponyatno,sey4as bolee menee vse proyasnilos' ,v obshih 4ertah ) p.s. hotelos' by kone4no uvidet' tvoi kommentarie k tvoemu proektu,mojet ya ne tak ponyal so spravo4nikom v zubah nekotorye momenty... a po hodu uje budu pisat' otzyv-ponyatno ili net (telo ya ispol'zoval kak variant #2 resheniya,oformil priglashenie i vyvod,i s gorem popalam delphi7 zapustilas'

).

@nnm74 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 28
	18.01.2010, 07:16 [ТС]	11
	Сообщение от deathNC В смысле? И в моём проекте, и в проекте nVz есть то, что ты не проходил, так? если да, то я могу объяснить свои действия (прокомментировать). и вообще, если что-то непонятно пиши - мы постараемся объяснить всё до мельчайших подробностей kone4no ne prohodili...poka ne uznul knigu po delphi i ne otkryl spravo4nik bylo ne ponyatno,sey4as bolee menee vse proyasnilos' ,v obshih 4ertah ) p.s. hotelos' by kone4no uvidet' tvoi kommentarie k tvoemu proektu,mojet ya ne tak ponyal so spravo4nikom v zubah nekotorye momenty... a po hodu uje budu pisat' otzyv-ponyatno ili net (telo ya ispol'zoval kak variant #2 resheniya,oformil priglashenie i vyvod,i s gorem popalam delphi7 zapustilas' ). 0

@nnm74 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 28
	17.01.2010, 22:15 [ТС]	3
	a v bolee prostom vvide mojno? ili mojet poyasnenie vozmojno,ya prosto ne mogu ponyat' vot eto "IntToStr",i vot etot paramentr "f.Count-1"... zaranee ,spasibo 0

@nVz 173 / 171 / 30 Регистрация: 12.12.2009 Сообщений: 1,336
	17.01.2010, 22:20	4
	поскольку мы обращаемся к строкам Strings а проверяем числа, то IntToStr переводит число в строку f.Count-1 это количество строк в файле, по циклу узнаём сколько строк и потом проверяем каждую 0

@nnm74 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 28
	17.01.2010, 22:26 [ТС]	5
	spasibo... bolee menee stalo ponyatno 0

@nnm74 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 28
	17.01.2010, 22:44 [ТС]	7
	posmotrel... telo ya eshe mogu ispol'zovat',a vot strukturu net... poka mne ee ne dadut primenit',t.k. nel'zya 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	18.01.2010, 05:10	8
	В смысле? Что именно нельзя использовать, пока в университете не дадут? (у меня всё самыми стандартными средствами, самый простой алгоритм... я сам видел, как мои одногруппники по этому алгоритму выполняли подобного рода задачку).. 0

@nnm74 0 / 0 / 0 Регистрация: 17.01.2010 Сообщений: 28
	18.01.2010, 06:55 [ТС]	9
	Сообщение от deathNC В смысле? Что именно нельзя использовать, пока в университете не дадут? (у меня всё самыми стандартными средствами, самый простой алгоритм... я сам видел, как мои одногруппники по этому алгоритму выполняли подобного рода задачку).. sovershenno verno,v universitete poka ne dali takogo,kone4no je ya sdam etot proekt,no vse ravno budet mnogo lishnih slov po etomu povodu prepod prosto pridir4iv >< 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	18.01.2010, 07:06	10
	В смысле? И в моём проекте, и в проекте nVz есть то, что ты не проходил, так? если да, то я могу объяснить свои действия (прокомментировать). и вообще, если что-то непонятно пиши - мы постараемся объяснить всё до мельчайших подробностей 0