• Author / Uploaded
• Lenin Alfaro Vidal

Citation preview

LENGUAJE DE PROGRAMACIÓN

Contenido ESTRUCTURA SECUENCIAL CON FORTRAN ......................................................................................... 4 PROBLEMA 1 ................................................................................................................................... 4 PROBLEMA 2 ................................................................................................................................... 4 PROBLEMA 3 ................................................................................................................................... 4 PROBLEMA 4 ................................................................................................................................... 4 PROBLEMA 5 ................................................................................................................................... 4 PROBLEMA 6 ................................................................................................................................... 4 PROBLEMA 7 ................................................................................................................................... 4 PROBLEMA 8 ................................................................................................................................... 5 PROBLEMA 9 ................................................................................................................................... 5 PROBLEMA 10 ................................................................................................................................. 5 PROBLEMA 11 ................................................................................................................................. 5 PROBLEMA 12 ................................................................................................................................. 5 PROBLEMA 13 ................................................................................................................................. 5 PROBLEMA 14 ................................................................................................................................. 6 PROBLEMA 15 ................................................................................................................................. 6 PROBLEMA 16 ................................................................................................................................. 6 PROBLEMA 17 ................................................................................................................................. 6 PROBLEMA 18 ................................................................................................................................. 6 PROBLEMA 19 ................................................................................................................................. 6 PROBLEMA 20 ................................................................................................................................. 7 PROBLEMA 21 ................................................................................................................................. 7 PROBLEMA 22 ................................................................................................................................. 7 PROBLEMA 23 ................................................................................................................................. 7 PROBLEMA 24 ................................................................................................................................. 7 PROBLEMA 25 ................................................................................................................................. 8 PROBLEMA 26 ................................................................................................................................. 8 PROBLEMA 27 ................................................................................................................................. 8 PROBLEMA 28 ................................................................................................................................. 8 PROBLEMA 29 ................................................................................................................................. 8 Profesor: Ing. CHAUCA NOLASCO WILLIAM

LENGUAJE DE PROGRAMACIÓN

PROBLEMA 30 ................................................................................................................................. 9 PROBLEMA 31 ................................................................................................................................. 9 PROBLEMA 32 ................................................................................................................................. 9 PROBLEMA 33 ................................................................................................................................. 9 PROBLEMA 34 ................................................................................................................................. 9 PROBLEMA 35 ............................................................................................................................... 10 PROBLEMA 36 ............................................................................................................................... 10 PROBLEMA 37 ............................................................................................................................... 10 PROBLEMA 38 ............................................................................................................................... 11 PROBLEMA 39 ............................................................................................................................... 11 PROBLEMA 40 ............................................................................................................................... 11 PROBLEMA 41 ............................................................................................................................... 12 PROBLEMA 42 ............................................................................................................................... 12 PROBLEMA 43 ............................................................................................................................... 12 PROBLEMA 44 ............................................................................................................................... 13 PROBLEMA 45 ............................................................................................................................... 13 PROBLEMA 47 ............................................................................................................................... 14 PROBLEMA 48 ............................................................................................................................... 15 PROBLEMA 49 ............................................................................................................................... 16 PROBLEMA 50 ............................................................................................................................... 16 PROBLEMA 51 ............................................................................................................................... 17 PROBLEMA 52 ............................................................................................................................... 17 PROBLEMA 53 ............................................................................................................................... 17 PROBLEMA 54 ............................................................................................................................... 18 PROBLEMA 55 ............................................................................................................................... 18 PROBLEMA 56 ............................................................................................................................... 18 PROBLEMA 57 ............................................................................................................................... 19 PROBLEMA 58 ............................................................................................................................... 19 ESTRUCTURAS REPETITIVAS CON FORTRAN ..................................................................................... 20 PROBLEMA 59 ............................................................................................................................... 20 PROBLEMA 60 ............................................................................................................................... 20 Profesor: Ing. CHAUCA NOLASCO WILLIAM

LENGUAJE DE PROGRAMACIÓN

