TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Program Pzim

Resenha: Program Pzim. Pesquise 861.000+ trabalhos acadêmicos

Por:   •  29/7/2013  •  Resenha  •  277 Palavras (2 Páginas)  •  436 Visualizações

Página 1 de 2

Program Pzim ;

var

BASE, ALTURA, AREA, PERIMETRO : Real;

Begin

{ Entrada dos dados }

Writeln('Digite o valor da base do retangulo');

Readln(BASE);

Writeln('Digite o valor da altura do retangulo ');

Readln(ALTURA);

{ Calculos da area e do perimetro }

PERIMETRO := 2*BASE + 2*ALTURA;

AREA := BASE * ALTURA;

{ Saida dos resultados }

Writeln('Para um retangulo de base = ', BASE, ' e altura = ', ALTURA);

Writeln('O perimetro calculado é ', PERIMETRO);

Writeln('A area calculada é ', AREA);

Writeln;

End.

Program Pzim ;

var

BASE, ALTURA, AREA, PERIMETRO : Real;

Begin

{ Entrada dos dados }

Writeln('Digite o valor da base do retangulo');

Readln(BASE);

Writeln('Digite o valor da altura do retangulo ');

Readln(ALTURA);

{ Calculos da area e do perimetro }

PERIMETRO := 2*BASE + 2*ALTURA;

AREA := BASE * ALTURA;

{ Saida dos resultados }

Writeln('Para um retangulo de base = ', BASE, ' e altura = ', ALTURA);

Writeln('O perimetro calculado é ', PERIMETRO);

Writeln('A area calculada é ', AREA);

Writeln;

End.

Program Pzim ;

var

BASE, ALTURA, AREA, PERIMETRO : Real;

Begin

{ Entrada dos dados }

Writeln('Digite o valor da base do retangulo');

Readln(BASE);

Writeln('Digite o valor da altura do retangulo ');

Readln(ALTURA);

{ Calculos da area e do perimetro }

PERIMETRO := 2*BASE + 2*ALTURA;

AREA := BASE * ALTURA;

{ Saida dos resultados }

Writeln('Para um retangulo de base = ', BASE, ' e altura = ', ALTURA);

Writeln('O perimetro calculado é ',

...

Baixar como (para membros premium)  txt (2 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com
Ler documento completo Salvar