Programas e subprogramas

[ANS-MARCOS2015]

Bom dia! Criei um programa através da função DEF ( associada com a tecla 2), contendo as variáveis (D, M, A, K) salvo na variável S.

Preciso editar esse programa, criando um subprograma que armazene na variável "x" o resultado da utilização dessa função do programa criado e em seguida execute um subprograma que fará o uso do comando CASE levando em conta o valor de "x" salvo anteriormente, tendo como resultado final a afirmação verdadeira dentro do comando CASE.

Por favor, quem souber fazer isso, me passe de forma simplificada, como posso salvar o resultado do "programa" e depois executá-lo automaticamente no subprograma e como é a sequência da estrutura lógica para a cronstrução do CASE!

[Maké · Accepted solution]

Ola!, @ANS-MARCOS2015:

Eu posso criar, o programa, em SysRPL, para sua HP50G, mas eu preciso, que você, indicar o fluxograma, equações e unidades, que necessidade, do resultado. Ou, em alternativa, indicar o site, onde eles, podem ser.

[ANS-MARCOS2015]

Boa dia! A função do programa que desejo é assim:

S(D, M, A, K)= ((D+31(M-1)-IP((4M+23)/10)*IP((M+12)/15)+IP(A/4)+365A-(K+2)MOD7)+1)

D= DIA

M= MÊS

A= ANO

K= CONSTANTE (por padrão k=0, mas nos meses de janeiro e fevereiro de ano BISSEXTO, K=1)

O resultado dessa função será sempre um valor no intervalo [1, 7], identificando o dia da semana da data desejada na  sua respectiva ordem.

Com essa função, desejo utilizar um comando que passe o resultado acima para forma de "texto", escrevendo o nome da semanacorrespondente, isto é, se o resultado for 1, então "DOM"; se for 2, então "SEG"; (...) ; se for 7, então "SAB".

[Maké]

Olá!, @ANS-MARCOS2015:

Observação: se você servir essas três simples variáveis globais, para determinar, o que você, precisa, por agora.

Set FLAG : -42

<< 0 TSTR 1 3 SUB >>

Examplo: 

1: 3,232016 = "WED" --> (Quarta-feira)

<< 2023 SWAP DDAY 7 MOD >>

Examplo:

1: 3,232016 = 3

<< 2280000 + MANT 1 DATE+ 3 < >>

Examplo:

1: 2016 = 1 (salto = 1)

1: 2015 = 0 (não salto = 0)