PROBLEMA 61 ............................................................................................................................... 20 PROBLEMA 62 ............................................................................................................................... 21 PROBLEMA 63 ............................................................................................................................... 21 PROBLEMA 64 ............................................................................................................................... 21 PROBLEMA 65 ............................................................................................................................... 22 PROBLEMA 66 ............................................................................................................................... 22 PROBLEMA 69 ............................................................................................................................... 22 PROBLEMA 70 ............................................................................................................................... 23 PROBLEMA 71 ............................................................................................................................... 23 PROBLEMA 72 ............................................................................................................................... 24 PROBLEMA 74 ............................................................................................................................... 24 PROBLEMA 76 ............................................................................................................................... 25 PROBLEMA 77 ............................................................................................................................... 25 PROBLEMA 78 ............................................................................................................................... 26 PROBLEMA 79 ............................................................................................................................... 26 PROBLEMA 80 ............................................................................................................................... 27

Profesor: Ing. CHAUCA NOLASCO WILLIAM

LENGUAJE DE PROGRAMACIÓN

ESTRUCTURA SECUENCIAL CON FORTRAN PROBLEMA 1 PROGRAM PROBLEMA_1 PRINT*,"INGRESE LA NOTA 1" READ*,N1 PRINT*,"INGRESE LA NOTA 2" READ*,N2 PRINT*,"INGRESE LA NOTA 3" READ*,N3 PRINT*,"INGRESE LA NOTA 4" READ*,N4 PROMEDIO=(N1+N2+N3+N4)/4 PRINT*,"EL PROMEDIO DE NOTAS ES:",PROMEDIO END PROGRAM PROBLEMA_1

PROBLEMA 4 PROGRAM PROBLEMA_4 PRINT*,"INGRESE LADO A" READ*,A PRINT*,"INGRESE LADO B" READ*,B PRINT*,"INGRESE LADO C" READ*,C S=(A+B)*C/2 PRINT*,"EL AREA DEL TERRENO ES=",S END PROGRAM PROBLEMA_4

PROBLEMA 5 PROGRAM PROBLEMA_5 REAL:: R,H PRINT*,"INGRESE EL RADIO Y H" READ*,R,H Profesor: Ing. CHAUCA NOLASCO WILLIAM

PROBLEMA 2 PROGRAM PROBLEMA_2 REAL::B,H,A PRINT*,"INGRESE LA BASE Y ALTURA" READ*,B,H A=B*H PRINT*,A END PROGRAM PROBLEMA_2

PROBLEMA 3 PROGRAM PROBLEMA_3 REAL::R,A PRINT*,"INGRESE EL RADIO DE LA CIRCUNFERENCIA" READ*, R C=SQRT(H*H-R*R) AT=2*(R*C)/2 AC=(PI*R*R)/2 A=AT+AC PRINT*,A END PROGRAM PROBLEMA_5

PROBLEMA 6 PROGRAM PROBLEMA_6 PRINT*,"INGRESE LOS LITROS DE LECHE" READ*,L G=L/3.785 PRINT*,"GALONES DE LECHE QUE TIENE" END PROGRAM PROBLEMA_6

PROBLEMA 7 PROGRAM PROBLEMA_7 IMPLICIT NONE REAL::A,B,C,F,D,X,Y

LENGUAJE DE PROGRAMACIÓN

PRINT*, "INGRESE LAS COORDENADAS DEL PUNTO A" READ*,A,B PRINT*, "INGRESE LAS COORDENADAS DEL PUNTO B" READ*,C,F X=A-C Y=B-F D=SQRT(X*X+Y*Y) PRINT*,D END PROGRAM PROBLEMA_7

PROBLEMA 8 PROGRAM PROBLEMA_8 REAL::NUM,HOR,PA PRINT*,"INGRESE EL NUMERO DE HORAS" READ*,NUM PRINT*,"INGRESE EL PAGO POR HORA " READ*,PA PA =PA*HOR PRINT*, PA END PROGRAM PROBLEMA_8

READ*,A PRINT*,"INGRESAR LARGO EN METROS" READ*,L PRINT*,"INGRESAR ANCHO EN METROS" READ*,ANCH PRINT*,"INGRESAR COSTO POR METRO CUBICO" READ*,COST_MET VOL=A*L*ANCH PAG_TOT=VOL*COST_MET PRINT*,"EL PAGO TOTAL ES: ",PAG_TOT END PROGRAM PROBLEMA_10

PROBLEMA 11 PROGRAM PROBLEMA_11 REAL:: B,H,A PRINT*,"INGRESE LA BASE Y LA ALTURA" READ*,B,H A=B*H*0.5 PRINT*,A END PROGRAM PROBLEMA_11

