Hey people! Ive had to right a simulation to the game buzz-fizz..this is what the game is... One person starts of by calling out '1' then each player adds one to the previous players number and calls out that number unless it divides excatly by three or five.. If it divides by three he calls out "Buzz" and if it divides by five he calls out "fizz" instead of the number. If it divides by both three and five he calls out "buzz-fizz".
Now then the problem i'm having is the formatting of it!
This is my code for the game:
program BuzzFizz (input,output);
uses
crt;
var
number : integer;
begin {main program};
Clrscr;
for number := 1 to 100 do
begin
if (number mod 5 = 0) and (number mod 3 = 0 )
then begin
writeln (' ' , "Buzz - Fizz!", ' ')
end
else begin
if number mod 3 = 0
then begin
writeln (' ' , "Buzz!", ' ')
end;
if number mod 5 = 0
then begin
writeln (' ' , "Fizz!", ' ')
end;
if (number mod 5 <> 0) and (number mod 3 <> 0)
then begin
write (' ' , number:10, ' ');
end;
end;
end;
end.
Can someone please help me so that its readable on the screen and set out nicely..dont really have a clue about formatting