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 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 son las siguientes: 1. – ESTRUCTURA CONDICIONAL CONDICIONAL SIMPLE O SENCILLO †¦ IF Expresion THEN 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 contr ol del programa itere (repita) un proceso varias veces segun se requiera. 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 : I nteger; 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.