решить через Функцию

@DAMIR · Регистрация: 29.10.2008

Author24 — интернет-сервис помощи студентам

Нужно решить через Функцию

сост-те программу, проверяющую, верно ли утверждение, что цифра введённого вами целого числа является чётным.

@Evklid · 17.12.2008, 19:51

Поскольку автор вопроса не указал, что конкретно должно быть оформлено в виде функции и есть ли какие-либо ограничения на тип переменной, хранящей введенное число, предлагаю такой вариант:

Код

program cyb35;
uses
 Crt;
var
 n: byte;
 s: string;
function Chetnost(i: char):boolean;
begin
 if (ord(i)-ord('0')) mod 2 = 0 then
  Chetnost:= True
 else
  Chetnost:= False;
end;
begin
 ClrScr;
 write('Vvedite chislo: ');
 readln(s);
 write('Vvedite nomer zifru: ');
 readln(n);
 if (n >= 1) and (n <= Length(s)) then
  begin
   if Chetnost(s[n]) then
    writeln('Zifra s nomerom ', n, ' chisla ', s, ' chetnaia')
   else
    writeln('Zifra s nomerom ', n, ' chisla ', s, ' ne chetnaia');
  end
 else
  writeln('Zifru s nomerom ', n, ' net v chisle ', s);
 readln;
end.

@Викдон · 17.12.2008, 20:06

может еще так: передаем в функцию по одной цифре числа, а функция возвращает true, если цифра четная или false, если нечетная.

Код

var a:longint;
       b:boolean;
function Cifra(n:Longint):boolean;
 begin
   If n mod 2=0 then
    Cifra:=true
   else
    Cifra:=false;
 end;

begin
write('Введите число: ');
readln(a);
 while a<>0 do
  begin
    b:=Cifra(a mod 10);
      if b=true then
        writeln('Цифра', a mod 10,' Четная ');
   a:=a div 10;
  end;

readln;
end.

@DAMIR · 17.12.2008, 21:19 **[ТС]**

спасибо всем!!!

@DAMIR 2 / 2 / 1 Регистрация: 29.10.2008 Сообщений: 57
		1
	решить через Функцию 17.12.2008, 19:30. Показов 776. Ответов 3 Метки нет (Все метки) Нужно решить через Функцию сост-те программу, проверяющую, верно ли утверждение, что цифра введённого вами целого числа является чётным. 0

@Викдон 67 / 67 / 24 Регистрация: 21.11.2008 Сообщений: 226
	17.12.2008, 20:06	3
	может еще так: передаем в функцию по одной цифре числа, а функция возвращает true, если цифра четная или false, если нечетная. Код var a:longint; b:boolean; function Cifra(n:Longint):boolean; begin If n mod 2=0 then Cifra:=true else Cifra:=false; end; begin write('Введите число: '); readln(a); while a<>0 do begin b:=Cifra(a mod 10); if b=true then writeln('Цифра', a mod 10,' Четная '); a:=a div 10; end; readln; end. 1

@DAMIR 2 / 2 / 1 Регистрация: 29.10.2008 Сообщений: 57
	17.12.2008, 21:19 [ТС]	4
	спасибо всем!!! 0