Programacao

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.

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.

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.

Programa residência;
Var ag, luz, tel, alu, sm, comb, esc, div, sal, ext , desp, rec, saldo: real ;
Incicio
Escreva (“Despesas da Residência “) ; Escreva ( “Água : “ ); leia (ag); Escreva ( “Luz : “ ); leia (luz); Escreva ( “Telefone : “ );