martes, 7 de noviembre de 2017

TRABAJO PRÁCTICO FINAL

TRABAJO PRÁCTICO FINAL

Ejemplo de UNO

Algoritmo MYNAME
Definir N como entero;
N=0;
Escribir "Desea ver una demostración ?";
escribir "1 -->";
escribir "2 -->";
Leer N;
Mientras N = 1 Hacer
escribir "_____                               __          ";
escribir "/  _  \  __ __  ____  __ __  _______/  |_  ____  ";
escribir "/  /_\  \|  |  \/ ___\|  |  \/  ___/\   __\/  _ \ ";
Escribir "/    |    \  |  / /_/  >  |  /\___ \  |  | (  <_> )";
Escribir "\____|__  /____/\___  /|____//____  > |__|  \____/ ";
escribir "\/     /_____/            \/               ";
Escribir "";
Escribir "";
Escribir "";
Escribir "";
Escribir "http://www.network-science.de/ascii/";
Escribir "http://asciiflow.com/";
Escribir "";
Escribir "";
Escribir "Desea ver el contenido otra vez???";
escribir "1 ->";
escribir "2 ->";
Leer N;
Si (N = 1 )Entonces
N = 1;
Sino 
Escribir "Fin ";
FinSi
Borrar Pantalla;
Escribir "Fin de la demostración ";
Fin Mientras
FinAlgoritmo

Ejemplo DOS

Algoritmo Repetir_
Definir  X Como Caracter;
Definir N como entero;
N=0;
Escribir "Ingrese la contraseña";
Repetir
Leer X;
Escribir "Ingrese nuevamente la contraseña";
Hasta Que X = "Sistema21"
Escribir "BIENVENIDO AL SISTEMA";
Escribir "";
Escribir "";
Escribir "Desea ver una demostración ?";
escribir "1 -->";
escribir "2 -->";
Leer N;
Mientras N = 1 Hacer
escribir "_____                               __          ";
escribir "/  _  \  __ __  ____  __ __  _______/  |_  ____  ";
escribir "/  /_\  \|  |  \/ ___\|  |  \/  ___/\   __\/  _ \ ";
Escribir "/    |    \  |  / /_/  >  |  /\___ \  |  | (  <_> )";
Escribir "\____|__  /____/\___  /|____//____  > |__|  \____/ ";
escribir "\/     /_____/            \/               ";
Escribir "";
Escribir "";
Escribir "";
Escribir "";
Escribir "http://www.network-science.de/ascii/";
Escribir "http://asciiflow.com/";
Escribir "";
Escribir "";
Escribir "Desea ver el contenido otra vez???";
escribir "1 ->";
escribir "2 ->";
Leer N;
Si (N = 1 )Entonces
N = 1;
Sino 
Escribir "Fin ";
FinSi
Borrar Pantalla;
Escribir "Fin de la demostración ";
Fin Mientras


FinAlgoritmo

No hay comentarios.:

Publicar un comentario