| Navegación |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Programacion
Programa para Sumas
W.S el 13-03-2010, 14:12 (UTC) | | | ******area de comentario*****
*PROGRAMADOR: Walter Salguero
*PROGRAMA: Suma
*FECHA: 00-00-00
*COMPILADOR:
*****area de interuptores*****
clear
clear all
*****area de codificacion*****
DEFINE WINDOWS SUMA FROM 4,18 TO 30,75 FLOAT TITLE "PROGRAMA SUMA" ZOOM MINIMIZE CLOSE
ACTIVATE WINDOWS SUMA
STORE 0 TO A,B,C
@ 3,5 SAY "INGRESE PRIMERA CANTIDAD" GET A
@ 6,5 SAY "INGRESE SEGUNDA CANTIDAD" GET B
READ
C= A+B
@ 9,5 SAY "LA SUMA ES:"
@ 9,17 SAY C
@ 12,5 SAY "DECEA CONTINUAR"
@ 15,2 PROMPT "SI"
@ 15,18 PROMPT "NO"
MENU TO SUMA
DO CASE
CASE SUMA=1
DO W2
CASE SUMA=2
CLEAR
CLEAR ALL
CANCEL
ENDCASE
Nota: Para realizar la resta, multiplicación y división solo se hacen unos cambios de signo y ejecución del programa.
| | | |
|
Programa para organigrama
W.S el 13-03-2010, 14:09 (UTC) | | | Código para un organigrama
******area de comentario*****
*PROGRAMADOR: Walter Salguero
*PROGRAMA: Organigrama
*FECHA: 00-00-00
*COMPILADOR:
*****area de interuptores*****
clear
clear all
*****area de codificacion*****
@ 3,80 to 7,102
@ 7,91 to 17,91
@ 9,61 to 13,81
@ 11,81 to 11, 91
@ 17,61 to 17,121
@ 17,61 to 20,61
@ 17,91 to 20,91
@ 17,121 to 20,121
@ 20,51 to 24,71
@ 20,81 to 24,101
@ 20,111 to 24,131
@ 24,91 to 30,91
@ 30,81 to 34,101
@ 4,86 say "Direcctor"
@ 10,67 say "Secretaria"
@ 21,57 say "Maestro"
@ 21,87 say "Maestro"
@ 21,117 say "Maestro"
@ 31,87 say "Alumnos"
| | | |
|
|
|
|
|
|
|
| |
Hoy habia 8 visitantes (10 clics a subpáginas) ¡Aqui en esta página! |
|
|
|
|
|
|
|
