Pelota en Pascal

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

Please download to get full document.

View again

of 3
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

Extension: DOCX | Download: 0

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
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks