tag:blogger.com,1999:blog-17847432881765887002010-04-24T15:34:16.768-03:00Mis incursiones como estudiante en Informática, y usuaria veterana de la computadora personal.M.G.http://www.blogger.com/profile/09776773609140659254noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-1784743288176588700.post-85876258279342439262009-08-29T17:21:00.000-03:002009-08-29T17:25:07.744-03:00

{ Dibuja un cuadrado en forma secuencial. Nuevas funciones: * gotoxy(x: int, y: int) ubica el puntero (no flecha) en las coordenadas ingresadas * delay(ms: int) retrasa el programa por x milisegundos (1 seg = 1000 ms)}program HelloWorldSquare;uses crt;var y, x, f_x, f_y, t_x, t_y: integer;{ f_* = desde, from t_* = hasta, to}begin clrscr; f_x := 20; f_y := 10; t_x := f_x + 20; t_y := f_y + 10;

M.G.http://www.blogger.com/profile/09776773609140659254noreply@blogger.com0tag:blogger.com,1999:blog-1784743288176588700.post-36181617531677908112009-08-29T17:19:00.001-03:002009-08-29T17:20:51.047-03:00

program Escape;uses crt;var i: integer;begin writeln('Para salir del programa presione [ESC] cuando el programa diga que tipo de numero ingreso.'); repeat write('Ingrese numero: '); readln(i); if(i >= 0) then writeln('Positivo!') else writeln('Negativo!'); until(ord(readkey) = 27);end.

M.G.http://www.blogger.com/profile/09776773609140659254noreply@blogger.com0