PROBLEMA 12 PROBLEMA 9 PROGRAM PROBLEMA_9 REAL::M,MED_PULG PRINT*,"INGRESAR MEDIDA EN METROS" READ*,M MED_PULG=M/0.0254 PRINT*,"LA MEDIDA EN PULGADAS ES: ",MED_PULG END PROGRAM PROBLEMA_9

PROBLEMA 10 PROGRAM PROBLEMA_10 REAL::A,L,ANCH,COST_MET,VOL,PAG_TOT PRINT*,"INGRESAR ALTURA EN METROS" Profesor: Ing. CHAUCA NOLASCO WILLIAM

PROGRAM PROBLEMA_12 REAL::T_C,PES_MEX PRINT*,"INGRESAR TIPO DE CAMBIO " READ*,T_C PRINT*,"INGRESAR CANTIDAD DE PESOS A CAMBIAR " READ*,PES_MEX CANT_DOL=PES_MEX/T_C PRINT*,"LA CANTIDAD DE DOLARES A ADQUIRIR SERA:",CANT_DOL END PROGRAM PROBLEMA_12

PROBLEMA 13 PROGRAM PROBLEMA_13 INTEGER::E,A

LENGUAJE DE PROGRAMACIÓN

PRINT*,"INGRESE EL AÑO EN QUE NACIO" READ*,A E=2017-A PRINT*,E END PROGRAM PROBLEMA_13

PROBLEMA 14 PROGRAM PROBLEMA_14 INTEGER::HORAS_COMP REAL::HORAS_FRACC,COST_X_HR,COBRO REAL::HRS_COMP,COBRO_HRS_FRACC,COBRO_HRS_TOTAL PRINT*,"INGRESAR HORAS COMPLETAS " READ*,HORAS_COMP PRINT*,"INGRESAR FRACCION DE HORA" READ*,HORAS_FRACC PRINT*,"INGRESAR COSTO POR HORA" READ*,COST_X_HR COBRO_HRS_COMP=HORAS_COMP*COST_X_HR COBRO_HRS_FRACC=COST_X_HR COBRO_HRS_TOTAL=COBRO_HRS_COMP+COBRO_HRS_FRACC PRINT*,"EL COBRO TOTAL POR ESTACIONAR EL AUTO ES:",COBRO_HRS_TOTAL END PROGRAM PROBLEMA_14

PROBLEMA 15 PROGRAM PROBLEMA_15 REAL::M,PA PRINT*,”INGRESE EL NUMERO DE METROS CUADRADOS” READ*,M PRINT*,”INGRESE EL PAGO POR METRO CUADRADO” READ*,PA PA=PA*M PRINT*,PA END PROGRAM PROBLEMA_15 Profesor: Ing. CHAUCA NOLASCO WILLIAM

PROBLEMA 16 PROGRAM PROBLEMA_16 REAL::A,B,H PRINT*,”INGRESE LOS CATETOS DEL TRIANGULO RECTANGULO” READ*,A,B H=SQRT(A*A+B*B) PRINT*,H END PROGRAM PROBLEMA_16

PROBLEMA 17 PROGRAM PROBLEMA_17 REAL::K,PA PRINT*,”INGRESE LOS KILOMETROS RECORRIDO” READ*,K PRINT*,”INGRESE EL PAGO POR KILOMETRO” READ*,PA PA=PA*K PRINT*,PA END PROGRAM PROBLEMA_17

PROBLEMA 18 PROGRAM PROBLEMA_18 PRINT*,"INGRESE DISTANCIA Y VELOCIDAD RESPECTIVAMENTE" READ*,D,V T=D/V PRINT*,"EL TIEMPO DE LLEGADA ES= ",T END PROGRAM PROBLEMA_18

PROBLEMA 19 PROGRAM PROBLEMA_19 INTEGER::HORAS,MIN REAL::COST_MIN,COB_X_H,COB_X_MIN,COB_TOT PRINT*,"INGRESAR HORAS QUE DURO LA LLAMADA " READ*,HORAS PRINT*,"INGRESAR MINUTOS"

LENGUAJE DE PROGRAMACIÓN

READ*,MIN PRINT*,"INGRESAR COSTO POR MINUTO DE LLAMADA" READ*,COST_MIN COB_X_H=HORAS*60*COST_MIN COB_X_MIN=MIN*COST_MIN COB_TOT=COB_X_H+COB_X_MIN PRINT*,"EL COBRO TOTAL ES:",COB_TOT END PROGRAM PROBLEMA_19

PROBLEMA 20 PROGRAM PROBLEMA_20 REAL::M,P,C PRINT*,"METROS CUBICOS DE AGUA CONSUMIDO" READ*,M PRINT*, "PAGO POR METROS CUBICOS DE AGUA" READ*, P C=P*M PRINT*, "PAGO A SEDAPAL",C END PROGRAM PROBLEMA_20

PROBLEMA 21 PROGRAM PROBLEMA_21 REAL::C,KWAT PRINT*,”INGRESE LOS KILOWAT” READ*,C PRINT*,”INGRESE EL COSTO POR KILOWAT” READ*,KWAT C=C*KWAT PRINT*,C END PROGRAM PROBLEMA_21

PROBLEMA 22 PROGRAM PROBLEMA_22 REAL::PRECIO_LISTA,PREC_CON_DESC,PREC_CONIGV Profesor: Ing. CHAUCA NOLASCO WILLIAM

PRINT*,"INGRESAR PRECIO DEL ARTICULO " READ*,PRECIO_LISTA PREC_CON_DESC=0.80*PRECIO_LISTA PREC_CONIGV= PREC_CON_DESC *1.18 PRINT*,"EL PRECIO CON DESCUENTO ES:",PREC_CON_DESC PRINT*,"EL PRECIO FINAL ES:",PREC_CONIGV END PROGRAM PROBLEMA_22

PROBLEMA 23 PROGRAM PROBLEMA_23 REAL::S,X PRINT*,"INGRESAR SUELDO" READ*,S X=S*48*0.15 PRINT*,X END PROGRAM PROBLEMA_23

PROBLEMA 24 PROGRAM PROBLEMA_24 INTEGER::NUM_D REAL::GAST_HT,GAST_COM,G_T_HT,G_T_COM,OTR_GAST_TOT,CHEQ PRINT*,"INGRESE NUMERO DE DIAS QUE SE HOSPEDARA:" READ*,NUM_D PRINT*,"INGRESAR GASTO DIARIO EN HOTEL " READ*,GAST_HT PRINT*,"INGRESAR GASTO DIARIO EN COMIDA" READ*,GAST_COM G_T_HT=NUM_D*GAST_HT G_T_COM=NUM_D*GAST_COM OTR_GAST_TOT=100*NUM_D CHEQ=OTR_GAST_TOT+G_T_HT+G_T_COM PRINT*,"EL GASTO TOTAL EN COMIDA ES",G_T_COM PRINT*,"EL GASTO TOTAL EN HOTEL ES",G_T_HT

LENGUAJE DE PROGRAMACIÓN

PRINT*,"GASTOS TOTALES POR OTROS CONCEPTOS ES:",OTR_GAST_TOT PRINT*, "EL MONTO TOTAL DEL CHEQUE ES",CHEQ END PROGRAM PROBLEMA_24

PROBLEMA 25 PROGRAM PROBLEMA_25 REAL::P,V,I PRINT*,”INGRESE LA INTENSIDAD” READ*,I R=4 V=R*I P=v*I PRINT*,P END PROGRAM PROBLEMA_25

PROBLEMA 26 PROGRAM PROBLEMA_26 REAL::X,S PRINT*, "INGRESE EL LADO DEL CUADRADO" READ*,X S=X**2 PRINT*, "AREA DEL CUADRADO", S END PROGRAM PROBLEMA_26

PROBLEMA 27 PROGRAM PROBLEMA_27 REAL::P,C1,C2,C3 PRINT*,”INGRESE LA PRIMERA CALIFICACION” READ*,C1 PRINT*,”INGRESE LA SEGUNDA CALIFICACION” READ*,C2 PRINT*,”INGRESE LA TERCERA CALIFICACION” READ*,C3 Profesor: Ing. CHAUCA NOLASCO WILLIAM

P=0.25*C1+0.25*C2+0.5*C3 PRINT*,P END PROGRAM PROBLEMA_27

