Aprendiendo Estructura de Datos Como En Primaria Free Essays

PROGRAMACION EN LENGUAJE PASCAL Subtemas : Estructuras de Control de Programas Profesor : Braulio Barrios †Marzo de 2009 ESTRUCTURAS DE CONTROL 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 child las siguientes: 1. †ESTRUCTURA CONDICIONAL SIMPLE O SENCILLO †¦ IF Expresion THEN Begin Sentencia1; Sentencia2; . . We will compose a custom paper test on Aprendiendo Estructura de Datos Como En Primaria or on the other hand any comparative theme just for you Request Now 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 segun se requiera. Child 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 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 TABLA1 Programa 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. Step by step instructions to refer to Aprendiendo Estructura de Datos Como En Primaria, Papers