подпрограмма-функция нахождения четных чисел Pascal ABC

[программирование]

добрый вечер, программисты. помогите, пожалуйста, написать подпрограмму-функцию.

написать подпрограмму функцию, которая проверяет, есть ли целое число четным. Если число четное, то функция должна вывести true, если нечетное - false. В главной программе организовать циклическое введение входных даных и вивод результата роботы функции.(Pascal ABC)

[BDA]

f := (a mod 2 = 0);

Функция f получает целое число a и возвращает результат.
(Не забудьте описать саму функцию)

[программирование]

спасибо, но не могли бы написать полностью как выглядит программа. Заранее, огромное спасибо, тем, кто откликнится.

спасибо, но не могли бы написать полностью как выглядит программа. Заранее, огромное спасибо, тем, кто откликнится.

спасибо, но не могли бы написать полностью как выглядит программа. Заранее, огромное спасибо, тем, кто откликнится.

[PhoenixPC]

Я не проверяла, но должно работать.

const n=10;

var a: array [1..n] of integer;
    i: integer;

function F(c: integer): boolean;  
  var b:boolean;
  begin
    b:=false;
    if (с mod 2 = 0) then b:=true;
    F:=b;
    writeln(F);
  end;

Begin
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
    F(a[i]);
  readln;
End.

Если использовать вариант, который Вам показали выше, то функция будет выглядеть так:

function F(c: integer): boolean;  
  begin
    F:=(с mod 2 = 0);
    writeln(F);
  end;

[s-andriano]

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

f := (a mod 2 = 0);

Все гораздо проще:

f := not odd(a);

Ужас!
Все это:

    b:=false;
    if (с mod 2 = 0) then b:=true;
    F:=b;

легко заменяется на:

    f := not odd(a);

или, как было предложено BDA:

    F:=(с mod 2 = 0);

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

Не понимаю, откуда желание вместо

a := b;

писать

if b = TRUE then
  a := TRUE
else
  a := FALSE;

[BDA]

s-andriano, ну да, можно и odd. Просто мне это показалось совсем глупо - создавать функцию, которая возвращает отрицание другой функции. А так вроде как исследуем остаток от числа - всё "цивильненько".

[программирование]

program zd;
uses crt;

const n=10;

var a: array [1..n] of integer;
    i: integer;

function F(c: integer): boolean;
  var b:boolean;
  begin
    b:=false;
    if (ñ mod 2 = 0) then b:=true;
    F:=b;
    writeln(F);
  end;

Begin
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
    F(a[i]);
  readln;
End.

пишет ошибку "неверное выражение" в строке if (c mod 2=0) then b:=true (Pascal ABC)

[BDA]

Во-первых, с помощью экстрасенсорных способностей заявляю, что в строке if (c mod 2=0) then b:=true находится русская буква "с".
Во-вторых, Вы почему-то обратили внимание только на пост с кодом, и никакого внимания к замечаниям ниже.
В-третьих, в функции не должно быть вывода на экран, а он должен быть в цикле:

for i:=1 to n do
  writeln(a[i], ' ',F(a[i]));

[программирование]

program zd;
uses crt;
const n=10;

var a: array [1..n] of integer;
    i: integer;
 function F(c: integer): boolean;
  begin
    F:=not odd(a);
    writeln(F);
  end;
 Begin
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
    F(a[i]);
  readln;
End.

пишет "Ошибка: нельзя переобразовать выражение типа array[1..10] of integer к типу integer".(в строке F:=not odd(a) Pascal ABC

program zd;
uses crt;

const n=10;

var a: array [1..n] of integer;
    i: integer;

function F(c: integer): boolean;
  var b:boolean;
  begin
    b:=false;
    if (c mod 2 = 0) then b:=true;
    F:=b;
    writeln(F);
  end;

Begin
  for i:=1 to n do
    readln(a[i],' ',F(a[i]));
  for i:=1 to n do
    F(a[i]);
  readln;
End.

а теперь ошибка "неверное количество фактических параметров" в строке writeln(F);(когда добовляю b, то пишет тоже самое)

[BDA]

1) Уберите вывод из функции
2) Смотрите, какие у Вас параметры у функции - от них и берите odd

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