11 lines
1.6 KiB
HTML
11 lines
1.6 KiB
HTML
<!doctype html><html lang="ceb"><meta charset="utf-8"><title>Function ug klarong lagda</title><h1>Function ug klarong lagda</h1><p>15-minutong sesyon: pagbasa sulod sa 3 minutos, pag-trace sa 3, pag-eksperimento sa 7, ug pagtubag sa check sa 2. Paggahin og dugang oras kon gikinahanglan.</p><p>Ang function o subroutine nagngalan sa calculation nga magamit pag-usab. Ang lagda modawat og nonnegative total ug completed; zero ang resulta kon nakaabot o milapas ang completed sa total. Kon dili, ibalik ang kalainan. Sunda ang (4,1), (4,4), (4,5), ug (0,0). Ibulag ang pagpatik sa calculation. Ipasabot nganong gawas sa sakop ang negative input ug paghimo og pagbalibad sa dili pa modawat og external input.</p><p>Ang <code>begin</code> ug <code>end</code> moputos sa mga statement. Assignment ang <code>:=</code>; comparison ang <code>=</code>. Ang programa matapos sa <code>end.</code>. Free Pascal sa Object Pascal mode ang gigamit, sugod sa procedural constructs.</p><pre><code class="language-pascal">program AgilaStudy;
|
|
{$mode objfpc}{$H+}{$assertions on}
|
|
function Remaining(Total, Done: Integer): Integer;
|
|
begin
|
|
if Done >= Total then Result := 0 else Result := Total - Done;
|
|
end;
|
|
|
|
begin
|
|
writeln(Remaining(4, 1));
|
|
end.
|
|
</code></pre><p><strong>Gipaabot nga resulta:</strong> <code>3</code></p><h3>Praktis ug ebidensiya</h3><p>Isulat ang tagna, aktuwal nga resulta, ug hinungdan sa pagkapareho o kalainan. Ang completion check mosukod sa pagsabot; ang practice task mopauswag sa kahanas.</p><p><a href="https://www.freepascal.org/docs.html">Reperensiya sa pinulongan</a></p></html> |