estructuras alternativas 1 (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 7
Fecha de subida 17/03/2015
Descargas 0

Vista previa del texto

Estructuras alternativas: 1) Diseñar un algoritmo y el correspondiente programa en pascal que, introducida la medida de un tornillo por el teclado muestre por la pantalla el texto correspondiente a la medida según la tabla: De Icm (incluido) a 3 cm (no incluidos) De 3cm (incluido) a 5 cm (no incluidos) De 5cm (incluido) a 6,5 cm (no incluidos) De 6,5cm (incluido) a 8,5 cm (no incluidos) Pequeño Mediano Grande Muy grande 2) Diseñar un algoritmo y el correspondiente programa en pascal que nos permita resolver una ecuación del segundo grado ax^ + bx + c = 0. La fórmula matemática para resolver esta ecuación es: x- -b±4b^ -Aac la Hay que tener en cuenta los casos especiales en su resolución: • • Si la ecuaciones de primer grado (a=0)se puede calcular con la ecuación x=-b/c Si las raíces son imaginarias se imprime un mensaje conforme no existe solución real En pascal para calcular la raíz cuadrada podemos utilizar SQRT(x) y para elevar al cuadrado SQR(x) i \ Fsi >^jc. (: w-í^ i ^ 2' ¿2Cc ( FU b Programa tornillos: VAR m: REAL; begin WRITE ('Introdueix la mida de un cargol:'); READLN (m); IF(m>=l)AND (m<3) THEN BEGIN WRITELN ('El cargol es petif); END ELSE IF(m >=3)AND(m<5) THEN BEGIN WRITELN ('El cargol es mitja'); END ELSE IF(m >= 5) AND (m< 6.5) THEN BEGIN WRITELN ('El cargol es gran'); END ELSE IF(m >= 6.5) AND (m< 8.5) THEN BEGIN WRITELN {'El cargol es molt gran'); END ELSE WRITELN ('valor invalid'); READLN; end.
Programa ecuación de segundo grado: VAR A, B, C, RESULTADOl, RESULTAD02, DISCRIMINANTE: REAL; begin WRITELNÍ'PROGRAMA PARA RESOLVER ECUACIONES DE SEGUNDO GRADO DEL TIPO AX2+BX+C=0'); WRITELN; WRITECINTRODUZCA VALOR DE A:'); READLN(A); WRITECINTRODUZCA VALOR DE B:'); READLN(B); WRITECINTRODUZCA VALOR DE C:'); READLN(C); WRITELN; IF (AoO) AND (BOO) AND (CoO) THEN BEGIN DISCRIMINANTE := B*B-4*A*C; IF DISCRIMINANTE>0 THEN BEGIN RESULTAD01:= (-B + SQRT(DISCRIMINANTE))/(2*A); RESULTAD02:= (-B - SQRT(DISCRIMINANTE))/(2*A); WRITELN('X=RESULTAD01:4:2;YX= ',RESULTAD02:4:2); end ELSE IF DISCRIMINANTE=0 THEN BEGIN RESULTAD01:= (-B) / (2*A); WRITELNCLA ECUACION PLANTEADA TIENE UNA SOLUCION DOBLE, X RESULTAD01:4:2); end ELSE IF DISCRIMINANTE<OTHEN WRITELNCNO EXISTE SOLUCION REAL A LA ECUACION PLATEADA'); END; IF (A=0) A N D (BoO) AND (CoO) THEN BEGIN RESULTAD01:= -C/B; WRITELNCX=', RESULTAD01:4:2); END; IF (B=0) A N D (A<0) A N D ( O O ) THEN BEGIN RESULTAD01:=(SQRT(B-4*A*C))/(2*A); RESULTAD02:=(-SQRT(B-4*A*C))/(2*A); WRITELN('X=', RESULTAD01:4:2,'YX= ',RESULTAD02:4:2); end; IF (B=0) A N D (A>0) A N D (C<0) THEN BEGIN RESULTAD01:=(SQRTÍB-4*A*C))/Í2*A); RESULTAD02:=(-SQRT(B-4*A*C))/(2*A); WRITELN('X= RESULTAD01:4:2,'Y X= ',RESULTAD02:4:2); end; IF (C=0) AND (BoO) AND (AoO) THEN BEGIN RESULTAD01:=-B/A; RESULTADO2:=0; WRITELN('X= RESULTAD01:4:2,'Y X= ',RESULTAD02:4:2); end; IF (B=0) AND (A>0) AND (OO) THEN WRITELNCNO EXISTE SOLUCION A LA ECUACION PLANTEADA'); IF (B=0) AND (A<0) AND (C<0) THEN WRITELNCNO EXISTE SOLUCION A LA ECUACION PLANTEADA'); IF (A=0) AND (B=0) AND (C=0) THEN WRITELNCEL RESULTADO DE LA ECUACION ES: X= O'); IF (A=0) AND (BoO) AND (C=0) THEN WRITELNCEL RESULTADO DE LA ECUACION ES: X= O'); IF (A=0) AND (B=0) AND (CoO) THEN WRITELNCEL RESULTADO DE LA ECUACION ES: X= O'); WRITELN; WRITELNCGRACIAS POR UTILIZAR ESTE PROGRAMA'); READLN; end.
...