[RainbowEyes]

Всем доброго времени суток! Помогите решить одномерные массивы, желательно не в консольном режиме
1) Найти номера всех отрицательных элементов и вывести их на экран. Stringgrid заполняется случайными числами
2)


3)


Заранее благодарю

[Delphist]

Оп-па, а почему не XE или 2010???? Ну если надо на 7 то только через webMany 150$. Потому что одномерные массивы строятся через TRecordStream который не может взаимодействовать на прямую с TStringGrid. Для этого понадобится TCanvas что бы перехватить TShellApi в обработчике событий BithNext

[RainbowEyes]

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

Оп-па, а почему не XE или 2010???? Ну если надо на 7 то только через webMany 150$. Потому что одномерные массивы строятся через TRecordStream который не может взаимодействовать на прямую с TStringGrid. Для этого понадобится TCanvas что бы перехватить TShellApi в обработчике событий BithNext

Задания же эти для 1го курса, не думаю, что все настолько сложно

[Delphist]

"Нынче в вузе первый курс вроде магистратууууууурыыыыы!!!!!"

[Bargest]

Хороший ответ.

[Delphist]

Люди!!!! Сейчас в универах и для экологов и для дизайнеров что ли программирование преподают??? Вернее только спрашивают, если бы преподавали то бы уж массивы бы знали как "ОТЧЕ НАШ"

[lmikle]

Ну ладно издеваться над халявщиком

На этом сайте правило простое.
Если просишь помощи, то для начала приложи свой труд. Покажи, что сделал сам и спрашивай то, что не получается.
Если хочется все и сразу - то в раздел "Работа" со всеми вытекающими...

Теперь по сути.
Задача 1. Просто перебираешь все числа в гриде (for) и если число < 0, то выводишь значение счетчика цикла.
Задача 2. Честно говоря, не понял задание. Что за q???, откуда k (т.е. шаг).
Задача 3. Квадрат числа есть всегда положительное число, т.е. отрицательные нам не годятся. Далее, корень из числа должен быть целым и четным. Если все условия выполнились - то проверяемое число есть квадрат четного числа. ЗЫ. Да, результатом возведения в квадрат четного числа всегда будет четное число, так что часть можно отсеять и на этом условии.

[RainbowEyes]

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

Ну ладно издеваться над халявщиком


Задача 1. Просто перебираешь все числа в гриде (for) и если число < 0, то выводишь значение счетчика цикла.
Задача 2. Честно говоря, не понял задание. Что за q???, откуда k (т.е. шаг).
Задача 3. Квадрат числа есть всегда положительное число, т.е. отрицательные нам не годятся. Далее, корень из числа должен быть целым и четным. Если все условия выполнились - то проверяемое число есть квадрат четного числа. ЗЫ. Да, результатом возведения в квадрат четного числа всегда будет четное число, так что часть можно отсеять и на этом условии.

1 задачу я сделал

Код:

procedure TForm1.btn1Click(Sender: TObject);
var A: Array[1..10] of Integer;
    i: Integer;
begin
  randomize;
  for i :=1 to 10 do
  begin
    A[i] := Random(20)-10;
    stringgrid2.cells[i-1,0]:=inttostr(a[i]);
  end;
  for i :=1 to 10 do
       if A[i] < 0 then
      Memo2.Lines.Add(IntToStr(i));
 
end;
end.

а остальные я даже не подозреваю как делать

[Ildar-tsr]

У тебя в решении первой задачи циклов ровно в два раза больше чем нужно.
Лучше наверно сделать

Код:

A: Array[0..9] of Integer;
for i :=0 to 9 do

и к стринггриду, и к массиву обращаться через индекс один и тот же (везде i без i-1).

[RainbowEyes]

Сообщение от Ildar-tsr

У тебя в решении первой задачи циклов ровно в два раза больше чем нужно.
Лучше наверно сделать

Код:

A: Array[0..9] of Integer;
for i :=0 to 9 do

и к стринггриду, и к массиву обращаться через индекс один и тот же (везде i без i-1).

спасибо переделал.
Помогите с решением двух оставшихся задач. Хотя бы план решения составить

[Konrad]

Delphist-у зачет

Кстати есть еще один метод:
Спрашивают тебя - как сделать программу чтобы вычислить 2+2=
и в результате получают код на страницы 3)))

PHP код:

x:=1;
y:=4;
a:=x+y/4;
s:=x-a+1;
и т.д.
.....
.....
result:=sqrt(ln(a-1)+x*d-4*(d-ln(44*a+b*b+c)+4)); 


[RainbowEyes]

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

Люди!!!! Сейчас в универах и для экологов и для дизайнеров что ли программирование преподают??? Вернее только спрашивают, если бы преподавали то бы уж массивы бы знали как "ОТЧЕ НАШ"

прошло всего полтора месяца с начала обучения в вузе, и да, я не учусь на прогера

[lmikle]

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

[RainbowEyes]

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

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

не получается...

[lmikle]

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

не получается...

Что не получается? Твой код в студию?

Код:

function IsSquareOfEven(N : Integer) : Boolean;
begin
  Result := (N > 0) And                  // квадрат всегда > 0
               ((N mod 2) = 0) And       // квадрат четного числа всегда четный
               (Sqr(Sqrt(N)) = N) And   // кв. корень есть целое число
               ((Sqrt(N) mod 2) = 0);   // кв. корень четный
end;