# Pelota en Pascal

Description
Programa de una pelota que rebota en dos pilares en pascal

View again

All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
Information
Category:

## Documents

Publish on:

Views: 4 | Pages: 3

Share
Transcript
program pelota;{Programa que muestra el rebote de una pelota a traves de dos pilaresElaborado por: Kevin Alexander Marnez Vazquez}uses rt;var x! !:longint; begin #riteln\$%&ue veloidad deseas para la pelota'%(; readln\$(; {pared izquierda} gotox \$)*!+(; #riteln\$,r\$-)+((; gotox \$)*!).(; #riteln\$,r\$-)+((; gotox \$)*!))(; #riteln\$,r\$-)+((; gotox \$)*!)-(; #riteln\$,r\$-)+((; gotox \$)*!)/(; #riteln\$,r\$-)+((; gotox \$)*!)0(; #riteln\$,r\$-)+((; gotox \$)*!)1(; #riteln\$,r\$-)+((; {Pared dere,a} gotox \$21!+(; #riteln\$,r\$-)+((;   gotox \$21!).(; #riteln\$,r\$-)+((; gotox \$21!))(; #riteln\$,r\$-)+((; gotox \$21!)-(; #riteln\$,r\$-)+((; gotox \$21!)/(; #riteln\$,r\$-)+((; gotox \$21!)0(; #riteln\$,r\$-)+((; gotox \$21!)1(; #riteln\$,r\$-)+((; repeat x:32/;  :3)-; repeat begin gotox \$x! (; #rite\$% %(; x:3x4); gotox \$x! (; #rite\$%5%(; dela \$(; end; unl x320; i6 x320 t,en begin sound\$)-.(; dela \$-..(;   nosound; x:320;  :3)-; repeat gotox \$x! (; #rite\$% %(; x:3x7); gotox \$x! (; #rite\$%5%(; dela \$(; unl x3)8; i6 x3)8 t,en sound\$)-.(; dela \$-..(; nosound; x:3)8;  :3)-; repeat gotox \$x! (; #rite\$% %(; x:3x4); gotox \$x! (; #rite\$%5%(; dela \$(; unl x320; end; unl 9e pressed; read9e ; end
Related Search
Similar documents

View more...