function

Общие вопросы программирования, алгоритмы и т.п.

Модератор: Модераторы

function

Сообщение Nick245 » 22.01.2017 01:08:30

Объясните пожалуйста как вообще работает второй IF. :roll:

Код: Выделить всё
program ex7;

var
a,b:integer;

function multiple(num1,num2:integer):boolean;


begin
   if (num1 mod num2)=0 then
   multiple:=true
   else
   multiple:=false;
end;
   
begin
   writeln('put 2 numbers');
   readln(a,b);
   
if multiple(a,b) then   
         
      writeln(a,'  is multiple ',b)
         
else
      writeln(a,'  is not multiple    ',b);
      
      
end.
Nick245
новенький
 
Сообщения: 10
Зарегистрирован: 22.01.2017 00:31:07

Re: function

Сообщение WAYFARER » 22.01.2017 22:41:37

Nick245, а что тут может быть не понятно?
Если число a кратно числу b, то выводим (a,' is multiple ',b)
Можно немного дописать условие, что бы оно было более понятным:
Код: Выделить всё
if multiple(a,b) = True then 
Аватара пользователя
WAYFARER
энтузиаст
 
Сообщения: 517
Зарегистрирован: 09.10.2009 00:00:04
Откуда: г. Курган


Вернуться в Общее

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

Рейтинг@Mail.ru