Pascal

Module 1 – Pascal — unang mga lakang

Page 3 of 3 · Mga 15 minutos matag leksyon, apil ang praktis.

Function ug klarong lagda

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

Praktis ug ebidensiya

Isulat ang tagna, aktuwal nga resulta, ug hinungdan sa pagkapareho o kalainan. Ang completion check mosukod sa pagsabot; ang practice task mopauswag sa kahanas.

Reperensiya sa pinulongan

Pananglitang code sa Agila Forge ↗