(Tiempo de programación);
READ (Tiempo Producción uno, tiempo producción 2, tiempo producción 3,
tiempo de producción cuatro, tiempo producción 5
PROMEDIO = (tiempo producción uno + tiempo produccion 2 + tiempo producción
3 + tiempo produccion 4 + tiempo produccion 5)/5;
IF (tiempo de producción >15)
Then
Pvinf (“tiempo de producción alta”
Else
Prinf (“tiempo de producción aceptable”)
IF (tiempo productividad <15)
Then
IF (“tiempo productividad > 10”)
Then
Print (“tiempo de productividad aceptable”)
Else
Print (“tiempo de productividad baja”)
(resistividad, porosidad P1)
READ (resistividad menor P1, porosidad mayor);
IF(resistividad menor <1000 ohm-m) AND (porosidad>0.2)
PRINF (festividad, porosidad);
Then
PRINTF (“ si la resistividad es menor a 1000 OHM y la porosidad es menor a 0.2
es una zona zona prometedora)
Else
PRINTF (“sí la resistividad es menor a 800 OHM y la porosidad es mayor a 03 es
una zona muy prometedora)
(resistividad, porosidad P1)
Read (resistividad menorP2, porosidad mayor P2);
IF (resistividad < 800 ohm-m) AND (porosidad >0.3)
PRIN (resistividad, porosidad).
Then
PRINF (“si la resistividad P1 es menor a 800 OHM-m y la porosidad es mayor a 03
es una zona muy prometedora)
Else
PRINF (“si la resistividad es menor a 1000 OHM-m y la porosidad es mayor a 02
es una zona prometedora”)
(resistividad, porosidad P2)
Read (resistividad menor P2, porosidad mayor P2);
IF(resistividad< 10000 ohm-m) AND (porosidad > 0.2)
PRINF (“resistividad P2, porosidad P2)
Then
PRINF (si la resistividad P2 es menor a 1000 OHM-m y la porosidad P2 es mayor
a 02 es una zona prometedora)
(resistividad, porosidad P2)
Read (resistividad menor P2, porosidad mayor P2);
IF(resistividad< 800 ohm-m) AND (porosidad 0.3)
PRINF (resistividad P2, porosidad P2”)
Then
PRINF(“si la resistividad es menor a 800 OHM-M y la porosidad es mayor a 03 es
una zona muy prometedora")
Else
PRINF (“ si la resistividad es menor a 1000 o hmm y la porosidad es mayor a 02
es una zona muy prometedora)
(resistividad, porosidad P3)
Read (“resistividad menor p 3, porosidad mayor p 3);
IF(resistividad < 1000 OHM-M) AND (porosidad>0.2)
PRINF (“resistividad p 3, porosidad p 3)
Then
PRINF(“sí la porosidad p 3 es menor a 1000 ó mhm y la porosidad p 3 es mayor a
0.2 es una zona prometedora”)
Else
PRINF (“ Si la resistividad p 3 es menor a 800 o hmm y la porosidad es mayor a 03
es una zona muy prometedora)
(resistividad, porosidad p 3)
Read (resistividad menor p 3, porosidad mayor p 3);
IF(resistividad< 800 OHM) AND (porosidad 03)
PRINF (“resistividad P3, porosidad p 3)
(SN, SB, cat);
READ(SB, CAT);
Switch (SB, CAT):
A: ((SB>50000) OR (CAT =”A”)): SN= (SB/1.30);
B: (((SB>30000) AND (SB < 50000)) OR AND (CAT = “B”)): SN=(SB/1.20)
C: ((SB< 30000)OR (CAT =¿)): SN= (SB/1.16);
Prinft(“SN”)
SN SB CAT
60000 $46,163 A
40000 $33,373 B
20000 $18,000 C
(costos de producción petrolera);
Read (P. Tierra, p aguas someras, pozo agua profunda, p marítima)
Swith (zona):
A: (Zona = “Tierra”): (CT =NB º 50);
B: (Zona = “Agua somera”): (CT=NBº70);
C: (Zona = “Agua profunda”) : (CT =NB º 100);
D: (Plataforma = “marítimo”): (CT + 20 = NB + 20);
Then
Prinf( “si se encuentra en plataforma se le suma $20 costo adicional por barril”)
Else
Prinf (No es plataforma)
Prinf (“Costo producción)
(POZO PETROLERA)
READ (Temperatura pozo, presencia de agua);
IF (Temperatura pozo >80 ºC) OR (Presencia de agua “si”)
Then
Prinft (“El pozo NO es apto para su explotación”);
Else
Prinft (“El pozo es apto para su explotación”);