% 
% РбсЬдейгмб елЭгчпх спЮт рспгсЬммбфпт ме фзн енфплЮ if:
%   ДйбЯсеуз ме Элегчп
%
% Уэнфбоз: [q, r] = divide( x, y)
%          ьрпх
%               x п дйбйсефбЯпт
%               y п дйбйсЭфзт
%               q фп рзлЯкп фзт бкЭсбйбт дйбЯсеузт
%               r фп хрьлпйрп фзт бкЭсбйбт дйбЯсеузт
%

function [q, r] = divide( x, y);

	if y == 0							% еЬн п дйбйсЭфзт еЯнбй мздЭн з дйбЯсеуз ден псЯжефбй
		error( 'Divide by zero!');	% фесмбфйумьт екфЭлеузт ме мЮнхмб уцЬлмбфпт
	end;
	
	if (x == 0) | (x < y)			% еЬн п дйбйсефЭпт еЯнбй 0 Ю мйксьфеспт фпх дйбйсЭфз
		q = 0;
		r = x;
		return;							% фесмбфйумьт екфЭлеузт кбй ерйуфспцЮ
	end;
	
	q = fix( x./y);	% бкЭсбйп мЭспт дйбЯсеузт
	r = rem( x, y);	% хрьлпйрп дйбЯсеузт