Trabalho de Linguagem de Programa o I

629 palavras 3 páginas
TRABALHO DE LINGUAGEM DE PROGRAMAÇÃO I

Data: 18 de Junho de 2012.

Program Atividade_Supervisionada ; var n1,n2: Real; n3,Fat,Fatt,Opera,Resp: Integer; Procedure Soma; begin Writeln ('Digite seu primeiro valor: '); read (n1); Writeln ('Digite seu segundo valor: '); read (n2); n1:=n1+n2; Writeln ('O resultado desta Operação é: ', n1:0:0); end; Procedure Subitracao; begin Writeln ('Digite seu primeiro valor: '); read (n1); Writeln ('Digite seu segundo valor: '); read (n2); n1:=n1-n2; Writeln ('O resultado desta Operação é: ', n1:0:0); end; Procedure Produto; begin Writeln ('Digite seu primeiro valor: '); read (n1); Writeln ('Digite seu segundo valor: '); read (n2); n1:=n1*n2; Writeln ('O resultado desta Operação é: ', n1:0:0); end; Procedure Divisao; begin Writeln ('Digite seu primeiro valor: '); read (n1); Writeln ('Digite seu segundo valor: '); read (n2); n1:=n1/n2; Writeln ('O resultado desta Operação é: ', n1:0:2); end; Procedure Potenciacao; begin Writeln ('Digite um valor para ser a Base: '); read (n1); Writeln ('Digite um valor para ser o Expoente: '); read (n2); n1:=n1*n2; Writeln ('O resultado desta Operação é: ', n1:0:0); end; Procedure Raiz; begin Repeat Writeln ('Digite um valor '); read (n1); until (n1>0); n1:=sqrt(n1); writeln ('O resultado desta Operação é: ', n1:0:0); end; Procedure Fatorial; begin Writeln ('Digite um valor: '); read (n3); if (n3=0) then Fat:=1 else Begin Fat:=1; for Fatt:=1 to n3 do Fat:=Fat*Fatt; end; Writeln ('O resultado desta Operação é: ', Fat); end; Procedure Operacao; begin if (Opera>1) or

Relacionados

  • Sistema da informação
    2995 palavras | 12 páginas
  • dsadas
    13563 palavras | 55 páginas
  • Trabalho Hudson parcial 2
    2376 palavras | 10 páginas
  • comecando a programar
    3036 palavras | 13 páginas
  • Revisao av1 estrutura de dados
    1590 palavras | 7 páginas
  • Exercicios AEDS
    482 palavras | 2 páginas
  • Agents Language: Uma Linguagem de Programação de Robôs
    3169 palavras | 13 páginas
  • Desenvolvedor
    8806 palavras | 36 páginas
  • esteira
    8927 palavras | 36 páginas
  • ATPS Paradigmas Completa
    5263 palavras | 22 páginas