Algoritmo

// ----------------------------------------------------------------
// Este programa informa o dia da semana que corresponde a uma
// data informada pelo usuario :~
// Autor : Luiz Reginaldo - Desenvolvedor do Pzim
// -------------------------------------------------------------

Program CalculaDiaSemana ;

var dia, mes, ano : integer ; // dados informados pelo usuario diaAux, mesAux, anoAux, seculo: integer; // auxiliares diaSemana: string[15] ; // Nome do dia da Semana

Begin // Solicita ao usuario o dia write('Digite o dia: '); read(dia); while (dia < 1) or (dia > 31) do Begin write('diaAux invalido, informe novamente'); read(dia); End;

// Solicita ao usuario o mes write ('Digite o mes: '); read (mes); while (mes < 1) or (mes > 12) do Begin write('Mes Invalido, informe novamente'); read(mes); End;

// Solicita ao usuario o ano write ('Digite o Ano: '); read (ano); while (ano < 1) or (ano > 9999) do Begin write('Ano invalido, informe novamente '); read(ano); End;

// Obtem valores para calcular o dia da semana seculo:= ano div 100; anoAux:= ano mod 100; If mes 0 ) then Begin writeln('Para delta > 0 existem duas raizes reais, x1 e x2') ; writeln('Nesse caso x1 = (-b + raiz(delta)) / 2a '); writeln('Nesse caso x1 = (-b - raiz(delta)) / 2a '); x1 := (-b + sqrt(delta)) / (2*a) ; x2 := (-b - sqrt(delta)) / (2*a) ; writeln('O valor de x1 = ', x1 ); writeln('O valor de x2 = ', x2 ); End ; End.

// -----------------------------------------------------------------
// Programa que calcula o MMC de dois números. :~
//
// Contribuição: Danilo Rafael Galetti.
// ----------------------------------------------------------------

Program Pzim ; var PrimeiroValor,SegundoValor,Divisor,MMC:Integer; Begin writeln (' Programa que