.: Men� :.

Made in Ecuador
:: Home :.
:: Programaci�n :.
 Introducci�n
 Soluci�n de un problema
 Objetivos de la Programaci�n
 Herramientas para Programar
 Programaci�n Estructurda
 Otras T�cnicas
:: Principiante :.
 �Que es Turbo Pascal?
 Estructura de un programa
 Declaraci�n de Variables
 Definici�n de Tipos
 Operadores
 Expresiones
 Instrucciones
 Procedimientos Entrada/Salida
 Mi primer Programa
 Ejercicios Propuestos
:: Medio :.
:: Estructuras de Control :.
   :: Selecci�n :.
 If...Then...Else
 Case...of...Else
   :: Bucles :.
 While...Do
 Repeat...Until
 For...to...Do
:: Tipos Estructurados :.
 Cadenas
 Vectores
 Matrices
 Registros
 Ejercicios Propuestos
:: Avanzado :.
 Archivos
 Punteros
 Modo Grafico
 Modo Print
 Ejercicios Propuestos
:: Experto :.
 Librerias
 Compiladores
 Manejo de Puertos LPT
 Base de Datos en Codigo
 Ejercicios Propuestos
:: Varios :.
 Codigo Fuente
 Resultado Ejercicios Propuestos
 Autor Pagina Web

Enviame un e-mail



Mi Primer Programa

Para la elavoraci�n de nuestro primer programa reuniremos todo lo que hasta ahora hemos aprendido aunque ya hemos hecho uno que otro peque�o programa aqui lo iremos comentando de forma clara procurando la legibilidad de progrma: La estructura basica de un programa siempre tendra las mismas declaraciones solo variara el proceso y la declaraci�n de los diferentes tipos a utilizar Program Mi_Primer_programa; {Observese que el nombre de el programa esta colocado} {con guiones bajos( _ ) esto se debe a que nunca se } {debe _ escribir con espacios} uses {Hacemos referencia a las diferentes librerias a utilizar} crt; {Esta libreria es una de las mas comunes} var {Lugar de declaracion de variables} n1,n2,s :Integer {Variables n1 ,n2, s de tipo entero} begin {Inicio del programa} clrscr; {Utilizado para limpiar pantalla} write('Ingrese valor n1 :'); {presentamos un mensaje al usuario} readln(n1); {guardamos en la variable n1 el valor ingreado} write('Ingrese valor n2: '); {Otro mensaje solicitando un segundo valor} readln(n2);{guardamos un segundo valor} s:=n1+n2; {calculamos y guardamos el resultado obtenido en la suma} write('La suma es: ',s){Presentamos el resultado obtenido} readln; end. {fin del programa}

CopyRight© 2003/2004, Diego Castillo. Todos los Derechos Reservados
Catamayo - Loja - Ecuador | Resoluci�n Minima 800x600
Estadisticas

Hosted by www.Geocities.ws

1