[EvilRussian]

Бред какой-то...
mod - это вроде бы остаток от деления, так?
Да и проверка на правильность - тоже бред...
Откуда задача-то?

[syuta]

Из института такое задание вот!

[stil]

У препода уточни

[syuta]

Большое спасибо всем за помощь!

[savula_irina]

Помогите пожалуйста составить прогу!!! На стринггридах у меня все получилось, а вот написать алгоритм выполнения задачи не могу Послезавтра зачет! ПОЖАЛУЙСТА
вот задача:Даны целые числа а[1]....a[n]. Если в данной последовательности ни одно четное число не расположено после нечетного, то получить все отрицательные члены последоват., иначе, все положительные

[stil]

Код:

label l;
begin
for i:=0 to n-1 do begin
  if ((a[i] mod 2)<>0) and ((a[i+1] mod 2)=0) then begin
    for j:=0 to n do
      if a[j]>0 then write(a[j],' ');
    goto l;
  end;
end;
for j:=0 to n do
  if a[j]<0 then write(a[j],' ');
l:readln;

[savula_irina]

VERY ДЯКУЮ

[savula_irina]

Помогите пожалуйста довести до ума!!!! Задача та же! Ничего не понимаю в делфи! А сдать работу надо! ПЛИЗЗЗЗ!

procedure TForm1.BitBtn1Click(Sender: TObject);
var A:array of real ;
n,i,j:integer;
s:string;
Flag:boolean;
begin
n:=SpinEdit1.value;
SetLength (A,n);
for i:=0 to n-1 do
begin
s:=StringGrid1.Cells[i+1,1];
if s='' then begin showmessage('Введите числовое значение'); exit end;
for j:=1 to length(s) do
if not (s[j] in ['0','1','2','3','4','5','6','7','8','9','-',DecimalSeparator])
then begin showmessage('Введите числовое значение'); exit end;
a[i]:=StrToFloat (s);
end;
Flag:=0;
for i:=1 to n-2 do
begin
if ((a[i] mod 2)=1) and (a[i+1] mod 2)=0) then
flag:=1;
j:=0; for i:=0 to n-1 do
if a[i]<0 then j:j+1;
if Flag:=0 then
begin
StringGrid2.ColCount:=j+1;
j:=0;
for i:=0 to n-1 do
if a[i]<0 then
begin
stringGrid2.Cells[j,1]:=inttostr(a[i]);
j=:j+1;

end;

end.

[stil]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,n:integer;
    a:array of integer;
begin
stringgrid2.ColCount:=0;
n:=stringgrid1.ColCount;
setLength(a,n);
try
  for i:=0 to n-1 do
    a[i]:=StrToInt(stringgrid1.Cells[i,0]);
except
  ShowMessage('введите число');
  exit;
end;
for i:=0 to n-2 do
  if ((a[i] mod 2)<>0) and ((a[i+1] mod 2)=0) then begin
    for j:=0 to n-1 do
      if a[j]>0 then begin
        StringGrid2.Cells[StringGrid2.ColCount-1,0]:=IntToStr(a[j]);
        StringGrid2.ColCount:=StringGrid2.ColCount+1;
      end;
    StringGrid2.ColCount:=StringGrid2.ColCount-1;
    exit;
  end;
for j:=0 to n-1 do
  if a[j]<0 then begin
    StringGrid2.Cells[StringGrid2.ColCount-1,0]:=IntToStr(a[j]);
    StringGrid2.ColCount:=StringGrid2.ColCount+1;
  end;
StringGrid2.ColCount:=StringGrid2.ColCount-1;
end;

вот что-то типа тоакого у тебя должно получится

[savula_irina]

Спасибо большое!!!!!! только еще один вопросик))) у меня все запускается, только после того, как я ввожу значения в первую таблицу, выскаивает сообшение "введите знчения" хотя я их ввела((((Как быть?

[stil]

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

Спасибо большое!!!!!! только еще один вопросик))) у меня все запускается, только после того, как я ввожу значения в первую таблицу, выскаивает сообшение "введите знчения" хотя я их ввела((((Как быть?

У StringGrid ColCount=1,RowCount=1,FixcedCol=0,FixcedRows=0. Числа только целые.

[savula_irina]

Ну так я и ввожу только целые

[Bargest]

<удалено мной>

[stil]

вот если не смогла

[savula_irina]

почему мне выдает ошибку?извени за мою наглость