1º Integrado Informática

Trabalho pesquisa em dupla (8pts). Não será aceito trio, entrega dia 11/11/11. A correção será minuciosa.

* O trabalho deve ser manuscrito e com capa em papel almaço;
* Deverá conter as seguintes definições, nesta ordem:
Lógica;
Algoritmo (e suas formas de representação);
Pseudocódigo (exemplo);
Linguagem Computador;
Variável (definição, tipos, atribuição de valores);
Operadores Lógico e Aritméticos (Tipo de uso, exemplo);
Comandos (Portugol e Pascal - pequenos exemplos - bem limpo);
Write, Read, If, Case, For, While, Repeat, Array;
Function e Procedure;

1º Integrado Informática Presidente Getúlio Vargas

Exercícios com ARRAYS - (Pascal)

Program Media_Notas;

{este programa recebe tres notas, soma-as, tira a média
e as devolve pra tela}

var
num: array [1..3] of integer;
soma,media:real;
i:integer;

Begin
writeln ('digite as tres notas');
soma:=0;
for i:=1 to 3 do  {Aqui entram as notas na variável)

read (num[i]);

for i:=1 to 3 do       {Aqui soma-se as notas)
soma:=(num[i]+soma);
media:=(soma/3);

for i:=1 to 3 do   {Aqui saem as notas na variável)

writeln ('As notas de entrada são: ',num [i]);
writeln;
writeln('A soma da notas é: ',soma:2:2);
writeln;
writeln('A média das notas é: ',media:2:2);
End.
xxxxxxxxx---xxxxx---xxxxxx-xxxxx-xxxx-xxx-x-x-xx--x

{Desenvolver programa que leia 4 nomes
para uma matriz armazene e apos armazenar todos apresente cada um deles.}


Program lista_nomes;
var
nome: array [1..4] of string;
I: integer;


begin
writeln ('listagem de alunos');
writeln;
for i:= 1 to 4 do
begin
write ('Digite o Nome:');
readln (nome [i]); {Aqui entra os nomes dos alunos}
end;


for i:= 1 to 4 do
writeln ('Nomes: ', Nome [i]); {Aqui sai os nomes dos alunos}
end.

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.

Fotos - Aula Informática

Ae galerinha do Integrado de info, segue as fotos...

Galera 'bacaninha'...

...feliz e dedicada.

Parecem artistas...

...de qual filme mesmo?

Polivalente Aquidabã - Logística Empresarial

Pessoal, segue abaixo orientações para o trabalho... Favor atentarem para data limite.

1- Entrada e processamento de pedidos
Entrada de pedidos;
Tratamento dos pedidos;
Relatórios e andamento dos pedidos;
Faturamento.
Maneiras de se processar pedidos: Manual; Automatizado;
Procedimentos operacionais de um pedido;
Formação de lotes;
Pedido mínimo;
Prioridades

2- Nível de serviço
O que é?
Pq é importante?
Tipos de demanda;
Custos de estoque (Manutenção, compra, falta);


3- Técnicas de controle de estoques
Conceitos:
Empurar estoques;
Puxar estoques;
Estoque pata demanda;
Curva ABC;
Just-in-time.

Pesquisar em:
BALLOU, Ronald H. - Gerenciamento da cadeia de suprimentos / logística empresarial

http://www.fag.edu.br/professores/erpydd/03%20Set%20Dist%20Fisica%20-%20Pedidos.pdf

http://www.producao.ct.ufrn.br/~wattson/download/ProcessPed.pdf

http://pt.wikibooks.org/wiki/Log%C3%ADstica/Servi%C3%A7o_ao_cliente/Processamento_de_pedidos

http://www.sucena.eng.br/GI/GI2_Mod2ProcessamentodePedidos.pdf



Formato entrega:
word ou Power-point (capa, bibliografia) (letra times new roman ou Arial, tamanho 12
entregar midia digital (e-mail, cd, pen-drive)

DATA ENTREGA ==> ATÉ 11/AGOSTO/11
depois desta data o trabalho vale 3 pts

Polivalente Aquidabã : Algoritmo e Logica

==> Explicação Pascal no youtube: http://www.youtube.com/watch?v=c1JnB14lt30&feature=mfu_in_order&list=UL

EXERCÍCIOS:
Todas as entradas de dados devem ter diálogo com o usuário:

Desenvolva os seguintes programas e salve no desktop com o nome da dupla no formato:
EX1-Nome1_Nome2
EX2-Nome1_Nome2
E assim sucessivamente.

EX1) Desenvolva um programa que escreva olá mundo na tela ( a tela deve ficar azul)

EX2) Faça um programa que peça o nome, sexo, idade, e imprima os dados.

EX3) Calcular e imprimir o a área de um circulo, fórmula área circulo= Pi * R2 (PI=3,14). A medida deve ser em metros.

EX4) Perguntar o nome do aluno. Calcular a média aritmética de três notas e imprimir o resultado final. A nota de aprovação deve ser maior ou igual a 7. Informar o nome e se o aluno foi aprovado.

EX5) Perguntar o nome do aluno. Calcular a média aritmética de quantas notas forem necessárias (utilize comando FOR). A nota de aprovação deve ser maior ou igual a 7. Informar o nome e se o aluno foi aprovado

EX6) Utilizando CASE numa máquina de refrigerantes dê 5 opções de escolha. Informe ao usuário se ele digitou opção errada.

EX7) Faça um programa que utilize os comandos:
REPEAT;
WHILE.

EX8) Faça um programa que utilize a estrutura vetor arrays:

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

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