Backup proyecto Joyfe - Borland

2025-06-16 22:54:10 +02:00
commit d61829a1a7
130 changed files with 11881 additions and 0 deletions
--- a/CPP/PROG4.CPP
+++ b/CPP/PROG4.CPP
@ -0,0 +1,112 @@
+// Prog4
+//
+// Programadores:
+//	Juan L<>pez Fern<72>ndez
+//	Mois<69>s Virumbrales Cuenca
+//	DAI 1<>A
+//
+// Pedir n<>meros hasta que se introduzca un cero. Imprimir el mayor de todos
+// los pares y la posici<63>n en que se introdujo, el menor de los m<>ltiplos
+// de 6 y la posici<63>n en que se introdujo, el mayor de todos los valores
+// y la posici<63>n en que se introdujo.
+
+#include <stdio.h>
+#include <conio.h>
+
+int mayorpar,pospar,menor6,posmenor6,mayor,posmayor,con,num;
+char pausa;
+
+void main()
+{
+  mayorpar=-32768;pospar=0;menor6=32767;posmenor6=0;mayor=-32768;
+  posmayor=0;con=0;num=0;
+
+  clrscr();
+  gotoxy (20,13);
+  printf (" (Introduzca 0 para finalizar)");
+  gotoxy (20,12);
+  printf (" Introduce un n<>mero: ");
+  fflush(stdin);
+  scanf ("%d",&num);
+  while (num!=0)
+  {
+    con++;
+    if (num %2==0 && num>mayorpar)
+    {
+      mayorpar=num;
+      pospar=con;
+    }
+
+    if (num %6==0 && num<menor6)
+    {
+      menor6=num;
+      posmenor6=con;
+    }
+
+    if (num>mayor)
+    {
+      mayor=num;
+      posmayor=con;
+    }
+
+    clrscr();
+    gotoxy (20,13);
+    printf (" (Introduzca 0 para finalizar)");
+    gotoxy (20,12);
+    printf (" Introduce un n<>mero: ");
+    fflush(stdin);
+    scanf ("%d",&num);
+  }
+
+  clrscr();
+
+  if (con==0)
+  {
+    gotoxy (20,12);
+    printf (" No se ha introducido ning<6E>n n<>mero.");
+  }
+  else
+  {
+    if (pospar==0)
+    {
+      gotoxy (15,11);
+      printf (" No se han introducido n<>meros pares.");
+    }
+    else
+    {
+      gotoxy (15,10);
+      printf (" El mayor par introducido es: %d.",mayorpar);
+      gotoxy (15,11);
+      printf (" Se ha introducido en la %d<> posici<63>n.",pospar);
+    }
+
+    if (posmenor6==0)
+    {
+      gotoxy (15,12);
+      printf (" No se han introducido m<>ltiplos de 6.");
+    }
+    else
+    {
+      gotoxy (15,13);
+      printf (" El menor m<>ltiplo de 6 introducido es: %d.",menor6);
+      gotoxy (15,14);
+      printf (" Se ha introducido en la %d<> posici<63>n.",posmenor6);
+    }
+
+    if (posmayor==0)
+    {
+      gotoxy (15,13);
+      printf (" Los n<>meros introducidos son iguales.");
+    }
+    else
+    {
+      gotoxy (15,16);
+      printf (" El mayor n<>mero introducido es: %d.",mayor);
+      gotoxy (15,17);
+      printf (" Se ha introducido en la %d<> posici<63>n.",posmayor);
+    }
+  }
+
+  fflush (stdin);
+  scanf ("%c",&pausa);
+}