Aprendiendo Estructura de Datos Como En Primaria

PROGRAMACION EN LENGUAJE PASCAL Subtemas Estructuras de Control de Programas Profesor Braulio Barrios Marzo de 2009 ESTRUCTURAS DE go for DE PROGRAMAS EN PASCAL Como hemos dicho en clase, PASCAL es un lenguaje de programacion ESTRUCTURADO, por tal razon, provee sentencias para cada una de las primitivas de la Programacion Estructurada, y son las siguientes 1. ESTRUCTURA CONDICIONAL CONDICIONAL naive O SENCILLO IF Expresion hence write down Sentencia1 Sentencia2 . . Sentencia N eat up ================== CONDICIONAL DOBLE IF Expresion THEN Begin Sentencia1 Sentencia2 . Sentencia N End ELSE Begin (* Observe que NO se escribe Antes del ELSE *)Sentencia A Sentencia B . . Sentencia Z End ================== CONDICIONAL ANIDADO IF Expresion1 THEN Begin IF Expresion2 THEN Begin IF Expresion3 THEN Begin Sentencia1 Sentencia2 . . Sentencia N End End End 2. ESTRUCTURAS DE CONTROL REPETITIVAS Permiten que el suss out del programa itere (repita) un proceso varias veces segun se re quiera. Son Tres (3) las estructuras repetitivas que provee PASCAL Repeat For, While, CICLO FOR FOR Asignacion TO Valor Final DO Begin Sentencia1 Sentencia2 . Sentencia N End CICLO WHILE WHILE Expresion DO Begin Sentencia1 Sentencia2 . . Sentencia N Modificar expresion End CICLO REPEAT REPEAT (* Observe que no require BEGIN END *) Sentencia1 Sentencia2 . . Sentencia N Modificar expresion UNTIL (Expresion) Quiero ilustrar el uso de ciclos repetitivos en PASCAL para lo cual resolveremos el siguiente ejercicio Escriba un programa que permita mostrar en pantalla la tabla de multiplicar del 5, asi 5 5 5 X 1 = 5 X 2 = 10 X 3 = 15 Algoritmo1 (usando ciclo FOR) TABLA1 1 HASTA 10 Haga PARA I Escriba( 5 X , I , =, 5*I) FIN PARA FIN TABLA1Programa Pascal PROGRAM Tabla1 (* Resuelve el problema utilizando un ciclo repetitivo FOR *) USES Wincrt VAR I integer BEGIN Clrscr gotoxy(20,5) WRITE ( TABLA DE MULTIPLICAR DEL 5 ) FOR I = 1 TO 10 DO BEGIN WRITELN( 5 X , I, = , 5 * i) END gotoxy(20, 20) WRITE (Pulse ENTER para terminar) READKEY END. Algoritmo2 (usando ciclo WHILE) TABLA2 I 1 MQ I 10) (* Si lo desea puede omitir los parentesis *) (* Tenga en cuenta que UNTIL significa HASTA y No MIENTRAS *) gotoxy(20,20) WRITE (Pulse ENTER para terminar) READKEY END.