Add multilingual Agila learning examples and Git practice guide
This commit is contained in:
commit
85f487afb0
79 files changed
+813
No files matched your search
@@ -0,0 +1,9 @@
|
||||
# Bahagi para sa pag-usad na dumaan sa pagsusuri
|
||||
|
||||
Palawakin ang bahaging para sa level gamit ang sarili mong operasyong may malinaw na specification. Isumite ang ebidensiya ng matagumpay at inaasahang kabiguang mga kaso kasama ang paliwanag na maaaring suriin.
|
||||
|
||||
- Itala ang pinapayagang input at ipinangakong resulta.
|
||||
- Panatilihing nakabukas ang assertion checking at itala ang compiler settings.
|
||||
- Subukan ang mababa at mataas na wastong input at hiwalay na paglabag sa precondition.
|
||||
- Ipakitang nahuhuli ang sadyang maling body, at pagkatapos ay ibalik ito.
|
||||
- Ipaliwanag ang natitirang limitasyon at tukuyin ang susunod na hakbang sa pag-aaral.
|
||||
@@ -0,0 +1,18 @@
|
||||
pragma Assertion_Policy (Check);
|
||||
with Ada.Text_IO;
|
||||
|
||||
procedure Main is
|
||||
subtype Level is Integer range 0 .. 10;
|
||||
function Next_Level (Current : Level) return Level
|
||||
with Pre => Current < Level'Last,
|
||||
Post => Next_Level'Result = Current + 1;
|
||||
|
||||
function Next_Level (Current : Level) return Level is
|
||||
begin
|
||||
return Current + 1;
|
||||
end Next_Level;
|
||||
begin
|
||||
pragma Assert (Next_Level (0) = 1);
|
||||
pragma Assert (Next_Level (9) = 10);
|
||||
Ada.Text_IO.Put_Line ("Pumasa ang dalawang pagsusuri sa hangganan");
|
||||
end Main;
|
||||
Reference in new issue
Block a user