Administracao

1) Variáveis do Problema : num

Programa Tabuada; Var num:inteiro; Inicio escreva (“ Tabuada do Numero ? : “ ); leia(num); escreva (num,” x 1 = “ , num * 1); escreva (num,” x 2 = “ , num * 2); escreva (num,” x 3 = “ , num * 3); escreva (num,” x 4 = “ , num * 4); escreva (num,” x 5 = “ , num * 5); escreva (num,” x 6 = “ , num * 6); escreva (num,” x 7 = “ , num * 7); escreva (num,” x 8 = “ , num * 8); escreva (num,” x 9 = “ , num * 9); escreva (num,” x 10 = “ , num * 10); Fim.

2) Variáveis do Problema : Entrada : l,c,vmq Processamento: mmq, vtt Saída : mmq, vtt

Programa Terreno; Var l,c,vmq,mmq,vtt:real;
Inicio
Escreva (“Entre com a largura do terrreno : “ ) ; leia(l); Escreva (“Entre com o comprimento do terrreno : “ ) ; leia(c); Escreva (“Entre com o valor do metro quadrado : “ ) ; leia(vmq); mmq = l * c; vtt = mmq * vmq; Escreva (“Metragem em metros quadrados do terreno = “, mmq); Escreva (“valor total do terreno : R$ “,vtt ) ; Fim.

3) Problema – Reserva de terra pecuarista : Dados ( variáveis do problema ) Entrada : qboi, qvaca, qbez Processamento: qterra Saida qterra

Programa Pecuarista; Var qboi, qvaca, qbez:inteiro; qterra : real;
Inicio
Escreva (“ Entre com a quantidade de cabeças da sua boiada “ ); Escreva (“ Bois = “) ; leia(qboi); Escreva (“ Vacas = “) ; leia(qvaca); Escreva (“ Bezerros = “) ; leia(qbez); qtr = qboi / 3 + qvaca / 4 + qbez / 6 ; Escreva (“ Terras a reservar (em alqueires) = “, qtr);
Fim.

4) Programa residência;
Var ag, luz, tel, alu, sm, comb, esc, div, sal, ext , desp, rec, saldo: real ;