PROBLEMA 28 PROGRAM PROBLEMA_28 INTEGER::AN_ACT,AN_NAC,MES_VIV,DIAS_VIV,SEM_VIV,HRS_VIV PRINT*,"INGRESE ANIO ACTUAL" READ*,AN_ACT PRINT*,"INGRESAR ANIO DE NACIMIENTO " READ*,AN_NAC MES_VIV=(AN_ACT-AN_NAC)*12 SEM_VIV=MES_VIV*4 DIAS_VIV=SEM_VIV*7 HRS_VIV= DIAS_VIV*24 PRINT*,"EL TOTAL DE MESES VIVIDOS ES:",MES_VIV PRINT*,"EL TOTAL DE SEMANAS VIVIDAS ES:",SEM_VIV PRINT*,"EL TOTAL DE DIAS VIVIDOS ES:",DIAS_VIV PRINT*,"EL TOTAL DE HORAS VIVIDAS ES:",HRS_VIV END PROGRAM PROBLEMA_28

PROBLEMA 29 PROGRAM PROBLEMA_29 INTEGER::HORAS,MIN REAL::COST_MIN,COB_X_H,COB_X_MIN,COB_TOT PRINT*,"INGRESAR HORAS QUE DURO LA LLAMADA " READ*,HORAS PRINT*,"INGRESAR MINUTOS" READ*,MIN PRINT*,"INGRESAR COSTO POR MINUTO DE LLAMADA" READ*,COST_MIN COB_X_H=HORAS*60*COST_MIN COB_X_MIN=MIN*COST_MIN COB_TOT=COB_X_H+COB_X_MIN

LENGUAJE DE PROGRAMACIÓN

PRINT*,"EL COBRO TOTAL ES:",COB_TOT END PROGRAM PROBLEMA_29

PROBLEMA 30 PROGRAM PROBLEMA_30 REAL::X,CH PRINT*,”INGRESE EL NUMERO DE ESTADIA “ READ*,X PRINT*,”INGRESE EL COSTO DEL HOTEL POR DIA” READ*,CH CH=CH*X PRINT*,CH END PROGRAM PROBLEMA_30

PROBLEMA 32 PROGRAM PROBLEMA_32 PRINT*,"INGRESE CANTIDAD DE LAPICES" READ*,X IF (X>=1000) THEN C=X*0.85 PRINT*,"COSTO DE LAPICES EN SOLES",C ELSE C=X*0.95 PRINT*,"COSTO DE LAPICES EN SOLES",C END IF END PROGRAM PROBLEMA_32

PROBLEMA 33

ESTRUCTURAS SELECTIVAS CON FORTRAN

PROBLEMA 31 PROGRAM PROBLEMA_31 REAL::N PRINT*,”INGRESE EL NUMERO” READ*,N IF(N>=0) THEN PRINT*,”N ES POSITIVO” ELSE PRINT*,”N ES NEGATIVO” END IF END PROGRAM PROBLEMA_31

Profesor: Ing. CHAUCA NOLASCO WILLIAM

PROGRAM PROBLEMA_33 REAL::PREC PRINT*,"INGRESE EL PRECIO DEL TRAJE" READ*,PREC IF(PREC>2500) THEN PREC=PREC-0.15*PREC ELSE PREC=PREC-0.08*PREC END IF PRINT*,"EL PRECIO FINAL A PAGAR ES:",PREC END PROGRAM PROBLEMA_33

PROBLEMA 34 PROGRAM PROBLEMA_34 REAL::A,B,C PRINT*,"INGRESE 1 CANTIDAD" READ*,A PRINT*,"INGRESE 2 CANTIDAD" READ*,B

LENGUAJE DE PROGRAMACIÓN

PRINT*,"INGRESE 3 CANTIDAD" READ*,C IF (A>B) THEN M=A ELSE M=B END IF IF (M>C) THEN PRINT*,"EL MAYOR ES=",M ELSE PRINT*,"EL MAYOR ES=",C END IF END PROGRAM PROBLEMA_34

PROBLEMA 35 PROGRAM PROBLEMA_35 INTEGER::X PRINT*, "INGRESE LA CANTIDAD DE PERSONAS" READ*,X IF (X>=1 .AND. X200 .AND. X300) THEN C=X*75 END IF PRINT*,"COSTO TOTAL DEL BANQUETE",C END PROGRAM PROBLEMA_35

