harj51.m

% Jaetaan lukua (aluksi 1) kahdella kunnes se on nolla. Viimeinen
% nollasta poikkeava luku tulostetaan.

x = 1;
while x > 0
    y = x;
    x = x/2;
end
fprintf('Pienin ennen nollaa on: %e\n', y)

% Kerrotaan lukua (aluksi 1) kahdella kunnes se on nolla. Viimeinen
% äärettömästä poikkeava luku tulostetaan.

x = 1;
while x < inf
    y = x;
    x = x*2;
end

fprintf('Suurin ennen ääretöntä on: %e\n', y)