PARCIAL PROGRAMACION 1 (UNO)

1.) CÓDIGO Y DIAGRAMA DE FLUJO:
- CÓDIGO:
Proceso cuatro
Definir n1,n2,n3,n4 Como Entero;
Definir L Como Logico;
Escribir 'leer n1 n2 n3 n4 ?';
Leer n1;
Leer n2;
Leer n3;
Leer n4;
L <- ((n1>n2) Y (n1>n3) Y (n1>n4) Y (n2>n3) Y (n2>n4) Y (n3>n4));
Si L=Verdadero Entonces
Escribir 'primero=',n1,'segundo=',n2,'tercero=',n3,'cuarto=',n4;
FinSi
L <- ((n1>n2) Y (n1>n4) Y (n1>n3) Y (n2>n4) Y (n2>n3) Y (n4>n3));
Si L=Verdadero Entonces
Escribir 'primero=',n1,'segundo=',n2,'tercero=',n4,'cuarto=',n3;
FinSi
L <- ((n1>n3) Y (n1>n2) Y (n1>n4) Y (n3>n2) Y (n3>n4) Y (n2>n4));
Si L=Verdadero Entonces
Escribir 'primero=',n1,'segundo=',n3,'tercero=',n2,'cuarto=',n4;
FinSi
L <- ((n1>n3) Y (n1>n4) Y (n1>n2) Y (n3>n4) Y (n3>n2) Y (n4>n2));
Si L=Verdadero Entonces
Escribir 'primero=',n1,'segundo=',n3,'tercero=',n4,'cuarto=',n2;
FinSi
L <- ((n1>n4) Y (n1>n3) Y (n1>n2) Y (n4>n3) Y (n4>n2) Y (n3>n2));
Si L=Verdadero Entonces
Escribir 'primero=',n1,'segundo=',n4,'tercero=',n3,'cuarto=',n2;
FinSi
L <- ((n1>n4) Y (n1>n2) Y (n1>n3) Y (n4>n2) Y (n4>n3) Y (n2>n3));
Si L=Verdadero Entonces
Escribir 'primero=',n1,'segundo=',n4,'tercero=',n2,'cuarto=',n3;
FinSi
L <- ((n2>n1) Y (n2>n3) Y (n2>n4) Y (n1>n3) Y (n1>n4) Y (n3>n4));
Si L=Verdadero Entonces
Escribir 'primero=',n2,'segundo=',n1,'tercero=',n3,'cuarto=',n4;
FinSi
L <- ((n2>n1) Y (n2>n4) Y (n2>n3) Y (n1>n4) Y (n1>n3) Y (n4>n3));
Si L=Verdadero Entonces
Escribir 'primero=',n2,'segundo=',n1,'tercero=',n4,'cuarto=',n3;
FinSi
L <- ((n2>n3) Y (n2>n1) Y (n2>n4) Y (n3>n1) Y (n3>n4) Y (n1>n4));
Si L=Verdadero Entonces
Escribir 'primero=',n2,'segundo=',n3,'tercero=',n1,'cuarto=',n4;
FinSi
L <- ((n2>n3) Y (n2>n4) Y (n2>n1) Y (n3>n4) Y (n3>n1) Y (n4>n1));
Si L=Verdadero Entonces
Escribir 'primero=',n2,'segundo=',n3,'tercero=',n4,'cuarto=',n1;
FinSi
L <- ((n2>n4) Y (n2>n1) Y (n2>n3) Y (n4>n1) Y (n4>n3) Y (n1>n3));
Si L=Verdadero Entonces
Escribir 'primero=',n2,'segundo=',n4,'tercero=',n1,'cuarto=',n3;
FinSi
L <- ((n2>n4) Y (n2>n3) Y (n2>n1) Y (n4>n3) Y (n4>n1) Y (n3>n1));
Si L=Verdadero Entonces
Escribir 'primero=',n2,'segundo=',n4,'tercero=',n3,'cuarto=',n1;
FinSi
L <- ((n3>n1) Y (n3>n2) Y (n3>n4) Y (n1>n2) Y (n1>n4) Y (n2>n4));
Si L=Verdadero Entonces
Escribir 'primero=',n3,'segundo=',n1,'tercero=',n2,'cuarto=',n4;
FinSi
L <- ((n3>n1) Y (n3>n4) Y (n3>n2) Y (n1>n4) Y (n1>n2) Y (n4>n2));
Si L=Verdadero Entonces
Escribir 'primero=',n3,'segundo=',n1,'tercero=',n4,'cuarto=',n2;
FinSi
L <- ((n3>n2) Y (n3>n1) Y (n3>n4) Y (n2>n1) Y (n2>n4) Y (n1>n4));
Si L=Verdadero Entonces
Escribir 'primero=',n3,'segundo=',n2,'tercero=',n1,'cuarto=',n4;
FinSi
L <- ((n3>n2) Y (n3>n4) Y (n3>n1) Y (n2>n4) Y (n2>n1) Y (n4>n1));
Si L=Verdadero Entonces
Escribir 'primero=',n3,'segundo=',n2,'tercero=',n4,'cuarto=',n1;
FinSi
L <- ((n3>n4) Y (n3>n1) Y (n3>n2) Y (n4>n1) Y (n4>n2) Y (n1>n2));
Si L=Verdadero Entonces
Escribir 'primero=',n3,'segundo=',n4,'tercero=',n1,'cuarto=',n2;
FinSi
L <- ((n3>n4) Y (n3>n2) Y (n3>n1) Y (n4>n2) Y (n4>n1) Y (n2>n1));
Si L=Verdadero Entonces
Escribir 'primero=',n3,'segundo=',n4,'tercero=',n2,'cuarto=',n1;
FinSi
L <- ((n4>n1) Y (n4>n2) Y (n4>n3) Y (n1>n2) Y (n1>n3) Y (n2>n3));
Si L=Verdadero Entonces
Escribir 'primero=',n4,'segundo=',n1,'tercero=',n2,'cuarto=',n3;
FinSi
L <- ((n4>n1) Y (n4>n3) Y (n4>n2) Y (n1>n3) Y (n1>n2) Y (n3>n2));
Si L=Verdadero Entonces
Escribir 'primero=',n4,'segundo=',n1,'tercero=',n3,'cuarto=',n2;
FinSi
L <- ((n4>n2) Y (n4>n1) Y (n4>n3) Y (n2>n1) Y (n2>n3) Y (n1>n3));
Si L=Verdadero Entonces
Escribir 'primero=',n4,'segundo=',n2,'tercero=',n1,'cuarto=',n3;
FinSi
L <- ((n4>n2) Y (n4>n3) Y (n4>n1) Y (n2>n3) Y (n2>n1) Y (n3>n1));
Si L=Verdadero Entonces
Escribir 'primero=',n4,'segundo=',n2,'tercero=',n3,'cuarto=',n1;
FinSi
L <- ((n4>n3) Y (n4>n1) Y (n4>n2) Y (n3>n1) Y (n3>n2) Y (n1>n2));
Si L=Verdadero Entonces
Escribir 'primero=',n4,'segundo=',n3,'tercero=',n1,'cuarto=',n2;
FinSi
L <- ((n4>n3) Y (n4>n2) Y (n4>n1) Y (n3>n2) Y (n3>n1) Y (n2>n1));
Si L=Verdadero Entonces
Escribir 'primero=',n4,'segundo=',n3,'tercero=',n2,'cuarto=',n1;
FinSi
FinProceso

                                                                  DIAGRAMA DE FLUJO

NOTA: En los siguientes puntos poner los diagramas de flujo correspondiente.

2.)SERVICIO MILITAR

Una persona es apta para prestar el servicio militar obligatorio cuando: es mayor de 18 años, menor de 25 años, y género masculino. Realizar un algoritmo que permita determinar si una persona es apta o no para prestar el servicio militar.

3.)ESTACIONAMIENTO

En una playa de estacionamiento cobran $1500 la primera hora y $1000 a partir de la segunda hora. Diseñe un algoritmo que determine cuánto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas.

4.)NUMERO PAR/IMPAR Diseñe un algoritmo que determine si un número es o no par.

5.)FUNCION PARTE DECIMAL

Hacer un programa que determine si un número tiene o no parte fraccionaria. Usar la función trunc la cual elimina la parte decimal de un número real. trunc es similar a la función parte entera, por ejemplo [2.5] es 2.