maestro

Ahora se plantea un ejemplo controlado por el usuario basándose en el ejemplo de la “Constructora Océano”, Planteado en la sentencia Do….. Case… Endcase, se deseaque el programa finalice hasta que ya haya mas empleados en fila. Para ello se creara una nueva variable llamada “Continuar” que almacenara un carácter, y agregara alfinal del ciclo una captura de la misma para determinar si continua o finaliza el ciclo.
set talk off
set status off
continuar=’s’
do while continuar=’s’ orcontinuar =’s’
nombre = space(50)
ht=0
cat=” “
clear
@3,25 say “Compañia Constructora Oceano”
@5,25 say “Calculo de Salario Seamnale”
@7,10 say “Nombre delEmpleado”get nombre
@9,15 say “1.Supervision”
@ 10, 15 say “2.Construccion”
@11,15 say “3.Ayudante”
@12,15 say “4.Limpieza”
@14,10 say “Categoria de trabajo (1-4):”get cat@15,10 say “Numero de Horas trabajadas:” get ht picture ‘999.’
read
do case
case cat=”1”
pago= Ht*40
case cat= “2”
pago= Ht*25
case cat= “3”
pago= Ht*15case cat= “4”
pago= Ht*20
endcase
@17,15 say “El pago de Semana actual es de:L.”
@17,60say str (pago,10,2)
@20,10say “¿Hay mas Empreados? (S/N):”get continuarread
enddo
Himno !Oh 15 De Septiembre!



Oh 15 de septiembre!
La fecha del hondureño
Escrito en letras de oro
Tu fecha guardara.
Tu fecha nos recuerda
Laintrépida conquista
De un mágico tesoro
La patria libertad. (Bis)

La tierra de los libres
Rompió la tiranía
Cual roto su capullo
La oruga hecho a volar.
Lospadres de la patria
Nos dieron este día
A todos los hondureños
Gobierno nacional. (Bis)

¡Oh 15 de septiembre!
Por ti tenemos patria
Tú eres natalicio