Programação

1) Questão (2.5) Calcule quantos azulejos são necessários para azulejar uma parede. É necessário conhecer a altura da parede (AP), a sua largura (LP), e a altura do azulejo (A) e sua largura (LA). Leia os dados através do teclado. Programa azulejos;
Var
Altura_p,Largura_p,Altura_az,Largura_az,Quant_az :real;
Inicio
Escreva (‘ Leia a altura da parede -> ’); Leia (Altura_p); Escreva (‘ Leia a largura da parede -> ’); Leia (Largura_p); Escreva (‘ Leia a altura do azulejo -> ’); Leia (Altura_az); Escreva (‘ Leia a largura do azulejo -> ’); Leia (Largura_az); Quant_az = (Altura_p*Largura_p)/( Altura_az*Largura_az); Escreva (‘ Serão necessários ‘, Quant_az , ’ azulejos p/ azulejar a parede ’)

2) Questão (3.5) João Papo-de-Pescador, homem de bem, comprou um microcomputador para controlar o rendimento diário de seu trabalho. Toda vez que ele volta da pesca, traz um peso de peixes maior que o estabelecido pelo regulamento de pesca do estado de São Paulo (50 quilos) deve pagar uma multa de R$ 4,00 por quilo excedente. João precisa que você faça um algoritmo que leia o peso de peixes que ele pescou e verifique se há excesso. Se houver, emitir uma mensagem de Excesso de Peso, calcule o valor da multa que João deverá pagar, quantos quilos João pescou, a quantidade de excesso e o valor da multa.
Programa Boa_Pesca;
Var
Peso_peixe, excesso_peso : integer; Val_multa : real;
Inicio
Escreva (‘ Digite a quantidade de peixe que João pescou -> ’) Leia (Peso_peixe); Se Peso_piexe > 50 entao inicio Escreva (‘Houve excesso de peso ....’) excesso_peso:= Peso_peixe – 50; Val_multa:= excesso * 4.00; Escreva (‘Joao pescou ‘,Peso_peixe,’ kilos de peixes ‘); Escreva (‘Teve ’,excesso_peso,’ kilos de excesso’); Escreva (‘ Pagando R$ ‘,Val_multa,’ de multa pelo excesso’); fim senao escreva (‘Quantidade de peixe dentro do limite.....’);
Fim.

3) Questão (4.0)