ProgramacionFacil

UNIDAD 2: PASCAL CONTROL DE PROGRAMA

TEMA 7: CICLO FOR PASCAL

Instrucciones para ciclos resuelven el problema de repetir todo el programa o cierta parte del programa mas de una vez.

Este ciclo es uno de los mas usados para repetir una secuencia de instrucciones, sobre todo cuando se conoce la cantidad exacta de veces que se quiere que se ejecute una instruccion simple o compuesta.

Su formato general es:

for VARCONTROL := ValorInicial to ValorFinal do

begin instrucciones; end;

EJEMPLO

Codigo prog4.pas


program prog4;

uses crt;

var

x:integer;

begin

clrscr;

for x:= 1 to 5 do

begin

gotoxy(10,4+x);write(x,' tecnologico');

end;

readln;

end.

corrida:

image236.jpg

En pascal solo puede haber incrementos de uno en uno, lo mas que existen son decrementos de uno en uno, usando la instruccion:

for VarControl := ValIniGde DOWNTO ValFinChico do

begin instruccion(es); end;

Se pueden usar los siguientes casos;

a) valor incial diferente de uno ejemplo for x:= 5 to 8 do etc

b) valor inicial negativo for x:= -5 to 3 do etc

c) para incrementos diferentes de uno en uno , usar dentro del begin end un acumulador del tipo x := x + 5 pero recordar que el ultimo valor del ciclo corresponda con el valor de parada o la maquina se les cicla y se van divertir mucho cuando esto les pase.

d) para decrementos diferentes de uno en uno usar una tecnica similar x:= x- 20 dentro de un ciclo for DOWNTO, pero recordar la nota anterior.

TAREAS PROGRAMACION PASCAL :

1.- CONSTRUIR UN PROGRAMA QUE DESPLIEGUE LOS NUMEROS DEL 20 AL 30.

2.- DESPLEGAR LOS ENTEROS ENTRE 50 Y 30 ACOMPANADOS DE SU POTENCIA CUADRADA Y RAIZ CUBICA RESPECTIVA(revisar el tema de operadores aritmeticos).

3.- DESPLEGAR LOS MULTIPLOS DE 5, ENTRE 10 Y 50, ACOMPANADOS DE SU FACTORIAL (este algortimo lo tienen que buscar en el www) Y LOGARITMO RESPECTIVO(revisar el tema de operadores aritmeticos tambien).

4.- DESPLEGAR LA TABLA DE MULTIPLICAR QUE EL USUARIO INDIQUE.

5.- EVALUAR LA FUNCION Y=5X^2 + 3X + 8 CUANDO X–> -3…10 (RANGO DE -3 HASTA 10)

 




 


Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki

Politica de Privacidad