sábado, 20 de agosto de 2011

1º Integrado Informática Presidente Getúlio Vargas

Segue o programa (base) Figuras Planas em Pascal, que foi apresentado na comemoração do dia da Informática:

Program Areas;
const
PI = 3.14;
var
Area_circulo, Comprimento_circulo, Raio : real;
largura, comprimento, area : real;
Area_triangulo, Base, LadoA, LadoB: real;
x:integer;
areax, aresta : real;


Begin
textbackground (blue);
clrscr;
textcolor (white);
writeln;
writeln('Programa destinado ao cálculo da Área de Figuras Planas ');
writeln;
writeln(' Desenvolvido em pelos alunos do Primeiro ano Informática Integrado ');
writeln;
writeln('Ápos cada operação que você realizar pressione Enter ');
writeln;
writeln;
writeln;
writeln('Pressione ENTER para começar ');
writeln;
READKEY;
clrscr;
writeln;
writeln('Escolha uma operação abaixo:');
writeln;
writeln;
writeln('Digite 1 : para Área de um Círculo;');
writeln;
writeln('Digite 2 : para Área de um Retângulo;');
writeln;
writeln('Digite 3 : para Área de um Triângulo;');
writeln;
writeln('Digite 4 : para Área de um Quadrado.');
writeln;
readln(x);
clrscr;


case x of
1 : Begin
writeln;
writeln( ' Digite o Raio (em metros) : ' );
readln(Raio);
writeln;
Area_circulo := PI * Raio * Raio;
Comprimento_circulo := 2 * PI * Raio;
clrscr;
writeln;
writeln( ' A Área do círculo é de : ', Area_circulo :2:2 ,' Metros quadrados ' );
writeln;
writeln;
writeln(' Comprimento da Circunferencia = ', Comprimento_circulo :2:2,' Metros' );
end;


2 : Begin
writeln;
Writeln (' Digite a Largura (em metros)');
Readln(largura);
writeln;
Writeln(' Digite o Comprimento (em metros)');
Readln(comprimento);
writeln;
writeln;
area := largura * comprimento;
Writeln(' A área do Retangulo é de : ', area :2:2 ,' Metros quadrados ' );
end;


3 : Begin
writeln;
Writeln (' Digite o Lado A do Triângulo (em metros)');
Readln (LadoA);
writeln;
Writeln (' Digite o Lado B do Triângulo (em metros)');
Readln (LadoB);
writeln;
Writeln (' Digite a Base do Triângulo (em metros)');
Readln (Base);
writeln;
writeln;
Area_triangulo := LadoA*LadoB*Base/4;
Writeln (' A área do Triângulo é de : ' , Area_triangulo :2:2,' Metros quadrados ' );
end;


4: Begin
writeln;
Writeln (' Digite o tamannho da aresta lateral (em metros)');
Readln(aresta);
writeln;
areax := aresta * aresta;
writeln;
Writeln(' A área do quadrado é de : ', areax :2:2 ,' Metros quadrados ' );
end;


0: BEGIN;
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
Writeln (' ==> Número digitado NÃO válido <==');
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
end;


5..9: BEGIN;
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
Writeln (' ==> Número digitado NÃO válido <;==');
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
end;
end;
readkey;
End.

Nenhum comentário:

Postar um comentário