How do I write fizzbuzz? I'll start. with Ada.Text_IO; procedure

Thread replies: 14
Thread images: 1

Anonymous
2016-07-05 00:13:29 Post No. 55416669
[Report] Image search: [Google]

File: 1408566969296.jpg (23 KB, 640x449) Image search: [Google]

Anonymous 2016-07-05 00:13:29 Post No. 55416669 [Report]

How do I write fizzbuzz? I'll start.
with Ada.Text_IO;
procedure Fizz_Buzz is

>>

Anonymous 2016-07-05 00:19:22 Post No.55416739
[Report]

Anonymous 2016-07-05 00:19:22 Post No.55416739 [Report]

Value: Integer:= 1;

>>

Anonymous 2016-07-05 00:20:24 Post No.55416749
[Report]

Anonymous 2016-07-05 00:20:24 Post No.55416749 [Report]

begin

>>

Anonymous 2016-07-05 00:25:14 Post No.55416832
[Report]

Anonymous 2016-07-05 00:25:14 Post No.55416832 [Report]

for Value < 100 loop

>>

Anonymous 2016-07-05 00:27:06 Post No.55416869
[Report]

Anonymous 2016-07-05 00:27:06 Post No.55416869 [Report]

if Value mod 15 = 0 then

>>

Anonymous 2016-07-05 00:28:52 Post No.55416894
[Report]

Anonymous 2016-07-05 00:28:52 Post No.55416894 [Report]

Ada.Text_IO.Put_Line("FizzBuzz");

>>

Anonymous 2016-07-05 00:30:56 Post No.55416932
[Report]

Anonymous 2016-07-05 00:30:56 Post No.55416932 [Report]

elsif Value mod 5 = 0 then

>>

Anonymous 2016-07-05 00:32:43 Post No.55416961
[Report]

Anonymous 2016-07-05 00:32:43 Post No.55416961 [Report]

Ada.Text_IO.Put_Line("Buzz");

>>

Anonymous 2016-07-05 00:33:54 Post No.55416976
[Report]

Anonymous 2016-07-05 00:33:54 Post No.55416976 [Report]

elsif Value mod 3 = 0 then

>>

Anonymous 2016-07-05 00:35:14 Post No.55416993
[Report]

Anonymous 2016-07-05 00:35:14 Post No.55416993 [Report]

Ada.Text_IO.Put_Line("Fizz");

>>

Anonymous 2016-07-05 00:36:19 Post No.55417006
[Report]

Anonymous 2016-07-05 00:36:19 Post No.55417006 [Report]

else

>>

Anonymous 2016-07-05 00:37:56 Post No.55417030
[Report]

Anonymous 2016-07-05 00:37:56 Post No.55417030 [Report]

Ada.Text_IO.Put_Line(Integer'Image(Value));

>>

Anonymous 2016-07-05 00:39:06 Post No.55417039
[Report]

Anonymous 2016-07-05 00:39:06 Post No.55417039 [Report]

end if;

>>

Anonymous 2016-07-05 00:40:12 Post No.55417048
[Report]

Anonymous 2016-07-05 00:40:12 Post No.55417048 [Report]

end Fizz_Buzz;