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