Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2009, 23:08   #1
Absentik
 
Регистрация: 19.11.2009
Сообщений: 9
По умолчанию Проблема с формулировкой задания, Delphi

Здравствуйте. Проблема такая - не могу разобраться, что от меня хотят.

Задание звучит как:
Цитата:
Задан одномерный целый массив A(n). Переписать в массив B все пары элементов, один из которых равен нулю, а другой – является нечетным.
Конкретно, не понятно следующее:
Что должен содержать массив B.
Что за "пары элементов"?
Нечетным является сам элемент или его номер в массиве?

Если есть добрые люди - напишите саму процедуру.

На данном этапе текст выглядит следующим образом:

Код:
begin
 n:=StrToInt(Edit1.text);
 m:=0;
 for i:=1 to n do
   a[i]:= StrToInt(StringGrid1.Cells[i-1,0]);
 i:=1;
 j:=1;
 repeat
   if (a[i]=0) and (a[i+1] mod 2 > 0)
   then
    begin
    b[j]:= a[i];
    b[j+1]:= a[i+1];
    m:=m+2;
    j:=j+2;
    end;
   if (a[i] mod 2 > 0) and (a[i+1]=0)
   then
    begin
    b[j]:= a[i];
    b[j+1]:= a[i+1];
    m:=m+2;
    j:=j+2;
    end;
    i:=i+2;
   until i>n;
for i:=1 to m do
s:=s + IntToStr(b[i])+' ';
if s=''
then ShowMessage('Массив B(n) пуст')
else ShowMessage('Массив B(n): '+ s);
end;

Последний раз редактировалось Absentik; 21.11.2009 в 23:11.
Absentik вне форума Ответить с цитированием
Старый 23.11.2009, 09:43   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Конкретно, не понятно следующее:
Что должен содержать массив B.
Что за "пары элементов"?
Видимо имеется ввиду

if (a[i]=0)and(a[i+1] mod 2=0) then
a[i] и a[i+1] переносим в массив В
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
3 задания Си nariku Помощь студентам 39 22.10.2009 15:43
пояснения задания world12_tk Помощь студентам 14 10.10.2009 18:55
Pascal задания -RSP- Помощь студентам 4 15.09.2009 17:22
Задания по паскалю Metall Помощь студентам 7 14.07.2009 09:40