heaven help my heart

fredag 11 mars 2011

procedure Tentaplugg(Hjälp : in out Panik_Type) is

begin

Get(Hjälp);
Put("Och vart fan tog facit vägen!?");

end Tentaplugg;

Kajsa sa...: plugg.adb 1: DEATH_ERROR; 11 mars 2011 kl. 22:06
Anonym sa...: tentaplugg.adb:1:30: unnessesary use of mod "in"
gnatmake: "tentaplugg.adb" compilation error

Så det gå!

---------------------------

Istället kan rekommenderas:

with Ada.Text_IO; use Ada.Text:IO;
with Tenta; use Tenta;

procedure Sätt_Femma is

F : File_Type;
A : Correct_Answer_Type

begin

Open(F, in, "Facit.TXT");
Get(F, A);

if Tentatime then
Put(Svar);
else
null;
end if;

end Sätt_Femma;; 12 mars 2011 kl. 01:01
anna sa...: haha, death-error! klockrent xD; 14 mars 2011 kl. 00:43
Lotta-potta sa...: Hahahahaha!

Pallar inte skriva ett program till, så jag säger bara LIIIIIIKE!!! :D; 14 mars 2011 kl. 22:06