Lista De Exercício 1 - Algorítmo

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 ;

Incicio

Escreva (“Despesas da Residência “) ;

Escreva ( “Água : “ ); leia (ag);

Escreva ( “Luz : “ ); leia (luz);

Escreva ( “Telefone : “ ); leia (tel);

Escreva ( “Aluguel : “ ); leia (al);

Escreva ( “Super mercado : “ ); leia (sm);

Escreva ( “Combustival : “ ); leia (comb);

Escreva ( “Escola : “ ); leia (esc);

Escreva ( “Diversos : “ ); leia (div);

Escreva (“Receitas da Residência “) ;

Escreva ( “Salários : “ ); leia (sal);

Escreva ( “Entradas Extras : “ ); leia (ext);

desp = ag + luz + tel + al + sm + comb + esc + div;

rec = sal + ext;

saldo = rec – desp;

Escreva (“O Saldo da Residência = R$ “,saldo) ;

Fim.

5)

Programa Área_Circulo;

Var raio,área:real;

Inicio

Escreva (“Raio = ); leia (raio) ;

Área = 3.1415 * (raio) ^ 2 ;

Escreva (“ Área = “ , área);

Fim.

6)

Programa Distância_de_dois_pontos;

Var x1,x2,y1,y2,d: real;

Inicio

Escreva (“Coordenadas do 1º. Ponto :”);

Escreva (“ X 1 = “) ; leia(x1);

Escreva (“ X 2 = “) ; leia(x2);

Escreva (“Coordenadas do 2º. Ponto :”);

Escreva (“ Y 1 = “) ; leia(y1);

Escreva (“ Y 2 = “) ; leia(y2);

d = RAIZ( (x2 – x1) ^ 2 + (y2-y1) ^ 2 );

Escreva