ADA-Tentan
with Ada.Text_IO; use Ada.Text_IO;
procedure Tenta_Result is
---
function Result(K : in Care_type) return Integer is
begin
return 4;
end Result;
---
begin
Put("Trott eller ej så fick jag en ");
Put(Result(K));
Put("på tentan idag!");
end Tenta_Result;
---
Om man skulle köra mitt program så skulle det se ut såhär (kompilatorn hade nog gnällt en aning):
Trott eller ej så fick jag en 4 på tentan idag!
Kommentarer
Trackback
