Perguntar o nome do usuário

Algoritmo "nome"
Var
 nome: caractere

Inicio
 Escreva ("Digite seu nome: ")
 Leia (Nome)
 Escreval ("Muito prazer ", Nome)
Fimalgoritmo

Calcular a soma de 2 valores

Algoritmo "valores"
Var
 N1, N2, S: inteiro

Inicio
 Escreva("informe um numero: ")
 Leia(N1)
 Escreva("Imforme outro numero: ")
 Leia(N2)
 S <- N2 + N2
 Escreva("A soma e ", S)
Fimalgoritmo

Operadores Aritméticos

                                                             A ← 5
                                                             B ← 2

+	Adição	A + B	7
-	Subtração	A - B	3
*****	Multiplicação	*A B**	10
/	Divisão	A / B	2.5
\	Divisão inteira	A \ B	2
^	Exponenciação	A ^ B	25
%	Módulo	A % B	1

Ordem de Precedência

( )	Parênteses
^	Exponenciação
*/	Multiplicação / Divisão
+ -	Adição / Subtração

$3 + 2 / 2 =$ 4

$(3 + 2) / 2 =$ 2.5

Funções Aritmétricas

Abs	Valor Absoluto	Abs(-10)	10
Exp	Exponenciação	Exp(3.2)	9
Int	Valor Inteiro	Int(3.9)	3
RaizQ	Raiz Quadrada	RaizQ(25)	5
Pi	Retorna Pi	Pi	3.14..
Sen	Seno (rad)	Sen(0.523)	0.5
Cos	Cosseno (rad)	Cos(0.523)	0.86
Tan	Tangente (rad)	Tan(0.523)	0.57
GraupRad	Graus para Rad	GraupRad(30)	0.52

Utilizando Funções Aritmétricas

**Algoritmo "funcoes_aritimetricas"
Var
 A: inteiro
 B: Real
 C: Real
 D: Real
 E: Real
 F: Real
Inicio
  A <= Abs(-50)
  Escreva(A)
  
  B <- Exp(9, 5)
  Escreva(B)
  
  C <- RaizQ(81)
  Escreva(C)
  
  D <- (RaizQ(90))
  Escreva(D)
  
  E <- GraupRad(90)
  Escreva(E)
  
  F <- Sen(GraupRad(90))
  Escreva(F)
Fimalgoritmo**

Algoritmo "angulo"
Var
 angulo, S: Real

Inicio
 Escreva("informe um angulo: ")
 Leia(angulo)
 S <- Sen(GraupRad(angulo))
 Escreva("O seno de ", angulo, " e igual a ", S)

Fimalgoritmo