REAL::K,GAN_TOT CHARACTER(LEN=1)::TIP_U PRINT*,"INGRESE EL TIPO DE UVA" READ*,TIP_U PRINT*,"INGRESE EL TAMANIO DE UVA" READ*,TAM_U PRINT*,"INGRESE EL PRECIO DEL KILO DE UVA" READ*,PREC PRINT*,"INGRESE LA CANTIDAD DE KILOS DE UVA" READ*,K IF(TIP_U=="A")THEN IF (TAM_U==1)THEN PREC=PREC+20 ELSE PREC=PREC+30 END IF ELSE IF (TIP_U=="B")THEN IF (TAM_U==1)THEN PREC=PREC-30 ELSE PREC=PREC-50 END IF END IF END IF GAN_TOT=PREC*K PRINT*,"LA GANANCIA TOTAL OBTENIDA ES: ",GAN_TOT," SOLES " END PROGRAM PROBLEMA_36

PROBLEMA 37 PROBLEMA 36 PROGRAM PROBLEMA_36 INTEGER::TAM_U,PREC Profesor: Ing. CHAUCA NOLASCO WILLIAM

PROGRAM PROBLEMA_37 INTEGER::NA REAL::PA,TOT

LENGUAJE DE PROGRAMACIÓN

PRINT*,"INGRESAR NUMERO DE ALUMNOS QUE REALIZARAN EL VIAJE:" READ*,NA IF( NA >= 100 )THEN PA = 65 ELSE IF (NA >= 50 )THEN PA = 70 ELSE IF(NA >= 30)THEN PA = 95.0 ELSE PA = 4000 / NA END IF TOT=PA*NA PRINT*,"El pago individual es", PA PRINT*,"El pago total es", TOT END PROGRAM PROBLEMA_37

PROBLEMA 38 PROGRAM PROBLEMA_38 INTEGER::NP,NPR REAL::KM,COST_KM,TO,COST_PERS CHARACTER(LEN=1)::TI PRINT*,"INGRESAR TIPO DE AUTOBUS:" READ*,TI PRINT*,"INGRESAR KILOMETROS RECORRIDOS:" READ*,KM PRINT*,"INGRESAR NUMERO DE PERSONAS REAL:" READ*,NPR IF( TI=="A")THEN COST_KM=2 ELSE IF(TI=="B")THEN COST_KM=2.5 ELSE Profesor: Ing. CHAUCA NOLASCO WILLIAM

COST_KM=3 END IF IF(NPR=18)THEN PRINT*,"PUEDE VOTAR" ELSE PRINT*,"NO PUEDE VOTAR" END IF END PROGRAM PROBLEMA_39

PROBLEMA 40 PROGRAM PROBLEMA_40 INTEGER::HRS_TRAB REAL::P_H,S_S PRINT*,"INGRESAR HORAS TRABAJADAS" READ*,HRS_TRAB PRINT*,"INGRESAR PAGO POR HORA" READ*,P_H IF(HRS_TRAB>40)THEN

LENGUAJE DE PROGRAMACIÓN

S_S=40*P_H+(HRS_TRAB-40)*2*P_H ELSE S_S=HRS_TRAB*P_H END IF PRINT*,"EL SUELDO SEMANAL DEL TRABAJADOR ES",S_S END PROGRAM PROBLEMA_40

PROBLEMA 41 PROGRAM PROBLEMA_41 REAL::COST_REG CHARACTER(LEN=20)::REG PRINT*,"INGRESAR DINERO DISPONIBLE PARA REGALO" READ*,COST_REG IF(COST_REG>=251)THEN REG="ANILLO" ELSE IF(COST_REG>=101 .AND. COST_REG=11 .AND. COST_REG10)THEN Profesor: Ing. CHAUCA NOLASCO WILLIAM

COST=HRS_ESTAC*2 ELSE IF(HRS_ESTAC=6)THEN COST=HRS_ESTAC*3 ELSE IF(HRS_ESTAC>=5 .AND. HRS_ESTAC=6) THEN BECA=500 ELSE PRINT*,"AUN PUEDEN GANAR LA BECA, TODO DEPENDE DE SU ESFUERZO,ANIMOS" END IF ELSE IF(EDAD=9) THEN BECA=3000 ELSE IF(PROM>=8) THEN BECA=2000 ELSE IF(PROM>=6) THEN BECA=100 ELSE PRINT*,"AUN PUEDEN GANAR LA BECA, TODO DEPENDE DE SU ESFUERZO,ANIMOS" END IF

LENGUAJE DE PROGRAMACIÓN

END IF PRINT*,"LA BECA DEL ALUMNO ES:",BECA END PROGRAM EJERCICIO_45

