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.

1º Integrado Informática Presidente Getúlio Vargas

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

Program IMC;

uses Crt;
{ Função :Calcular IMC}
{ Data : 7/7/2011}
{ Seção de Declarações}


var
Nome:string;
Idade:string;
Sexo:string;
IMC:real;
Peso:real;
Altura:real;

begin
{ Seção de Comandos}
textbackground(white);
textcolor(blue);
clrscr;
writeln;
writeln (' Índice de Massa Corpórea ');
readkey;
clrscr;
writeln('Este Progroma é destinado ao calculo do IMC ( Índice de Massa Corporea)');
writeln;
writeln('Para saber sua situação,basta preencher os requisitos ( A cada requisito preenchido tecle ENTER');
readkey;
clrscr;
writeln('Qual é o seu nome completo ?');
readln(Nome);
writeln('Qual é a sua idade?');
readln(Idade);
writeln('Qual o seu Sexo? M (Masculino) ou F (Feminino)');
readln(sexo);
writeln('Qual seu Peso (Kg)?');
readln (peso);
writeln ('Qual sua Altura (Mts)');
readln (Altura);
textbackground(white);
textcolor(blue);
clrscr;
writeln('Nome: ',Nome);
writeln;
writeln('Idade: ',Idade );
writeln;
writeln('Peso: ',Peso :0:2);
writeln;
writeln('Altura: ',Altura :0:2);
writeln;
writeln('Sexo: ',sexo);
writeln;
IMC:=Peso/(Altura*Altura);
writeln('IMC: ',IMC :0:2);
readkey;
//clrscr;
gotoxy(2,15);
if (Sexo = 'F') or (Sexo = 'f') then begin
textcolor(red);
if IMC < 19.1 then begin
writeln('Usuário ',NOME ,' , você está abaixo do Peso! Tente conseguir mais massa muscular para ter uma boa saúde');
end;
textcolor(green);
if (IMC >= 19.1) and (IMC <= 25.8) then begin
writeln('Usuário ',NOME,' com Peso Normal,Parabéns pelo cuidado de seu corpo continue cuidando dele para nunca ter problemas');
end;
textcolor(red);
if (IMC > 25.8) and (IMC <= 27.3) then begin
writeln('Usuário ',NOME,' Marginalmente Acima do Peso,Tente conseguir mais massa muscular para ter uma boa saúde ');
end;
textcolor(red);
if (IMC > 27.3) and (IMC <= 31.1) then begin
writeln('Usuário ',NOME,' Acima do Peso Ideal,Tente conseguir mais massa muscular para ter uma boa saúde,procure um médico');
end;
textcolor(red);
if IMC > 31.1 then begin
writeln('Usuário ',NOME,' Obesa ,Pelo calculo do IMC observamos que a Senhora tem tendência a obesidade.Sugerimos procurar um medico com certa urgência, pois a obesidade pode trazer danos irreparáveis a sua saúde.');
end;
end;
if (Sexo = 'M')or (Sexo = 'm') then begin
textcolor(red);
if IMC < 20.7 then begin
writeln('Usuário ',NOME,' Abaixo do Peso,Tente conseguir mais massa muscular para ter uma boa saúde');
end;
textcolor(green);
if (IMC >= 20.7) and (IMC <= 26.4) then begin
writeln('Usuário ',NOME,' com Peso Normal,Parabéns pelo cuidado de seu corpo continue cuidando dele para nunca ter problemas');
end;
textcolor(red);
if (IMC > 26.4) and (IMC <= 27.8) then begin
writeln('Usuário ',NOME,' Marginalmente Acima do Peso,Tente conseguir mais massa muscular para ter uma boa saúde');
end;
textcolor(red);
if (IMC > 27.8) and (IMC <= 32.3) then begin
writeln('Usuário ',NOME,' Acima do Peso Ideal,Tente conseguir mais massa muscular para ter uma boa saúde,procure um médico');
end;
textcolor(red);
if IMC > 32.3 then begin
writeln('Usuário ',NOME,' Obeso,Pelo calculo do IMC observamos que o Senhor tem tendência a obesidade.Sugerimos procurar um medico com certa urgência, pois a obesidade pode trazer danos irreparáveis a sua saúde.');
end;
end;
readkey
End.

1º integrado Informática Getulio Vargas

 EX10) Faça um programa que utilize UM CRONOMETRO de fim de ano e deseje FELIZ ANO NOVO.

Program Cronometro;

var tempo:real;

Begin
writeln ('Digite o tempo que você deseja que o programa cronometre (s): '); {Solicita o tempo para o cronometro}
read (tempo);

while (tempo<>0) do {Repeticao até o tempo chegar em zero}
Begin
delay (1000); {observe que este comando dá o retardo de 1000 milisegundos que é igual a 1 segundo}
clrscr;
writeln ('Cronometrando: ',tempo :2:2,' segundos');
tempo := tempo - 1;
End;

clrscr;
writeln ('');
Write (' FELIZ ANO NOVO S2 !');
readkey;
End.

1º integrado Informática Getulio Vargas

Galera, segue:

EX9) Faça um programa que utilize a PROCEDURE para calcular raiz quadrada:

{Dentro de um programa pode existir um subprograma. Estes subprogramas são    designados, em Pascal, por Procedimentos, e são declarados antes do bloco principal do programa pela expressão reservada procedure.
Por exemplo, podemos criar um procedimento para calcular a raiz quadrada de um número, sem que tal seja feito no bloco principal}

program raiz;
uses crt;
var a,resultado:real;

procedure calc_raiz; {procedimento}
begin
resultado:=SQRT(a);
end;

begin
write('Introduza valor que queira saber a raiz: ');
readln(a);
calc_raiz;    {chamada da procedure}
writeln;
writeln('A raiz quadrada de ', A:2:0, ' é: ',resultado:2:2);
end.