need help in making the ball bounce in a parabolic
loop % This tells the program to start the loop.
var x, y, c, i, r, p : int %This is a variable it makes a space in the memory for the x, y, c, i, r, p;
%I selected int because i know the input has to be in integers.
var n, e, s : string %This is a variable it makes a space in the memory for the n, e, s;
%I selected string because i know the input has to be in letters.
put "Welcome to Waleed's bouncing ball program" % This displays the text on the run screen.
put " " % This displays the text on the run screen.
put "What is your name?" % This displays the text on the run screen.
get n % This gets the input from the user for the n.
put "Hi, ", n % This displays the text on the run screen with the n.
put n, ", What colour do you want the ball to be?(give a number 1=Blue, 10=Green, 15=grey, 255=Black or a number between 1-255) " % This displays the text on the run screen with the n.
get p % This gets the input from the user for the p.
put n, ", How big do you want the ball to be?(1-50)" % This displays the text on the run screen with the n.
get r % This gets the input from the user for the r.
put n, ", How fast do you want the ball to move?(1-30)" % This displays the text on the run screen with the n.
get i % This gets the input from the user for the i.
x := 10 % This declares what x is.
y := 600 % This declares what y is.
var yLimit : int % This sets the yLimit which means that the highest point the ball can reach.
yLimit := 400 % This declares what the ylimit is for the next for loop.
for cnt : 1 .. 15 % This is a for loop; it sets cnt as a variable and tells it to do something 15 times.
y := yLimit % This declares what y is equal to; y=yLimit.
loop % This tells the program to loop itself.
drawfilloval (x, y, r, r, p) % This tells the program to draw an oval and fill it, in which all the measurements are given by the user.
delay (i) % This delays the program for i seconds; i is a variable.
drawfilloval (x, y, r, r, white) % This tells the program to draw an oval and fill it, in which all the measurements are given by the user.
x := x + 2 % This declares what x is.
y := y - 10 % This declares what y is.
exit when y <= 25 % This tells the loop to exit when y=<25.
end loop % This tells the program to end the loop.
yLimit := yLimit - 30 % This declares what the ylimit is for the next for loop.
loop % This tells the program to loop itself.
drawfilloval (x, y, r, r, p) % This tells the program to draw an oval and fill it, in which all the measurements are given by the user.
delay (i) % This delays the program for i seconds; i is a variable.
drawfilloval (x, y, r, r, white) % This tells the program to draw an oval and fill it, in which all the measurements are given by the user.
x := x + 2 % This declares what x is.
y := y + 10 % This declares what y is.
exit when y >= yLimit % This tells the loop to exit when y>= yLimit.
end loop % This tells the program to end the loop.
exit when cnt <= 0 % This tells the big loop to exit when the cnt <= 0
end for % This ends this for loop.
put "Congratulations ", n, ", you just made a bouncing ball" % This displays the text on the run screen with the n.
put n, " type exit to exit or press c" % This displays the text on the run screen with the n.
get e % This gets the input from the user for the e.
if e = "exit" then
exit % This exits the program.
end if % This ends this if.
put n, " type start to try again" % This displays the text on the run screen with the n.
get s % This gets the input from the user for the s.
put " " % This displays the text on the run screen.
delay (5) % This delays the program for 0.05 seconds.
cls % This clears the screen.
end loop % This tells the program to end the loop. |