PRINT*,"EL BONO QUE SE ASIGNARA FINALMENTE SERA ",BONO_X_MONT END IF END PROGRAM PROBLEMA_46

PROBLEMA 46

PROBLEMA 47

PROGRAM PROBLEMA_46 INTEGER::ANT REAL::SUELD,BONO_X_ANT,BONO_X_MONT PRINT*,"INGRESE SUELDO DEL TRABAJADOR" READ*,SUELD PRINT*,"INGRESE ANTIGUEDAD DEL TRABAJADOR" READ*,ANT IF(ANT>2 .AND. ANT=5)THEN BONO_X_ANT=0.30*SUELD END IF PRINT*,"EL BONO POR ANTIGUEDAD SERIA DE:",BONO_X_ANT IF(SUELD=1000 .AND. SUELDBONO_X_MONT) THEN PRINT*,"EL BONO QUE SE ASIGNARA FINALMENTE SERA",BONO_X_ANT ELSE

PROGRAM PROBLEMA_47 CHARACTER(LEN=1)::TIPO_POL CHARACTER(LEN=2)::BB_ALCOH,LENTES,ENFERM INTEGER::ED REAL::C_POLIZA,C_BASE,CARG_OH,CARG_LENT,CARG_ED,CARG_ENFE RM PRINT*,"INGRESE TIPO DE POLIZA - COBERTURA AMPLIA(A) o DANIOS A TERCEROS(B)" READ*,TIPO_POL IF(TIPO_POL=="A") THEN C_BASE=1200 PRINT*,"DIGA SI BEBE ALCOHOL O NO (SI o NO)" READ*,BB_ALCOH IF(BB_ALCOH=="SI")THEN CARG_OH=0.10*C_BASE ELSE CARG_OH=0 END IF PRINT*,"¿UTILIZA LENTES?(RESPONDA SI O NO)" READ*,LENTES IF(LENTES=="SI")THEN CARG_LENT=0.05*C_BASE ELSE CARG_LENT=0 END IF PRINT*,"¿PADECE ALGUNA ENFERMEDAD COMO DEFICIENCIA CARDIACA O DIABETES?(RESPONDA SI O NO)"

Profesor: Ing. CHAUCA NOLASCO WILLIAM

LENGUAJE DE PROGRAMACIÓN

READ*,ENFERM IF(ENFERM=="SI") THEN CARG_ENFERM=0.05*C_BASE ELSE CARG_ENFERM=0 END IF PRINT*,"INGRESE SU EDAD" READ*,ED IF(ED>40)THEN CARG_ED=0.20*C_BASE ELSE CARG_ED=0.10*C_BASE END IF END IF IF(TIPO_POL=="B") THEN C_BASE=950 PRINT*,"DIGA SI BEBE ALCOHOL O NO (SI o NO)" READ*,BB_ALCOH IF(BB_ALCOH=="SI")THEN CARG_OH=0.10*C_BASE ELSE CARG_OH=0 END IF PRINT*,"¿UTILIZA LENTES?(RESPONDA SI O NO)" READ*,LENTES IF(LENTES=="SI")THEN CARG_LENT=0.05*C_BASE ELSE CARG_LENT=0 END IF

Profesor: Ing. CHAUCA NOLASCO WILLIAM

PRINT*,"¿PADECE ALGUNA ENFERMEDAD COMO DEFICIENCIA CARDIACA O DIABETES?(RESPONDA SI O NO)" READ*,ENFERM IF(ENFERM=="SI") THEN CARG_ENFERM=0.05*C_BASE ELSE CARG_ENFERM=0 END IF PRINT*,"INGRESE SU EDAD" READ*,ED IF(ED>40)THEN CARG_ED=0.20*C_BASE ELSE CARG_ED=0.10*C_BASE END IF END IF C_POLIZA=C_BASE+CARG_OH+CARG_LENT+CARG_ENFERM+CARG_ED PRINT*,"EL COSTO TOTAL POR CONTRATAR LA POLIZA SERA DE ",C_POLIZA," SOLES" END PROGRAM PROBLEMA_47

PROBLEMA 48 PROGRAM PROBLEMA_48 REAL::D,PK PRINT*,”DINERO QUE DISPONE” READ*,D PRINT*,”PRECIO POR KILOMETRO” READ*,PK

