Gratulációk

Started by Kuroi Tenshi, 2006-03-11, 11:33:23

Previous topic - Next topic

SaiyaGin

Bsz gerey és White SeeD!  :appl:

frozenstein


SaiyaGin


Megmurdel


Fazék

köszönöm, köszönöm, nem kis teljesítmény tőlem, hogy minden évben tartok egyet, de hát én már csak ilyen nagylelkű vagyok.

Flaser

Kórus: Kicsit megkésve, de...
Én: Boldog szülinapot Fazék!
"Logically sound? How laughable. The only thing that people use logic for is to see what they want to see and disregard what they do not."

gerey

Quote from: Flaser on 2015-01-21, 10:23:53
Kórus: Kicsit megkésve, de...
Én: Boldog szülinapot Fazék!
+1 :D

gerey


danika230


SaiyaGin


frozenstein


Megmurdel

#8741
BSZ OJ!  :kocc:

valamint

BSZ kikuchiyo & Member!  :kocc:

Próféta

BSZ kikuchiyo és Member!
Plusz boldogat mindenkinek, akiről lemaradtam!

gerey

HB kikuchiyo és Member!

danika230

BSZ kikuchiyo és Member!  :kocc:

Flaser

Boldog szülinapot kikuchiyo és Member!  :kocc:
"Logically sound? How laughable. The only thing that people use logic for is to see what they want to see and disregard what they do not."

kikuchiyo

kikuchiyo@aryabhata:~/projects/birthday$ cat lofasz.adb
with Ada.Text_IO;

procedure lofasz is
subtype Still_Not_Totally_Hopeless_Age is Natural range 0..31;

procedure birthday(Age : in out Still_Not_Totally_Hopeless_Age ) is
begin
Age := Age + 1;
end birthday;

Your_Age : Still_Not_Totally_Hopeless_Age := 31;
begin
birthday(Your_Age);

Ada.Text_IO.Put_Line("Congratulations, your new age is " &
                      Still_Not_Totally_Hopeless_Age'Image(Your_Age));
end lofasz;


kikuchiyo@aryabhata:~/projects/birthday$ gnat make lofasz.adb
gcc-4.6 -c lofasz.adb
gnatbind -x lofasz.ali
gnatlink lofasz.ali


kikuchiyo@aryabhata:~/projects/birthday$ ./lofasz

raised CONSTRAINT_ERROR : lofasz.adb:8 range check failed


:(
Failure is the default option

NLZ

Quote from: kikuchiyo on 2015-01-24, 16:53:12
kikuchiyo@aryabhata:~/projects/birthday$ cat lofasz.adb
with Ada.Text_IO;

procedure lofasz is
subtype Still_Not_Totally_Hopeless_Age is Natural range 0..31;

procedure birthday(Age : in out Still_Not_Totally_Hopeless_Age ) is
begin
Age := Age + 1;
end birthday;

Your_Age : Still_Not_Totally_Hopeless_Age := 31;
begin
birthday(Your_Age);

Ada.Text_IO.Put_Line("Congratulations, your new age is " &
                      Still_Not_Totally_Hopeless_Age'Image(Your_Age));
end lofasz;


kikuchiyo@aryabhata:~/projects/birthday$ gnat make lofasz.adb
gcc-4.6 -c lofasz.adb
gnatbind -x lofasz.ali
gnatlink lofasz.ali


kikuchiyo@aryabhata:~/projects/birthday$ ./lofasz

raised CONSTRAINT_ERROR : lofasz.adb:8 range check failed


:(
Fel a fejjel, ennél csak jobb lesz. :)
http://www.smbc-comics.com/?id=2436
[reserved]

frozenstein


SaiyaGin

Bsz kikuchiyo és Member! :appl:

Damnatus


Flaser

"Logically sound? How laughable. The only thing that people use logic for is to see what they want to see and disregard what they do not."

SaiyaGin

Boldog szülinapot, Moha!

frozenstein


frozenstein


Megmurdel


danika230


SaiyaGin

Boldogat, chilip! :appl:

Cloud

Boldogat Chilip! :hopp:

chilip