gracias man muchas gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú#include<stdio.h>
#include<conio.h>
main()
{
int array[5],i,rango,mas_grande,valor_moda,frecu;
int frec[5]={0};
printf ("Digite los valores del arreglo:\n\n");
scanf ("%d",&array[i]);
for (i=0;i<5;i++){
}
for (i=0;i<5;i++){
frec[array[i]]++;
}
for (rango=1;rango<=5;rango++)
{
if (frec[rango]>mas_grande){
mas_grande=frec[rango];
valor_moda=rango;
}
}
printf ("El valor moda es %d",valor_moda);
getch ();
}
Cita de: Miky Gonzalez en 18 Febrero 2013, 22:01 PM
Como se decia esto... ya lo tiene hecho?printf("%d", formula);
por:printf("%d, ", formula);
#include<stdio.h>
#include<conio.h>
int main()
{
int num, cont, a = 0, b = 1, formula;
printf("Cantidad de numeros en la serie: ");
scanf("%d", &num);
printf("0,1");
for (cont=0; cont<num-2; cont++)
{
formula = a + b;
printf("%d", formula);
a=b;
b=formula;
}
getch();
}
CitarPrivate Sub Command1_Click()
If (List1.List(List1.ListIndex) = "Vermú") And (List2.List(List2.ListIndex) = "Whisky") And (List3.List(List3.ListIndex) = "Angostura") Or (List3.List(List3.ListIndex) = "Hielo") Then
Text1.Text = "Manhattan"
Text2.Text = "5 cl. de whisky de centeno" + vbCrLf + "o whisky canadiense" + vbCrLf + "2 cl. de vermú rojo" + vbCrLf + "1 gota de angostura"
Dim Ruta As String
Ruta = "C:\fotos\manhattan.jpg"
Image1.Picture = LoadPicture("C:\fotos\manhattan.jpg")
End If
If (List1.List(List1.ListIndex) = "Triple sec") Or (List1.List(List1.ListIndex) = "Jugo de Lima") And (List2.List(List2.ListIndex) = "Tequila") And (List3.List(List3.ListIndex) = "Sal") Or (List3.List(List3.ListIndex) = "Hielo") Or (List3.List(List3.ListIndex) = "Limón") Then
Text1.Text = "Margarita"
Text2.Text = "35ml. de Tequila" + vbCrLf + "20ml. de Triple sec" + vbCrLf + "15ml. Jugo de Lima"
Ruta = "C:\fotos\margarita.jpg"
Image1.Picture = LoadPicture("C:\fotos\margarita.jpg")
End If
Cita de: MCKSys Argentina en 17 Septiembre 2012, 04:37 AM
Prueba con esto
Private Sub Command1_Click()
If (List1.List(List1.ListIndex) = "Jugo de Limon") and (List2.List(List2.ListIndex) = "Ron") and (List3.List(List3.ListIndex) = "azucar") Then
Text1.text = "Mojito"
text2.text = "preparación"
End If
End Sub
Saludos!