O Exemplo de Um Problema Para Criar um Diagrama ER

Algoritmo prova B

x1, x2, x3, y1, y2, y3: inteiro

a, b, c,: inteiro

S, Area :real

Inicio

Escrever ("Indique as coordenadas para o primeiro vértice", x1, y1)

Escrever ("Indique as coordenadas para o segundo vértice", x2, y2)

Escrever ("Indique as coordenadas para o terceiro vértice", x3, y3)

a <-- sqrt^2(((x2 - x1)^2) * ((y2 - y1)^2))

b <-- sqrt^2(((x3 - x2)^2) * ((y3 - y2)^2))

c <-- sqrt^2(((x1 - x3)^2) * ((y1 - y3)^2))

S <-- (a+b+c)/2

Area <-- S*((S-a)*(S-b)*(S-c))

Ler (Area)

Fim

Algoritmo prova B Funcoes

x1, x2, x3, y1, y2, y3: inteiro

a, b, c,: real

S, Area :real

Procedimento LerValores ()

x1, x2, x3, y1, y2, y3 <-- 0

Inicio

Escrever ("Indique as coordenadas para o primeiro vértice", x1, y1)

Ler (x1,y1)

Escrever ("Indique as coordenadas para o segundo vértice", x2, y2)

Ler (x2,y2)

Escrever ("Indique as coordenadas para o terceiro vértice", x3, y3)

Ler (x3,y3)

Fim-Procedimento

Função CalcularLado():real

a, b, c <-- 0

Inicio

a <-- sqrt^2(((x2 - x1)^2) * ((y2 - y1)^2))

b <-- sqrt^2(((x3 - x2)^2) * ((y3 - y2)^2))

c <-- sqrt^2(((x1 - x3)^2) * ((y1 - y3)^2))

Retornar a,b,c

Fim-Procedimento

Função CalcularSemiPerimetro(a, b, c:real):real

S <-- 0

Inicio

S <-- (a+b+c)/2

Retornar S

Fim-Procedimento

Função CalcularArea(a, b, c, S:real):real

Area <-- 0

Inicio

Area <-- S*((S-a)*(S-b)*(S-c))

Retornar Area

Fim-Procedimento

Procedimento LerArea(Area:real)

Inicio

Ler (Area)

Fim-Procedimento

Inicio

LerValores()

a, b, c <-- CalcularLado()

S <-- CalcularSemiPerimetro(a, b, c)

Area <-- CalcularArea(a, b, c, S)

LerArea(Area)

Fim-algoritmo

Algoritmo prova F Funcoes

numeros [10]:inteiro

Maior, Menor, Soma :inteiro

Media :real

Procedimento EscreverValores ()

Inicio

i <-- 0

Para i de 1 até 10 faça

Escrever ("Indique um valor ")

Ler numero[i]

Fim - Para

Fim-Procedimento

Função CalcularSoma(numero[]:inteiro):inteiro

Soma <-- 0

i <-- 0

Inicio

Para i de 1 até 10 faça

Soma <-- Soma + numero[i]

Fim-Para

Retornar Soma

Fim-função

Procedimento MaiorMenor(numero[])

Menor <-- 0

Maior <-- 0

i <-- 0

Inicio

Para i de 1 até 10 faça

Se i <-- 1

Menor