bueno un algoritmo es : la serie de proceos q obtenemos para llegar a un resultado en concreto en el cual nuestra logica juega un papel importante .por eso hago este foro para que hagamos nuestros algorimos y los pongamos y asi ayudarnos mas que nada para los que nos gusta la informatica

el primero lo dejo yo es una simple suma pero hire agregando mas y espero que me ayuden con sus algoritmos no importa la plataforma que utilisen para programar a ver que logramos hacer ... despues si me ayudan y yo tratatre de poner bases y definiciones principales de programacion y poo (programacion orientada a objetos)


{
class number
int main ();
float x,y,z
printf(escribe el primer digito");
scantf(x);
printf(escribe el segundo digito");
scantf(Y);
z=x+y
printf("el resultado es; z");
return 0
}

bueno cabe mencionar que esto esta en C y omiti el llamado de variables con (%d %f %i )

nota :aun no soy muy buen programador asi que agradeceria a ikas a virtual y a tanis si checan los algoritmos que vaya dejando y si detectan errores los marquen no sea que la este regando bueno pues espero esto sea un exito y hagamos muchos algoritmos cada vez mas complicados..


_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

asi hasta podriamos hacer un sistema operativo

ps haber que aprendo mi jamd, tu eres bueno en esto como los demas
animense
el ika deberia estar aqui
uuuuuuuhhhhh!!!

_________________

Difunde. Descarga Firefox

pues este es mi "peque~no" algoritmo para un programa... weno... es una calculadora

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TCalcu = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
procedure Button19Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Calcu: TCalcu;
num,res:real;
perm,coso,tush,exc:integer;

implementation

{$R *.dfm}




procedure TCalcu.Button19Click(Sender: TObject);
begin {on}
edit1.Visible:=true;
num:=0;
coso:=0;
res:=0;
perm:=1;
exc:=0;
edit1.Text:='0';
end;

procedure TCalcu.Button20Click(Sender: TObject);
begin {off}
edit1.Visible:=false
end;

procedure TCalcu.Button10Click(Sender: TObject);
begin {0}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '0';
num:= strtofloat (edit1.text);
end;

procedure TCalcu.Button1Click(Sender: TObject);
begin {1}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '1';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button2Click(Sender: TObject);
begin {2}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '2';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button3Click(Sender: TObject);
begin {3}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '3';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button4Click(Sender: TObject);
begin {4}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '4';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button5Click(Sender: TObject);
begin {5}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '5';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button6Click(Sender: TObject);
begin {6}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '6';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button7Click(Sender: TObject);
begin {7}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '7';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button8Click(Sender: TObject);
begin {8}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';

edit1.Text:=edit1.text + '8';
num:=strtofloat (edit1.text);
end;

procedure TCalcu.Button9Click(Sender: TObject);
begin {9}
If tush=1 then
Begin
num:=0;
res:=strtofloat (edit1.Text);
edit1.Text:='';
tush:=0;
end;
If (num=0) or (edit1.text='e') then edit1.text:='';
edit1.Text:=edit1.text + '9';
num:=strtofloat (edit1.text);
end;


procedure TCalcu.Button18Click(Sender: TObject);
begin {CE}
edit1.Text:='0';
num:=0;
exc:=0;
end;

procedure TCalcu.Button14Click(Sender: TObject);
begin {+}
If (num=0)and(coso=4)then exc:=1 else
If perm=1 then
Case coso of
1: num:=res+num;
2: num:=res-num;
3: num:=res*num;
4: num:=res/num;
end;
If perm <> 0 then res:=num;
coso:=1;
perm:=1;
num:=0;
IF exc=1 then
Begin
edit1.text:='E';
res:=0;
end
else edit1.text:=floattostr(res);
exc:=0;
end;

procedure TCalcu.Button15Click(Sender: TObject);
begin {-}
If (num=0)and(coso=4)then exc:=1 else
If perm=1 then
Case coso of
1: num:=res+num;
2: num:=res-num;
3: num:=res*num;
4: num:=res/num;
end;
If perm <> 0 then res:=num;
coso:=2;
perm:=1;
num:=0;
IF exc=1 then
Begin
edit1.text:='E';
res:=0;
end else edit1.text:=floattostr(res);
exc:=0;
end;

procedure TCalcu.Button17Click(Sender: TObject);
begin {*}
If (num=0)and(coso=4)then exc:=1 else
If perm=1 then
Case coso of
1: num:=res+num;
2: num:=res-num;
3: num:=res*num;
4: num:=res/num;
end;
If perm <> 0 then res:=num;
coso:=3;
perm:=1;
num:=0;
IF exc=1 then
Begin
edit1.text:='E';
res:=0;
end else edit1.text:=floattostr(res);
exc:=0;
end;

procedure TCalcu.Button16Click(Sender: TObject);
begin {/}
If (num=0)and(coso=4)then exc:=1 else
If perm=1 then
Case coso of
1: num:=res+num;
2: num:=res-num;
3: num:=res*num;
4: num:=res/num;
end;
If perm <> 0 then res:=num;
coso:=4;
perm:=1;
num:=0;
IF exc=1 then
Begin
edit1.text:='E';
res:=0;
end else edit1.text:=floattostr(res);
exc:=0;
end;

procedure TCalcu.Button12Click(Sender: TObject);
begin {=}
If (num=0)and(coso=4)and(res/num<>0) then exc:=1 else
Case coso of
1: res:=res+num;
2: res:=res-num;
3: res:=res*num;
4: res:=res/num;
end;
perm:=0;
IF exc=1 then Begin
edit1.text:='E';
res:=0;
end else edit1.Text:=floattostr (res);
exc:=0;
tush:=1;
end;

procedure TCalcu.Button11Click(Sender: TObject);
begin {.}
If pos('.',edit1.Text)=0 then
edit1.Text:=edit1.Text + '.';
num:=strtofloat(edit1.Text);
end;

procedure TCalcu.Button21Click(Sender: TObject);
begin {+/-}
num:=strtofloat (edit1.Text);
num:=num*(-1);
edit1.Text:=floattostr (num);
end;

procedure TCalcu.Button13Click(Sender: TObject);
begin {C}
num:=0;
coso:=0;
res:=0;
perm:=1;
exc:=0;
edit1.Text:='0';
end;


end.



obiamente he omitido el codigo de lso objetos usados en este lenguaje llamado delphi... (en el cual no programo desde hace mas de 1 a~no)

a ver quien lo entiende, jajajajajaja
_________________
HAIL CAVPOLLO!!!

wow cav valla codigo muy bueno por ciero jajaja yo nunca he programado nada en delphi el antesesor del c++ builder jejeje solo que creo que el codigo es muy largo para una calculadora y la verdad no le entendi mucho claro esto tal vez se deba a quetu codigo proviene de la POO que esta totalmente orientado a objetos muy vien cav y sigue aportando codigos
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

muy bien aqui les dejo algo llamado o denominda asi programacion en batch aunque es de bajo nivel se las recomiendo pues facil de utilizar y cualquier sistema opertivo tiene el equivalente al simbolo de sistema de windows mejor conocido como DOS.


bueno para comenzar con batch dejare esto batch lo puedes programar desde el java , c, c++ , etc .. que te permitan hacerlo pero dejomos eso de lenguajes atra y hagamoslo en el bloc de notas , para empesar a programar en batch con el bloc de notas les dejare los primeros comandos nesesarios y ya hire poniendo mas y codigos complejos

@echo offapagar comandos
echo imprimir en pantalla
ifsi
gotoir
exit termina o cierra programa
clsborrar en pantalla

nota esta es la primera parte de comandos utilizados posterior mente pondre mas comandos que podemos utilizar les dejo un ejmplo.


@echo off

color 0b
title jamd
:menu

echo.
echo 1.dime el nombre del autor de este foro
echo.
echo 2.salir
set/p cas= élige una opcion

if %cas%==1 goto ve
if %cas%==2 goto sal

cls
:ve
echo el nombre es jamd(jose antonio mendez d)
echo jajajjaja
pause > nul
cls
goto menu

:sal
exit

nota para probar este ejemplo pegalo en un boc de notas y cambia la extension a . bat
[/b]
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

CITA:

---

Escrito anteriormente por: jamd
wow cav valla codigo muy bueno por ciero jajaja yo nunca he programado nada en delphi el antesesor del c++ builder jejeje solo que creo que el codigo es muy largo para una calculadora y la verdad no le entendi mucho claro esto tal vez se deba a quetu codigo proviene de la POO que esta totalmente orientado a objetos muy vien cav y sigue aportando codigos

---

sipirili de hecho te creo cav es un bue codigo
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

aqui un programa simple q muestra 4 diferentes formas de hacer triangulos cuadrados (tiene una q otra cosa en ingles, jeje ^_^)



#include<iostream>
#include<stdlib.h>

using namespace std;

int main(){
int thing,number=0;
do{ cout<<"cunatas estrellas para el triangulo?"<<endl;
cin>>number; }while(number<=0);
cout<<"\n";

//program 1A
for (int i=0; i<number; i++){
for (int j=0; j<=i; j++){
cout<<"*";}
cout<<"\n";};

cout<<"\n";

//program 1B
for (int i=(number-1); i>=0; i--){
//print the number of stars required for each line
for (int j=i; j>=0; j--){
cout<<"*";}
cout<<"\n";};

cout<<"\n";

//program 2A
cout.setf(ios::right);
thing=1;
for (int i=(number-1); i>=0; i--){
cout.width(thing);
for (int j=i; j>=0; j--){
cout<<"*";}
thing=thing+1;
cout<<"\n";};

cout<<"\n";

//program 2B
cout.setf(ios::right);
thing=number;
for (int i=0; i<number; i++){
cout.width(thing);
for (int j=0; j<=i; j++){
cout<<"*";}
thing=thing-1;
cout<<"\n";};

system("pause");
return(0);
}
_________________
HAIL CAVPOLLO!!!

WOW cre q estas mas avanzado que yo jeje
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

jajaja, estos son solo ciclos
_________________
HAIL CAVPOLLO!!!

BIEN HABLANDO DE CICLOS DEJA LOS EXPLICO CAV un ciclo mejor conocido como bucle jajaja bueno nos sirve para repetir una condicion los ciclos son:

do while and for


el do y while se utilizan juntos esto nos dice que la condicion se cumple una vez aunque no funcione se realiza la opcion ;

el while es mientras que ejemplo

mientras (3<=100)
x+y=5

esto quedaria asi
int x, y;
while (3<=100)
x+y=5;

lo cual haria la instruccion hasta que el numero introducido mayor o igual a 3 ok .....el do lo explico despues ok.....es parecido primero la igualacion luego la condicion y por ultimo el contador ;
ejemplo

do (X=3;x>=100;x++)

jajaja espero les agrade la programacion a mi si mucho
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

mi tambien... pero el unico ciclo q puedo usar con c++ es for y while...

antes cuando programaba en delphi utilizaba repeat(casi para todo) y for... pero me han obligado a cambien



_________________
HAIL CAVPOLLO!!!

uyyyyy el do ; while es muy bueno de hecho te ayuda mucho para ahorrar muchos pasos despues pongo un codigo que calcula factorial donde lo utilze para que te cheques la sintaxis a ver si te funciona...
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

pon el batch que me pasaste, ese de la ruleta
xD
_________________

Difunde. Descarga Firefox

ruleta rusa?

_________________
HAIL CAVPOLLO!!!