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.
Cita de: Saberuneko en 15 Diciembre 2012, 16:17 PMEs la gráfica.
//For WIN systems, use the header windows.h
//For NIX systems, use the header unistd.h
#include <iostream.h>
#include <string.h>
#include <windows.h>
using namespace std;
int main()
{
string str1 = "This is only a test";
int count;
int limit;
limit = str1.length() - 1;
for (count = 0; count <= limit; count++)
{
cout << str1.at(count);
Sleep(50);
}
}Citar32:2 C:\Dev-Cpp\include\c++\3.4.2\backward\backward_warning.h #warning This file includes at least one deprecated or antiquated header. Please consider using one of the 32 headers found in section 17.4.1.2 of the C++ standard. Examples include substituting the <X> header for the <X.h> header for C++ includes, or <iostream> instead of the deprecated header <iostream.h>. To disable this warning use -Wno-deprecated.
#include <iostream.h>
#include <string.h>
#include <windows.h>
using namespace std;
int main(int interval=50, string str1)
{
// string str1 = "This is only a test";
int count;
int limit;
limit = str1.length() - 1;
for (count = 0; count <= limit; count++)
{
cout << str1.at(count);
Sleep(interval);
}
}cout << interval;
cout << str1;Citarme gustaria si puedes que pegues este mail en alguna sección...Me parece una disculpa, "a su manera", pero una disculpa después de todo.
CitarBueno...
Neko...
Sorry tio pero estaba muy encabronado sabes....
Ahi me di de baja y hoy veo que ni siqueira estan al tanto de mi posteo...
El dia de ante ayer hice un post en DUDAS GENERALES .... por cosa de no postear en cualquier lugar y me corran mi topic...
EL primer post fue sobre el bt5 .... ok ... fue... ya me pude conectar con mas de un vecino y ya fue ese problema
ESE NO ES PROBLEMA....
EL problema fue el segundo post....
Donde les cuento la historia de una persona que es soberbia y totalmente arrogante que esta haciendo fortunas con internet HACIENO NO SE QUE CON EL TRAFICO... entonces google le manda todas las semanas como 50.000 U$S....
El tema es que esta persona tiene leves conocimientos... y nadie le cree que "LA HAYA PEGADO" ...
El tipo es un CEO . Y lo que me revienta... es que de verdad.. uds no lo conocen pero es una persona mala , con un padre mafioso maton....
Y es jodido el tipo ... y lo que odio es que el otro dia vino a cenar a mi casa por un tema en particular y el comenta su "exito" con todo orgulllo y yo se que , por escuchas de un pasillo , el tipo no se que hace con el trafico de internet.... se lo redirecciona su pagina y google le paga por eso...
Es un tipo astuto sabes?? junto a el ltrabajan personas a nivel internacional... TODOS BIEN PAGOS como se vera....
SAludos NEko...
el post se llamaba "MILLONARIO O ..." (el resto no me lo acuerdo , pero arrancaba con millonario y algo mas...y estaba en dudas generales ) y me re encabrono que uds... elites.... que les tengo un gran respeto (porque a fin de cuentas amo mi pc tambien y el under y el mundo del hacking es apasionante , lastima que tengo que estudiar demasiado y la programacion me cuesta ostias...) PERO ME JODIO QUE NADIE ME ALLA AYUDADO MAS CUANDO SE SUPONE QUE REPITEN LA PALABRA ETICA ....
AL ver que nadie me tiro un hilo... pense por dentro... "eticamente estos son una manga de piratas de parche negro NEGRO que si no apoyan mi peticion... entonces apoyan al otro" (yo veo las cosas asi, si no estas de un lado , estas del otro. NO hay medios . NO hay grisis . no para mi)
asi que sinceramente te pido disculpas si te molesto y agradezco muchisimo que me hayas escrito...
es muy feo cuando uno , esclavo del sistema , se rompe el culo en lavida... para que venga otro... mueva unos hilos y se haga millonario y encima te lo refriegue en la cara saliendose con la suya...
yo unicamente quiero callar la farsa de este hijo de p**a....
saludos...
y mis mas sinceros respetos y disculpas.... (me gustaria si puedes que pegues este mail en alguna sección...) tengo miedo de entrar al foro , que me fichen la ip y me hagan algun daño....
saludos comunidad...
saludos neko
//"Toying around with strings and vars"
#include <iostream>
#include <string>
using namespace std;
int main()
{
//declaring strings and vars
string str1, str2, str3;
char testchar1;
int count, pos;
//setting initial strings
str1 = "This is a test String";
str2 = "One";
//playing with size instructions
cout << "Size: " << str1.size() << endl;
cout << "Capacity: " << str1.capacity() << " (Before reserve)" << endl;
str1.reserve(64);
str2.reserve(64);
cout << "Capacity: " << str1.capacity() << " (After reserve)" << endl;
//Toying with 'at' instruction
cout << "Chars per position:" << endl;
cout << "--" << endl;
for (size_t count=0; count < str1.length(); count++)
{
cout << "[" << count << "] -> " << str1.at(count) << endl;
}
cout << "\n";
//Testing append instruction
cout << "str1 contains: " << str1 << endl;
cout << "str2 contains: " << str2 << endl;
str2.append(4,'-');
str2.append("Two");
cout << "Now, str2: " << str2 << endl;
//Swapping the content of str1 and str2
str1.swap (str2);
cout << "After a swap: \n";
cout << "str1 contains: " << str1 << endl;
cout << "str2 contains: " << str2 << endl;
//Experimenting with find and substr
pos = str1.find("String");
str3 = str1.substr (pos);
cout << "I found the word: " << str3 << endl;
cout << "It starts at position: " << pos << endl;
//Trying out string comparison:
//int compare ( size_t pos1, size_t n1, const string& str, size_t pos2, size_t n2 )
if (str3.compare(0,6,str2,14,6))
cout << "Found " << str3 << " into " << str1 << endl;
if (str1.compare(0,3,str3,0,6))
cout << "Weird... I found " << str2 << " into " << str3 << "!\n";
else
cout << "Didn't find " << str2 << " into " << str3 << endl;
return 0;
}Size: 21
Capacity: 21 (Before reserve)
Capacity: 64 (After reserve)
Chars per position:
--
[0] -> T
[1] -> h
[2] -> i
[3] -> s
[4] ->
[5] -> i
[6] -> s
[7] ->
[8] -> a
[9] ->
[10] -> t
[11] -> e
[12] -> s
[13] -> t
[14] ->
[15] -> S
[16] -> t
[17] -> r
[18] -> i
[19] -> n
[20] -> g
str1 contains: This is a test String
str2 contains: One
Now, str2: One----Two
After a swap:
str1 contains: One----Two
str2 contains: This is a test String
This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.//Experimenting with find and substrCitar<b><font size="12"><font color="#990099">MENSAJE DE TEXTO</font></b>
Citar<blink><i><font color="#FF0000">MENSAJE DE TEXTO</font></i></blink>
Option Explicit
Dim enemy1 As Ship
Dim enemy2 As Ship
Dim enemy3 As Ship
Dim enemy4 As Ship
Dim enemy5 As Ship
Randomize TimerPrivate Sub enemyload()
Dim dice As Integer
If Storage.level > 10 Then
dice = Int((Rnd * 5) + 1)
Else
dice = Int((Rnd * 3) + 1)
End If
Select Case (dice)
Case 1
enemy1.exists = True
enemy2.exists = False
enemy3.exists = False
enemy4.exists = False
enemy5.exists = False
Case 2
enemy1.exists = True
enemy2.exists = True
enemy3.exists = False
enemy4.exists = False
enemy5.exists = False
Case 3
enemy1.exists = True
enemy2.exists = True
enemy3.exists = True
enemy4.exists = False
enemy5.exists = False
Case 4
enemy1.exists = True
enemy2.exists = True
enemy3.exists = True
enemy4.exists = True
enemy5.exists = False
Case 5
enemy1.exists = True
enemy2.exists = True
enemy3.exists = True
enemy4.exists = True
enemy5.exists = True
End Select
'this will have to be modified as it is just for combat alpha testing
'in the way it currently is, it only supports pirate ship load
If enemy1.exists Then
If Storage.level > 10 Then
dice = Int((Rnd * 6) + 6)
enemy1.shipModel = Storage.shipdb(dice, 0)
Else
dice = Int((Rnd * 3) + 6)
enemy1.shipModel = Storage.shipdb(dice, 0)
End If
Else
enemy1.shipModel = Storage.shipdb(0, 0)
img_enemy1.Visible = False
End If
img_enemy1.Picture = LoadPicture(App.Path & Storage.shipdb(dice, 2))
If enemy2.exists Then
If Storage.level > 10 Then
dice = Int((Rnd * 6) + 6)
enemy2.shipModel = Storage.shipdb(dice, 0)
Else
dice = Int((Rnd * 3) + 6)
enemy2.shipModel = Storage.shipdb(dice, 0)
End If
Else
enemy2.shipModel = Storage.shipdb(0, 0)
img_enemy2.Visible = False
End If
img_enemy2.Picture = LoadPicture(App.Path & Storage.shipdb(dice, 2))
If enemy3.exists Then
dice = Int((Rnd * 3) + 6)
enemy3.shipModel = Storage.shipdb(dice, 0)
Else
enemy3.shipModel = Storage.shipdb(0, 0)
img_enemy3.Visible = False
End If
img_enemy3.Picture = LoadPicture(App.Path & Storage.shipdb(dice, 2))
If enemy4.exists Then
dice = Int((Rnd * 3) + 6)
enemy4.shipModel = Storage.shipdb(dice, 0)
Else
enemy4.shipModel = Storage.shipdb(0, 0)
img_enemy4.Visible = False
End If
img_enemy4.Picture = LoadPicture(App.Path & Storage.shipdb(dice, 2))
If enemy5.exists Then
dice = Int((Rnd * 3) + 6)
enemy5.shipModel = Storage.shipdb(dice, 0)
Else
enemy5.shipModel = Storage.shipdb(0, 0)
img_enemy5.Visible = False
End If
img_enemy5.Picture = LoadPicture(App.Path & Storage.shipdb(dice, 2))
End SubCitarEl procedimiento externo no es válido.Marcándome la palabra Timer de la linea:
Randomize Timerpicturebox1.picture = LoadPicture ("ruta del archivo")pic_ship.picture = LoadPicture ("C:\Program Files\SpaceRPG\Ships\scout mk I.gif")CitarError '76' en tiempo de ejecución:
No se ha encontrado la ruta: 'C:\Program Files\SpaceRPG\Ships\scout mk I.gif'
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define N 5 /*Tras pruebas, 1000*/
#define M 5 /*Cantidad de marcas, no definida en enunciado, 5 por poner varias*/
#define L 20 /*Longitud de cadena*/
typedef struct
{
int cod;
int cig;
char marca;
} encuesta;
typedef struct
{
char marca2[L];
int numero_cig;
} vector;
void menu();
void intro(encuesta* dat);
float media(encuesta* dat);
void cons_marca(encuesta* dat, vector* mar);
void mejor_marca(vector* mar);
int posicionar(char data[], char mar[]);
/*Modulo Principal*/
void main()
{
encuesta datos[N];
vector marcas[M]= /*Viene pre-cargado segun el enunciado*/
{{"Malboro",0},
{"Lucky",0},
{"Strike",0},
{"Camel",0},
{"Otra",0}};
int op;
float mid;
system("cls");
menu();
scanf("%d",&op);
while(op!=5)
{
switch(op)
{
case 1:
intro(datos);
break;
case 2:
mid=media(datos);
printf("\nMedia: %f",mid);
break;
case 3:
cons_marca(datos,marcas);
break;
case 4:
mejor_marca(marcas);
break;
case 5:
printf("\nSaliendo de la aplicacion...");
getchar();
default:
printf("\nOpcion erronea");
}
system("cls");
menu();
scanf("%d",&op);
}
}
/*0.- Menu*/
void menu()
{
system("cls");
printf("\nMENU:\n--\n");
printf("1.- Recogida de datos\n");
printf("2.- Media de Cigarrillos\n");
printf("3.- Consumo por Marcas\n");
printf("4.- Marca con Mayor Consumo\n");
printf("5.- Fin\n");
printf("Seleccione una opcion... ");
}
/*1.- Recogida de datos*/
void intro(encuesta* dat)
{
int cont;
system("cls");
for(cont=0;cont<N;cont++)
{
dat[cont].cod=cont; /*Cod Numerico automatico segun introduccion*/
printf("Cigarrillos Diarios: ");
scanf("%d",&dat[cont].cig);
printf("\nMarca: ");
scanf("%s",dat[cont].marca);
}
}
/*2.- Media de cigarrillos fumados por persona y dia*/
float media(encuesta* dat)
{
int cont;
float mid=0;
system("cls");
for(cont=0;cont<N;cont++)
{
mid=mid+dat[cont].cig;
}
mid=mid/N;
return mid;
}
/*3.- Visualizacion del consumo por marcas*/
void cons_marca(encuesta* dat, vector* mar)
{
int cont,pos;
for(cont=0;cont<N;cont++)
{
pos=posicionar(&dat[cont].marca,mar);
mar[pos].numero_cig=mar[pos].numero_cig+dat[cont].cig;
}
system("cls");
printf("Consumo por marcas:\n--\n");
for(cont=0;cont<N;cont++)
{
printf("%s: %d\n",dat[cont].marca,mar[pos].numero_cig);
}
}
/*4.- Marca con mayor indice de fumadores*/
void mejor_marca(vector* mar)
{
int cont,max=0,pos;
for(cont=0;cont<N;cont++)
system("cls");
{
if(mar[cont].numero_cig>max)
{
max=mar[cont].numero_cig;
pos=cont;
}
}
printf("Mejor Marca: %s", mar[pos].marca2);
}
/*3.1- Localizacion de la posicion correcta para incrementar el valor de dat[].cig*/
int posicionar(char data[], char mar[])
{
int cont=0,pos,found=0;
while((cont<M)||(!found))
{
if(strcmp(data,mar)==0);
{
pos=cont;
found=1;
}
cont++;
}
return pos;
}
#include <stdio.h>
main()
{
char opcion;
int a=0,b=0,c=0,ap,bp,cp,x;
printf("Introduzca un trayecto\n");
opcion=getchar();
printf("Introduzca cantidad\n");
scanf("%d",&x);
while(opcion!='$')
{
switch(opcion)
{
case 'a':
a=a+x;
break;
case 'b':
b=b+x;
break;
case 'c':
c=c+x;
break;
default:
printf("Opcion erronea\n");
}
printf("Introduzca un trayecto\n");
opcion=getchar();
printf("Introduzca cantidad\n");
scanf("%d",&x);
}
ap=a*6;
bp=b*12;
cp=c*18;
printf("\tNºBILLETES\tTOTAL EUROS");
printf("A\t%d\t%d",a,ap);
printf("B\t%d\t%d",b,bp);
printf("C\t%d\t%d",c,cp);
}#include <stdio.h>
main()
{
int cont,actual,n,res5,res3;
printf("Introduzca n\n");
scanf("%d",&n);
for(actual=1;actual<=n;actual++)
{
res5=0;
res3=0;
while(cont<=actual/2)
{
if(actual%cont==0)
{
res5=res5*cont;
res3=res3+cont;
}
}
if(res5%5==0)
{
printf("El producto de los divisores de %d es multiplo de 5\n",actual);
}
else
{
printf("El producto de los divisores de %d no es multiplo de 5\n",actual);
}
if(res3%3==0)
{
printf("La suma de los divisores de %d es multiplo de 3\n",actual);
}
else
{
printf("La suma de los divisores de %d no es multiplo de 3\n",actual);
}
if ((res5%5==0)&&(res3%3==0))
{
printf("Cumplen ambas condiciones anteriores a la vez\n");
}
else
{
printf("No cumplen ambas condiciones anteriores a la vez\n\n");
}
}
}#include <stdio.h>
<variable> = <valor><variable><variable1> = <variable2><Nombre> (<índice>)<Nombre> (<índice1><índice2>)Leer <variable>
Leer <lista de variables<variable> = <expresión>visualizar <expresión> (Pantalla)
imprimir <expresión> (Impresora)<nombre_modulo>Si <condición>
<instrucción1>
<instrucción2>
<instrucciónn>
Fin SiSi <condición>
<instrucción11>
<instrucción12>
<instrucción1n>
Sino
<instrucción21>
<instrucción22>
<instrucción2n>
FinSiSegún_Valor: <expresión>
<valor1>: <bloque de instrucción 1>
<valor2>: <bloque de instrucción 2>
<valorn>: <bloque de instrucción n>
Por_Defecto: <bloque de instrucción por defecto>
Fin_Según_ValorMientras <condición>
<Instrucción1>
<Instrucción2>
<Instrucciónn>
FinmientrasRepetir
<Instrucción1>
<Instrucción2>
<Instrucciónn>
Mientras <condición>Para <variable> = <valor_inicial> hasta <valor_final> Inc = <valor_incremento>
<Instrucción1>
<Instrucción2>
<Instrucciónn>
Finpara<variable> = <variable> + 1<variable1> = <variable1> + <variable2>INICIO
a = 0, b = 1
VISUALIZAR "Introduzca n"
LEER n
SI n > 2
suma = a + b
VISUALIZAR a,"",b
PARA cont = 3 HASTA n
a = suma
suma = a + suma
VISUALIZAR suma
FIN PARA
SINO
VISUALIZAR "No se puede aplicar la serie a menos de 3 términos!"
FIN SI
FININICIO
final = 0
REPETIR
res = 0
PARA cont = 1 HASTA n DIV 2
SI cont % n == 0
res = res + cont
FIN SI
FIN PARA
SI res == n
VISUALIZAR n
final = final + 1
FIN SI
n = n + 1
MIENTRAS final < 25
FININICIO
nalumnos = 0, global = 0
REPETIR
VISUALIZAR "Introduzca el nombre del alumno"
LEER alumno
media = 0
SI alumno != fin
PARA cont = 1 HASTA 6
VISUALIZAR "Introduzca la nota número" , cont
LEER nota
media = media + nota
FIN PARA
media = media / 6
global = global + media
nalumnos = nalumnos + 1
VISUALIZAR alumno, media
FIN SI
MIENTRAS alumno != fin
global = global / nalumnos
VISUALIZAR "Media del grupo: ", global
FININICIO
primos = 0
VISUALIZAR "Introduzca n"
LEER n
MIENTRAS primos < n
cont = 0, cond = true
MIENTRAS cond = true
cont = cont + 1
SI cont % a = 0
cond = false
FIN SI
FIN MIENTRAS
SI cont == a
VISUALIZAR a
primos = primos + 1
FIN SI
a = a +1
FIN MIENTRAS
FININICIO
MIENTRAS numeros(33) < 3
VISUALIZAR "Introduzca el número de bola"
LEER bola
numeros(bola) = numeros(bola) + 1
FIN MIENTRAS
PARA cont = 1 HASTA 80
VISUALIZAR "Número de ", bola, "que salieron: ", numeros(bola)
FIN PARA
FININICIO
VISUALIZAR "Introduzca pieza y departamento"
LEER pieza, dep
MIENTRAS pieza != 0
SI pieza < 0 == 1 OR pieza > 0 == 1
VISUALIZAR "Pieza número ", pieza, "es incorrecta"
SINO
deps(dep,pieza) = deps(dep,pieza) + 1
FIN SI
VISUALIZAR "Introduzca pieza y departamento"
LEER pieza, dep
FIN MIENTRAS
PARA dep = 1 HASTA 8
PARA pieza = 0 HASTA 8
VISUALIZAR "Departamento: ", dep, "Pieza: ", pieza, "Cantidad: ", deps(dep,pieza)
FIN PARA
FIN PARA
FININICIO
//Resolución del apartado A con dos bucles para.
PARA y=1 HASTA 3
PARA x=1 HASTA 4
VISUALIZAR "El valor de pieza",x,"en almacén",y,"es",(inventario(x,y)*coste(x))
FIN PARA
FIN PARA
//Resolución del apartado B con dos bucles para.
PARA y=1 HASTA 3
tgt=0
PARA x=1 HASTA 4
tgt=tgt+(inventario(x,y)*coste(x))
FIN PARA
VISUALIZAR "El valor de almacén",y,"es",tgt
FIN PARA
//Resolución del apartado C con dos bucles para
PARA x=1 HASTA 4
tgt=0
PARA y=1 HASTA 3
tgt=tgt+(inventario(x,y)*coste(x))
FIN PARA
VISUALIZAR "El valor de piezas",x,"es",tgt
FIN PARA
//Resolución del apartado D con dos bucles para
sup=0
PARA y=1 HASTA 3
tgt=0
PARA x=1 HASTA 4
tgt=tgt+(inventario(x,y)*coste(x))
FIN PARA
sup=sup+tgt
FIN PARA
VISUALIZAR "Valor global es",sup
FININICIO
//Resolución de los apartados A, B y D en el mismo bucle PARA
PARA y=1 HASTA 3
tgt=0
PARA x=1 HASTA 4
part = inventario(x,y)*costes(x)
VISUALIZAR "Valor de pieza",x,"en almacén",y,"es",part
tgt = tgt + part
FIN PARA
sup = sup + tgt
VISUALIZAR "Valor total de almacén",y,"es",tgt
FIN PARA
VISUALIZAR "Valor total global",sup
//Resolución del apartado C en otros dos bucles PARA, ya que
//en esta es necesario colocarlos de forma inversa.
PARA x=1 HASTA 4
tgt=0
PARA Y=1 HASTA 3
tgt = tgt + (inventario(x,y)*coste(x))
FIN PARA
VISUALIZAR "El valor de piezas",x,"es",tgt
FIN PARA
FIN
