Хелп ми плиз, сын тупит....

Помогите пожалуйста решить задачу в Дельфи.

задача № 4

задание:

Составьте словесно-формульный алгоритм, блок-схему и программу для решения следующей задачи. Подберите тестовые значения на все возможные ситуации.

условие задачи:

Дан одномерный массив. Найдите первый отрицательный элемент массива, имеющего чётный номер

Не может решить а в Делфи волокущего что-то никого не знаю

uhbitxrj
напишите алгоритм на бумаге, он простейший )
я в таких "мертвых" языках не силен, могу на c++, но боюсь если уж это в делфи не смогли, перевести с с++ тоже не сможете..

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

eXtreMeLy cooL
Абсолютно туп в этом((( А задание просто переписано из задачника.

посоветуйся с преподом. Но делай сам - иначе потом хеново буит

uhbitxrj 500р.

Опиум
акстись, тут дел даже не на 100.

eXtreMeLy cooL
За раритетность :-)

Решил бл@- пинков надавал. А ты Опиум в бэйсике нормуль? дерешь конечно

в vbs

eXtreMeLy cooL, в следующий раз тебя за 100 найму, ок?

блин не в бэсике а делфи. Но кстати тема еще актуальна. Никто не хочет помочь?

1. алгоритм прост до безобразия:
1. бежим по всем элементам массива
2. проверяем его на отрицательность
2.1 если отрицательный, проверяем его номер (позицию в массиве)
2.2.1 если номер четный - значит нашли нужный нам элемент, выходим из цикла
3. если положительный, бежим дальше по массиву


2. плоховато помню диалект Pascal, но это примерно так:


var myarr: array [1...100] of Integer;

procedure FindElem()
begin
var i: Integer;

// цикл по всем элементам
for i := 0 to 100 do
begin
// проверяем элемент на отрицательность
if myarr[i] < 0 then
begin
// элемент отрицательный, проверяем четность его номера
if i div 2 = 0 then
break; // номер четный, элемент найден
end;
end;

// на выходе из цикла имеем i, соответствующее первому отрицательному элементу на четной позиции в массиве

// вывод на экран в форму
Edit1.Text := IntToStr(i); // номер элемента
Edit2.Text := IntToStr(myarr[i]); //сам элемент
end;


вроде как так

Это сообщение отредактировал dumbI4 - 31.12.2010 - 12:44

спасибо за помощь. это паскаль - я правильно понял? не могли бы Вы перевести сиё в язык делфи? (писал сын)

в стоимость входят cd с программой, описанием алгоритма и блок схемой. вобзем все что нужно.

а не проще сразу проверять только четные элементы?

uhbitxrj это уже Delphi. Delphi - это IDE, среда разработки, а компилятор в ней - Object Pascal. Вам только и нужно, что сделать форму, кинуть на нее пару edit-ов и кнопку "Ок". на событие OnClick этой кнопки добавить мою процедурку.

проще. и эффективней только для восприятия сложнее.