[faer253]

Всем добрый вечер,в общем в кратце на заочке задали задание,я вообще в этом не понимаю,как и вообще в програмировании,помогите пожалуйста построить алгоритм хотя бы первой задачи.я даже не знаю как и начать,там есьт координаты каждой точки но я их потом,как нибудь сам вставлю мне хоть,как то сделать бы..вот фото сделал потому,что как объяснить не знаю даже..
спасибо за помощь заранее всем!

[M.A.D.M.A.N.]

По первой задаче все достаточно просто, по второй, где-то на этом сайте был исходник, имитирующий работу подобного механизма (при желании найдешь).
По первому заданию алгоритм изложен прямо в тексте задачи, надо только реализовать. Чет/нечет проверяется ф-ей Odd(число), доступ к элементу массива: mass[i].

[faer253]

Сообщение от M.A.D.M.A.N.

По первой задаче все достаточно просто, по второй, где-то на этом сайте был исходник, имитирующий работу подобного механизма (при желании найдешь).
По первому заданию алгоритм изложен прямо в тексте задачи, надо только реализовать. Чет/нечет проверяется ф-ей Odd(число), доступ к элементу массива: mass[i].

Постараюсь найти,спасибо,но я в этом не понимаю ничевошаньки,так я не знаю,что за Odd.

[M.A.D.M.A.N.]

Не ужели на установочной лекции не давали ссылки на рекомендуемую литературу?

[faer253]

Сообщение от M.A.D.M.A.N.

Не ужели на установочной лекции не давали ссылки на рекомендуемую литературу?

Да понимаете не 18 лет,что бы читать такое,я просто не понимаю ничего в этом абсолютно,гугл единственное,что я умею,искал уже,как мог и ничего просто не нашол.

[Alegun]

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

...так я не знаю,что за Odd.

Небольшой ликбез

Функция Odd(Num) возвращает true, если Num нечетно и false если наоборот.

Пример

Код:

...

var
  i : Integer;
begin
  // Отображение всех нечетных значений в диапазоне от 1 до 9
  for i := 1 to 9 do
    if Odd(i) then ShowMessageFmt('%d нечётно',[i]) 
 //  else ShowMessageFmt('%d чётно',[i])
  ;
end;

т.е. выводит сообщение " Нечётно" на 1,3,5,7 и 9

[faer253]

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

Небольшой ликбез

Функция Odd(Num) возвращает true, если Num нечетно и false если наоборот.

Пример

Код:

...

var
  i : Integer;
begin
  // Отображение всех нечетных значений в диапазоне от 1 до 9
  for i := 1 to 9 do
    if Odd(i) then ShowMessageFmt('%d нечётно',[i]) 
 //  else ShowMessageFmt('%d чётно',[i])
  ;
end;

т.е. выводит сообщение " Нечётно" на 1,3,5,7 и 9

Спасибо огромнейшее за старанее,но я думаю зря я сюда написал все ровно,я не знаю просто о чем вы..

[Uniq!]

Проваааал.

[Alegun]

Тогда вот пример на делфи, выводящий результат в Memo, для паскаля нужно использовать WriteLn()

[faer253]

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

Тогда вот пример на делфи, выводящий результат в Memo, для паскаля нужно использовать WriteLn()

Ой спасибо вам огромнейшее просто,мне дельфи и нужен,очень благодарен спасибо!

[Alegun]

Небольшое изменение. Чтобы просмотреть массив с конца, в цикле используется оператор downto вместо to:

Код:

for i := High(A) Downto Low(A) do ...

только сейчас в задании увидел что это надо использовать.


З.Ы. Вот это, это, да и это, возможно и это, с натяжкой и это
может пригодиться для второго задания. Поиск у нас на сайте отлично работает, если что.


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

[faer253]

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

Небольшое изменение. Чтобы просмотреть массив с конца, в цикле используется оператор downto вместо to:

Код:

for i := High(A) Downto Low(A) do ...

только сейчас в задании увидел что это надо использовать.


З.Ы. Вот это, это, да и это, возможно и это, с натяжкой и это
может пригодиться для второго задания. Поиск у нас на сайте отлично работает, если что.


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

Да да мне там то же сказали,что нужно исправить было немного первую задачу я почти сделал,буду пробывать вторую спасибо вам за помощь,если бы вы не помогли не сделал бы ее никогда,спасибо!