estructuras iterativas 2 (2015)

Apunte Español
Universidad Universidad Politécnica de Cataluña (UPC)
Grado Ingeniería Mecánica - 1º curso
Asignatura Informatica
Año del apunte 2015
Páginas 5
Fecha de subida 17/03/2015
Descargas 0

Vista previa del texto

Estructuras Iterativas (2): 1) Realizar un algoritmo y el correspondiente programa en pascal que compruebe el valor de un número entero y después calcule el factorial del número.
• • Dicho número ha de ser mayor que O y menor que 20 Si el número introducido no es correcto, el programa ha de volver a pedir un numero tantas veces como sea necesario 2) Realizar un algoritmo y ei correspondiente programa en pascal en el que el usuario introduce números enteros hasta que adivine un número generado por el ordenador entre O y 100. El programa avisará si el número introducido es más grande o más pequeño que el número generado aleatoriamente.
ka F fl Factorial: VAR l,N: LONGINT; FACT:REAL; begin WRITELNÍ'PROGRAMA PARA CALCULAR NI CON N VALIDO ÍO-20)'); WRITELN; WRITEÍ'INTRODUZCA N VALIDO'); READLNÍN); WRITELN; t , REPEAT BEGIN WRITELN Í'N INTRODUCIDO NO VALIDO'); WRITELNÍ'INTRODUZCA N VALIDO'); READLNÍN); end; until ÍÍN>=0) ANDÍN<=20)); IFÍN>=0) ANDÍN<=20) THEN BEGIN l:=0; FACT:=1; F0RI:=1T0ND0 BEGIN FACT:=FACT*I; end; WRITELNÍ'NI=',FACT:4:0) end; READLN; end.
Número aleatorio: ^ ^ ^ - ' var n, X:integer; begin ; ; L: A WRITELNÍ'PROGRAMA PARA ADIVINAR UN NUMERO ALEATORIO GENERADO POR EL ORDENADOR 0-100'); WRITELN; WRITEÍ'INTRODUZCA NUMERO'); READLNÍX); randomize; N:=RANDOM{101); WRITELN; WHILEÍX<N)DO BEGIN WRITELNÍ'EL NUMERO INTODUCIDO ES MAS PEQUENYO QUE EL GENERADO'); WRITEÍ'INTRODUZCA UN NUEVO NUMERO '); READLNÍX); WRITELN; end; WHILE ÍX>N) DO BEGIN WRITELNÍ'EL NUMERO INTODUCIDO ES MAS GRANDE QUE EL GENERADO'); WRITEÍ'INTRODUZCA UN NUEVO NUMERO '); READLN(X); end; IF(X=N)THEN BEGIN WRITELNÍ'EL NUMERO INTRODUCIDO ES IGUAL QUE EL GENERADO') end; READLN; end.
...