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.
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.
Ang begin ug end moputos sa mga statement. Assignment ang :=; comparison ang =. Ang programa matapos sa end.. Free Pascal sa Object Pascal mode ang gigamit, sugod sa procedural constructs.
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.
Gipaabot nga resulta: 3
Isulat ang tagna, aktuwal nga resulta, ug hinungdan sa pagkapareho o kalainan. Ang completion check mosukod sa pagsabot; ang practice task mopauswag sa kahanas.