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,14 @@
|
||||
pragma Assertion_Policy (Check);
|
||||
with Ada.Text_IO;
|
||||
|
||||
procedure Main is
|
||||
function Passed (Score : Integer) return Boolean is
|
||||
begin
|
||||
return Score >= 70;
|
||||
end Passed;
|
||||
begin
|
||||
pragma Assert (not Passed (69));
|
||||
pragma Assert (Passed (70));
|
||||
pragma Assert (Passed (71));
|
||||
Ada.Text_IO.Put_Line ("Threshold checks passed");
|
||||
end Main;
|
||||
Reference in new issue
Block a user