Работа с массивами - Общие вопросы Delphi

Neba · 26.11.2008, 20:37

Помогите.

как подщитать количество парних и непарних число в массиве

Я зделал так НЕ ИДЕТ

if strtofloat(stringgrid1.cells[i,j])div 2 then n:=n+1
else k:=k+1;

Arigato · 26.11.2008, 20:48

Код:

if A mod 2 = 0 then // четный

Или

Код:

if not Odd (A) then // четный

Proof · 26.11.2008, 20:50

попробуй так
if (strtofloat(stringgrid1.cells[i,j])div 2)=0 then n:=n+1
else k:=k+1;

Neba · 26.11.2008, 20:56

Видает ошибку Incompatible types или Operator not applicable to this operand type

Proof · 26.11.2008, 21:09

if (strtoint(stringgrid1.cells[i,j]) mod 2)=0 then n:=n+1
else k:=k+1;

если конечно в stringgrid значения целые

Neba · 26.11.2008, 21:11

Спасибо!!!!!!!!!

puporev · 26.11.2008, 21:13

Цитата:

если конечно в stringgrid значения целые

А какие еще? Что, вещественные числа бывают четными и нечетными?
Собрались грамотеи.

Proof · 26.11.2008, 21:21

Цитата:

Что, вещественные числа бывают четными и нечетными?

Я имел ввиду, что числа в stringgrid не являются дробными!!!

26.11.2008, 20:37	#1
Neba Пользователь Регистрация: 26.11.2008 Сообщений: 11	Работа с массивами Помогите. как подщитать количество парних и непарних число в массиве Я зделал так НЕ ИДЕТ if strtofloat(stringgrid1.cells[i,j])div 2 then n:=n+1 else k:=k+1;

26.11.2008, 20:48	#2
Arigato Высокая репутация СуперМодератор Регистрация: 27.07.2008 Сообщений: 15,551	Код: `if A mod 2 = 0 then // четный` Или Код: `if not Odd (A) then // четный` E-Mail: arigato.freelance@gmail.com

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
работа с массивами	mager	JavaScript, Ajax	5	27.08.2008 22:02
Работа с массивами	Stelix	Паскаль, Turbo Pascal, PascalABC.NET	1	20.06.2008 11:37
Работа с массивами в C#	MaskEdit	Общие вопросы .NET	3	17.05.2008 17:59
Работа с массивами	Hakman	Общие вопросы C/C++	1	19.02.2008 15:11
Работа с массивами	DeN1308	Помощь студентам	3	09.11.2007 11:50

26.11.2008, 20:50	#3
Proof Пользователь Регистрация: 20.02.2008 Сообщений: 63	попробуй так if (strtofloat(stringgrid1.cells[i,j])div 2)=0 then n:=n+1 else k:=k+1;

26.11.2008, 20:56	#4
Neba Пользователь Регистрация: 26.11.2008 Сообщений: 11	Видает ошибку Incompatible types или Operator not applicable to this operand type

26.11.2008, 21:09	#5
Proof Пользователь Регистрация: 20.02.2008 Сообщений: 63	if (strtoint(stringgrid1.cells[i,j]) mod 2)=0 then n:=n+1 else k:=k+1; если конечно в stringgrid значения целые

26.11.2008, 21:11	#6
Neba Пользователь Регистрация: 26.11.2008 Сообщений: 11	Спасибо!!!!!!!!!