Este es el pseudo-código que realicé para la experiencia de aprendizaje de la Unidad 2 del curso de Programación, semetre 1, en el IRC.
Sin más, va el código completo listo para compilar y ejecutar.
#include <stdio.h>
#include <unistd.h>
int sup, base, altura, parcelas, paral;
int calc();
int repos(int sup);
int main(){
calc();
repos(sup);
}
int calc(){
int tub, reg, bulb;
int ctub, creg, cbulb;
float ptub, preg, pbulb, ctot;
tub = 100; //Precio de 1m de tubería, por cada m2 de terreno se necesitan 2m de tubería
reg = 300; //Precio de un regulador, se requieren 2 por cada m2 de terreno
bulb = 250; //Precio del paquete de 10 bulbos, se requieren 10 bulbos por m2
printf("Introduzca la base de su terreno en metros cuadrados. Ejemplo: 50.\n");
scanf("%d", &base);
printf("Introduzca la altura de su terreno en metros cuadrados. Ejemplo: 40.\n");
scanf("%d", &altura);
printf("Introduzca el número de parcelas en que está dividido su terreno. Ejemplo: 4.\n");
scanf("%d", &parcelas);
sup = (base * altura);
paral = (base * altura) / parcelas;
printf("Calculando la inversión...\n\n");
sleep(1);
ctub = (2 * sup);
ptub = ((tub*2) * sup);
preg = ((reg * 2) * sup);
creg = (2 * sup);
pbulb = (bulb * sup);
cbulb = (10 * sup);
printf("Superficie por paralelogramo: %d metros cuadrados.\n", paral);
printf("Superficie total: %d metros cuadrados.\n\n", sup);
printf("====================\n");
printf("[+] Necesita %d tubos.\n",ctub);
printf("\t- El costo total de la tubería es de $%.2f pesos.\n",ptub);
printf("[+] Necesita %d reguladores.\n",creg);
printf("\t- El costo total de los reguladores es de $%.2f pesos.\n",preg);
printf("[+] Necesita %d bulbos.\n",cbulb);
printf("\t- El costo total de los bulbos es de $%.2f pesos.\n",pbulb);
ctot = ptub + preg + pbulb;
printf("[*] El costo inicial de su inversión es de $%.2f pesos.\n",ctot);
printf("====================\n");
return sup, ctot;
}
int repos(int super){
int i, canbalb, cadbalb, pbalb, reem, cremp, bremp;
canbalb = (2 * sup);
cadbalb = 3;
pbalb = canbalb * 250;
printf("\nPara mantener su sistema de riego en funcionamiento, usted debe cambiar sus bulbos cada %d meses.\n", cadbalb);
printf("A continuación se le presenta un plan de reposición con plazo de 24 meses, que es la duración de su cosecha.\n");
printf("====================\n");
printf("| Meses |Bulbos a remplazar| Costo |\n");
for(i=3;i<=24;i+=3){
printf("| %d\t |\t %d\t |$%d |\n",i,canbalb,pbalb);
}
reem = 8;
cremp = reem * pbalb;
bremp = reem * canbalb;
printf("______________________\n");
printf("|%d reemplazos |\t %d\t |$%d|\n",reem,bremp,cremp);
return 0;
}