Algoritmo

algoritmo "semnome"

// Função :

// Autor :

// Data : 16/05/2013

// Seção de Declarações

// Num dia de sol, você deseja medir a altura de um prédio, porém, a trena não

// é suficientemente longa. Assumindo que seja possível medir sua sombra e a do

// prédio no chão, e que você lembre da sua altura, faça um algoritmo para ler

// os dados necessários e calcular a altura do prédio

var

au,ap,su,sp,sr:real

inicio

escreva("Informe tamanho da sombra do predio..: ")

leia(sp)

escreva("Informe tamanho da sombra do usuário.: ")

leia(su)

escreva("Informe altura do usuário............: ")

leia(au)

sr:=(sp/su)

ap:=(sr*au)

Escreva("Altura do prédio:",ap," metros")

fimalgoritmo

algoritmo "semnome"

// Função :

// Autor :

// Data : 15/05/2013

// Seção de Declarações

// A lanchonete Gostosura vende apenas um tipo de sanduíche, cujo recheio inclui

// duas fatias de queijo, uma fatia de presunto e uma rodela de hambúrguer.

// Sabendo que cada fatia de queijo ou presunto pesa 50 gramas, e que a rodela

// de hambúrguer pesa 100 gramas, faça um algoritmo em que o dono forneça a

// quantidade de sanduíches a fazer, e a máquina informe as quantidades

// (em quilos) de queijo, presunto e carne necessários para compra

var

queijo, presunto,hamburguer,g_queijo,g_presunto,g_hamburguer,sand,compra:real

inicio

g_queijo:=50

g_presunto:=50

g_hamburguer:=100

escreva("Informe quantidade de sanduiches.: ")

leia(sand)

queijo:=sand*g_queijo/1000

presunto:=sand*g_presunto/1000

hamburguer:=sand*g_hamburguer/1000

escreval("São necessários:")

escreval("Queijo.....: ",queijo," Kg")

escreval("Presunto...: ",presunto,"

...