Aprendiendo Estructura de Datos Como En Primaria

PROGRAMACION EN LENGUAJE daddy Subtemas Estructuras de Control de Programas Profesor Braulio Barrios Marzo de 2009 ESTRUCTURAS DE CONTROL DE PROGRAMAS EN pappa Como hemos dicho en clase, PASCAL es un lenguaje de programacion ESTRUCTURADO, por tal razon, provee sentencias conservation of parity cada una de las primitivas de la Programacion Estructurada, y son las siguientes 1. ESTRUCTURA CONDICIONAL CONDICIONAL SIMPLE O SENCILLO IF Expresion wherefore Begin Sentencia1 Sentencia2 . . Sentencia N End ================== 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 control del programa itere (repita) un proceso varias veces s egun se requiera. Son Tres (3) las estructuras repetitivas que provee PASCAL Repeat For, While, CICLO FOR FOR Asignacion TO Valor terminal 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 dada PROGRAM Tabla1 (* Resuelve el problema utilizando un ciclo repetitivo FOR *) USES Wincrt VAR I Integer BEGIN Clrscr gotoxy(20,5) indite ( 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.