Trabalho de Informática

AREA DE UM QUADRADO: A = L x L, A= 8×8, A= 64 cm
Program area_de_um_quadrado; var L1, L2, a : real; Begin write('qual a medida do primeiro lado?'); readln(L1); write('qual a medida do segundo lado?'); readln(L2); A := (L1*L2); writeln('A área é ', A:0:1) End.
PERIMETRO: C = 2 * π * r,
Program perimetro_de_uma_circuferência; var R, P : real; Begin write('qual a medida do raio?'); readln(r); P := (2*3,14*r); writeln('O perimetro é ', P:0:1) End.
CONSUMO MÉDIO DE UM CARRO: Km/Lt
Program consumo_medio_de_um_carro; var Km, Lt, C : real; Begin write('qual a distância percorrida?'); readln(Km); write('qual o total de combustível gasto?'); readln(Lt); C := (Km/Lt); writeln('O consumo médio é ', C:0:1) End.

LATAS DE TINTAS NECESSÁRIA PARA PINTAR UMA PAREDE: altura * largura / 3m²
Program calculo_de_tinta_a_gastar; var La, Al, Lt : real; Begin write('qual a largura da parede?'); readln(La); write('qual a altura da parede?'); readln(Al); Lt := (La*Al/3); writeln('A quantidade de latas necessárias é ', Lt:0:1) End.
CALCULO DA HIPOTENUSA DE UM TRIANGULO RETANGULO: a²=b²+c²
Program calculo_de_hipotenusa_do_triangulo_retangulo; var Ca, Cb, H : real; Begin write('qual o numero do cateto "a"?'); readln(Ca); write('qual o numero do cateto "b"?'); readln(Cb); H := sqrt (Ca*Ca+Cb*Cb); writeln('O valor da hipotenusa é ', H:0:1) End. AREA DE UM QUADRADO: A = L x L, A= 8×8, A= 64 cm
Program area_de_um_quadrado; var L1, L2, a : real; Begin write('qual a medida do primeiro lado?'); readln(L1); write('qual a medida do segundo lado?'); readln(L2); A := (L1*L2); writeln('A área é ', A:0:1) End.
PERIMETRO: C = 2 * π * r,
Program perimetro_de_uma_circuferência; var R, P : real; Begin write('qual a medida do raio?'); readln(r); P := (2*3,14*r); writeln('O perimetro é ', P:0:1) End.
CONSUMO MÉDIO DE UM CARRO: Km/Lt
Program consumo_medio_de_um_carro; var Km, Lt,