Нужен человек для программирования в Delphi.

данное выражение [upd - "компиляторы не краснеют", которое явно происходит от "бумага не краснеет"] в принципе отражает беспринцЫпность и отсутствие всякого намёка на совесть... компилятор смотрит чисто на правильность синтаксиса... если программа составлена верно: ему не интересно что она делает, для каких целей и кем написана, как там сохраняется копирайт и прочая ерунда...краснеет он только за ошибки в последовательностях "0" и "1" - остальное ему неинтересно...)) так что "по сути" фраза не теряет своей истинности...))

пользуясь случаем - как там топик-стартёр - прогрыз дыру в граните исходного кода...?))

Это сообщение отредактировал Имя Пользователя - 16.04.2011 - 22:01

Намекните в чем ошибка.
Задание 4
Одномерные массивы и указатели
Массив должен быть динамическим.
В одномерном массиве, состоящем из n целочисленных элементов, вычислить:
• номер максимального элемента;
• произведение элементов массива, расположенных между первым и вторым нуле-выми элементами.

procedure TForm1.Button1Click(Sender: TObject);
const
N = 15;
var
a:array[1..N]of integer;
max:integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
max:=1;
for i:=-2 to 10 do
if a[i]> a[max]then max:=i;
label2.caption:= 'Максимальный элемент массива:'+IntToStr(a[max])+#13+'Номер элемента:'+IntToStr(max);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
N = 15;
var
m1,m2,i:integer;
a:array[0..N]of integer;
begin
m1:=a[0];
m2:=a[1];
for i:=2 to n-1 do
if i mod 2 = 0 then m1:=m1*a[i]
else m2:=m2*a[i];
m2:=StrToInt(Label3.Caption);
end;
end.

200р

в первой процедуре индекс цикла FOR неправильно идёт...
вторая процедура и второе задание - вообще разные вещи (гугли дальше)..))

Это сообщение отредактировал Имя Пользователя - 17.04.2011 - 21:50

Имя Пользователя а разве простую человеческую логику можно нагуглить?
в яндексе

и где он?

Опиум

это путь топик-стартёра...пусть играется с антивирусом...))

наверное имеется в виду

это и есть "динамизм" массива...

вторая процедура пытается вычислить произведение четных и нечетных эл-тов массива (списано из другого варианта), и то с ошибками

max:=1;
for i:=0 to high(a)do
if a[i] > a[max] then max:=i;
edit2.Text:=IntToStr(a[max])

нашел максимальный элемент массива ,
edit2.Text:=IntToStr(I) не выходит.
замену делал
nom:= a[i];
a[i] := a[max];
a[max] :=nom;
Выдает какие то левые числа. Дайте подсказку.

max:=1;
for i:=1 to high(a)do
if a[i]>max then
begin
j:=i;
max:=a[i];
end;
edit2.Text:=IntToStr(j+1)

вот так написал. работает

исправил. от I:=0 надо было

Это сообщение отредактировал Mef - 19.04.2011 - 19:05

Объясните пожалуйста , задание под вторым пунктом . где ошибка
var
in1,in2,i,p,z:integer;
begin
p:=1;
for i:=0 to high(a) do
if a[i]=0 then
begin
in1:=i;
end;
for in1:=i to high(a) do
if a[i]=0 then
begin
in2:=z;
end;
for in1:=i+1 to high(z)-1 do
begin
p:=p*a[i];
end;

опять неприколочен индекс цикла ... надо так:

max:=0;
for i:=0 to length(a)-1 do
if a[i] > a[max] then max:=i;
edit2.Text:=IntToStr(a[max])

но вообще с такими вопросами надо ещё читать учебники, а не позориться..))


Это сообщение отредактировал Имя Пользователя - 19.04.2011 - 22:52

да мне как то особо не стыдно
Да и тем более , получение информации через интернет никто еще не отменял

везде.