Introdução a processamento de dados

1- Programa Area; Var A,r,p: Real; Inicio p:=3,14; Escreva ("Digite o raio"); Leia (r); Se (r >= 1) Então A:=p*(r^2); Escreva (A); Senão Escreva ("valor inválido"); FimSe; Fim.

2- Programa Temperatura; Var C,F: Real; Inicio Escreva ("Insira a temperatura em Fahrenheint:"); Leia (F); C:= ((F-32)/9)*5; Escreva ("O valor da temperatura em Celcius é": C); Fim.

3- Programa lampadas; Var pot1,l,c,A,pot2,lamp: real; Inicio Escreva ("potência da lâmpada em watts:"); Leia (pot1); Escreva ("largura do cômodo:"); Leia (l); Escreva ("comprimento do cômodo:"); Leia (c); A:=l*c; pot2:=A*18; lamp:=pot2/pot1; Escreva ("numero de lâmpadas necessárias para iluminar o cômodo é:" lamp); Fim.

4- Programa Taxi; Var k1,k2,m,g,r,l,k: Real; Inicio Escreva ("quilometragen no inicio do dia:"); Leia (k1); Escreva ("quilometragen no final do dia:"); Leia (k2); Escreva ("o total gasto com gasolina no dia:"); Leia (g); l:=g/1.90; m:=(k2-k1)/l; Escreva ("a média de consumo de em Km/L é:" m ); Escreva ("total recebido no fim do dia;"); Leia (r); k:=r-g; Escreva ("o Lucro total do dia é:" k); Fim.

5- Programa Origem; Var esc: Inteiro; Inicio Escreva ("Digite o Código do produto:"); Leia (esc); Escolha (esc) Caso: 1 Escreva ("Sul"); Caso: 2 Escreva ("Norte"); Caso: 3 Escreva ("Leste"); Caso: 4 Escreva ("Oeste"); Caso: 5 Escreva ("Nordeste"); Caso: 6 Escreva ("Nordeste"); Caso: 7 Escreva ("Sudeste"); Caso: 8 Escreva ("Sudeste"); Caso: 9 Escreva ("Sudeste");