LENGUAJE DE PROGRAMACIÓN

IF (D>=1800*2*PK) THEN PRINT*,”LUGAR PARA VIAJAR:CANCUN” ELSE IF (D>=1200*2*PK) THEN PRINT*,”LUGAR PARA VIAJAR:ACAPULCO” ELSE IF (D>=800*2*PK) THEN PRINT*,”LUGAR PARA VIAJAR:PV” ELSE IF (D>=750*2*PK) THEN PRINT*,”LUGAR PARA VIAJAR:MEXICO” ELSE PRINT*,”QUEDARSE EN CASA” END IF END IF END IF END IF END PROGRAM PROBLEMA_48

PROBLEMA 49 PROGRAM PROBLEMA_49 INTEGER::AN,BONO PRINT*,"INGRESAR ANIOS DE TRABAJO" READ*,AN IF (AN==1) THEN BONO=100 ELSE IF(AN==2)THEN BONO=200 ELSE IF (AN==3)THEN BONO=300 ELSE IF(AN==4)THEN BONO=400 ELSE IF(AN==5)THEN BONO=500 Profesor: Ing. CHAUCA NOLASCO WILLIAM

ELSE IF(AN>5)THEN BONO=1000 END IF PRINT*,"EL BONO POR ANTIGUEDAD SERA ",BONO," DOLARES" END PROGRAM PROBLEMA_49

PROBLEMA 50 PROGRAM PROBLEMA_50 INTEGER::H_T REAL::P_H PRINT*,"INGRESE LA CANTIDAD DE HORAS TRABAJADAS" READ*,H_T IF(H_T>=41 .AND. H_T=46 .AND. H_T50) THEN PRINT*,"NO ESTA PERMITIDO TRABAJAR DICHA CANTIDAD DE HORAS" END IF

LENGUAJE DE PROGRAMACIÓN

END PROGRAM PROBLEMA_50

PROBLEMA 51 PROGRAM PROBLEMA_51 INTEGER::N,COSTO_VIAJE PRINT*,"INGRESAR CANTIDAD DE ALUMNOS A VIAJAR" READ*,N IF(N>=100) THEN COSTO_VIAJE=N*20 PRINT*,"EL PAGO POR ALUMNO ES DE 20 SOLES" ELSE IF(N>=50) THEN COSTO_VIAJE=N*35 PRINT*,"EL PAGO POR ALUMNO ES DE 35 SOLES" ELSE IF(N>=20)THEN COSTO_VIAJE=N*40 PRINT*,"EL PAGO POR ALUMNO ES DE 40 SOLES" ELSE COSTO_VIAJE=N*70 END IF PRINT*,"EL COSTO TOTAL DEL VIAJE ES ",COSTO_VIAJE," SOLES" END PROGRAM PROBLEMA_51

PROBLEMA 52 PROGRAM PROBLEMA_52 CHARACTER(LEN=1)::LETRA INTEGER::CALIF PRINT*,"INGRESAR CALIFICACION( 0 al 10 para asignarle un valor)" READ*,CALIF Profesor: Ing. CHAUCA NOLASCO WILLIAM

IF(CALIF==10) THEN LETRA="A" ELSE IF(CALIF==9) THEN LETRA="B" ELSE IF(CALIF==8) THEN LETRA="C" ELSE IF(CALIF==7 .OR. CALIF==6)THEN LETRA="D" ELSE IF(CALIF>=0 .AND. CALIF=50000)THEN PRINT*, "SE PUEDE COMPRAR EL PAQUETE A (UN TELEVISION, UN MODULAR, TRES PARES DE ZAPATOS, CINCO CAMISAS Y CINCO PANTALONES)" ELSE IF (DIN=20000) THEN PRINT*, "SE PUEDE COMPRAR EL PAQUETE B (UNA GRABADORA, TRES PARES DE ZAPATOS, CINCO CAMISAS Y CINCO PANTALONES)" ELSE IF (DIN= 10000) THEN PRINT*, "SE PUEDE COMPRAR EL PAQUETE C (DOS PARES DE ZAPATOS, TRES CAMISAS Y TRES PANTALONES)" ELSE IF (DIN4 .OR. SUELD70)THEN VACUNA="C" ELSE IF(ED>=16 .AND. ED=16 .AND. ED0) THEN PNI=S_A*0.85 ELSE PNI=0 END IF IF (C_A100 .and. p