Delphi массивы

[zzzarazzza]

Задача: Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю.


какую сделать обработку чтобы когда в массиве нет нулевых элементов выводилось сообщение об ошибке

var s, y: integer;
begin
  s := 0;
  for j := 0 to StringGrid1.ColCount - 1 do
    if strtoint(StringGrid1.Cells[j, 0]) = 0 then
    begin
      y := j;
    end;
  begin
    for j := y + 1 to StringGrid1.ColCount - 1 do
      s := s + abs(strtoint(stringgrid1.Cells[j, 0]));
    Label6.Caption := inttostr(s);
  end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[zzzarazzza]

а вот как делать эту задачу вообще не знаю..(( надеюсь на вашу помошь

Одномерный массив преобразовать таким образом, чтобы в первой его половине располагались элементы, стоящие в четных позициях, а во второй половине – элементы, стоящие на нечетных позициях.

_____________________
одна тема - один вопрос. Для нового вопроса лучше создайте новую тему.
(только дайте ей ПОЛНОЕ нормальное адекватное название)

Модератор.

[Вадим Мошев]

В принципе, я готов вам помочь, не не бесплатно....
Я так полагаю, вам надо написать на Делфи? EXE-шник будет стоить 100 рублей...
особенно хорошо, если во второй задаче можно использовать дополнительный массив

Таким образом, 2 задачи в делфи = 200 рублей на счёт мобильного телефона.......

[zzzarazzza]

Сообщение от Вадим Мошев

В принципе, я готов вам помочь, не не бесплатно....
Я так полагаю, вам надо написать на Делфи? EXE-шник будет стоить 100 рублей...
особенно хорошо, если во второй задаче можно использовать дополнительный массив

Таким образом, 2 задачи в делфи = 200 рублей на счёт мобильного телефона.......

нет спасибо, я надеюсь на бесплатную помощь...

[Serge_Bliznykov]

какую сделать обработку чтобы когда в массиве нет нулевых элементов выводилось сообщение об ошибке

дык, элементарно.

если Вы писали сами этот код, то Вы понимаете, для чего используется переменная y

только у Вас в коде ошибочка - вы найдёте индекс последнего нуля, а Вам надо - первого..

можно так:

var s, y: integer;
begin
  y := -1; {-1 признак того, что нулевой элемент не найден}
  for j := 0 to StringGrid1.ColCount - 1 do
    if strtoint(StringGrid1.Cells[j, 0]) = 0 then
    begin
      y := j;
      break; {прерываем цикл - первый нулевой элемент найден!}
    end;

  if y = -1 then ShowMessage('Ошибка! В массиве нулевой элемент вообще отсутствует!')
  else begin
    s := 0;
    for j := y + 1 to StringGrid1.ColCount - 1 do
      s := s + abs(strtoint(stringgrid1.Cells[j, 0]));
    Label6.Caption := inttostr(s);
  end;
end;

[zzzarazzza]

да код писала сама))
поэтому сток ошибок...(

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

[Kotlyar562]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=5;
var a, b : array[1..n] of real;
    i,k: integer;
begin
  for i:=1 to n do readln(a[i]);

  k:=1;
  for i:=1 to n do
    if i mod 2 =0 then
    begin
      b[k]:=a[i];
      k:=k+1;
    end;
  for i:=1 to n do
    if i mod 2 =1 then
    begin
      b[k]:=a[i];
      k:=k+1;
    end;

  for i:=1 to n do write(b[i]:0:0,' ');
  readln;
end.

Проходим массив первый раз и записываем во второй массив элементы, стоящие на парных местах, потом проходим массив еще раз и дописываем ко второму массиву элементы, стоящие на непарных местах.

[Вадим Мошев]

Поясняю: парных = чётных
непарных = нечётных.
Kotlyar562 вы с Украины?

[Kotlyar562]

Да, недоглядел
спасибо