Kaibaman-Cards

miƩrcoles, 1 de abril de 2009

Para a<-1 Hasta 20
Con Paso 1
Hacer
Escribir a;
FinPara
FinProceso

Para b<--20 Hasta 1Con Paso 1 Hacera<-b*-1;
Escribir a;
FinPara
FinProceso

SUMA DE NUMEROS
Para a<-1 Hasta 1 Con Paso 1 Hacer b<-a+2; c<-b+3; d<-c+4; e<-d+5;
Escribir e;
FinPara
FinProceso

Escribir "ingresar tipo de moneda";
Escribir "1.-Q";Leer opcion;E
Escribir "2.-$";
Leer opcion;
Segun opcion Hacer1:
Escribir " cantidad en quetzales";
Leer q;
Q<-q/7.98;Escribir "dolares",Q;
2:Escribir "ingrese la cantidad en dolares";
Leer d;
D<-d*7.98;
Escribir "quetzales",D;
FinSegun
FinProceso

Proceso Datos
Escribir "Ingrese su nombre: ";
Leer nombre;
Escribir "Ingrese el nombre de su novi@: ";
Leer novio;
Escribir "Ingrese su nota mas baja: ";
Leer nota;
FinProceso

#include
#include
#include
main()
{
clrscr();
for(int var1=1;var1<=20;var1++)
{ cout< }
getch();
return 0;
}

#include
#include
#include
main()
{
clrscr();
gotoxy(25,35);printf
("__________________________");
getch();
return 0;
}