1 -Travesseiro com
espuma da Nasa. Valor R$ 50,00. Ortobom.
2 -Travesseiro com
espuma da Nasa. Valor R$ 50,00. Ortobom.
3 -Edredom 160x240
100% algodão. Valor R$ 120,00. Ortobom.
4 -Edredom 160x240
100% algodão. Valor R$ 120,00. Ortobom..
5 -Jogo
de lençol 100% algodão. Valor R$
180,00. Ortobom.
quarta-feira, 21 de março de 2012
quinta-feira, 3 de junho de 2010

Universidade Federal de Minas Gerais
Instituto de Ciências Exatas – ICEx
Hermano Félix Martins
program ovonovohermano;
var
t: integer;
l: real;
nome: string;
{desenho do ovo do tamanho desejado}
procedure ovo(l: real);
begin
esplapis(3);
pdireita(180);
for t:=1 to 180 do
begin
pdireita(-1);
pfrente(l);
end;
for t:=1 to 15 do
Begin
pdireita(-4);
pfrente(l*6);
end;
for t:=1 to 60 do
Begin
pdireita(-1);
pfrente(l/2);
end;
for t:=1 to 15 do
Begin
pdireita(-4);
pfrente(l*6);
end;
esplapis(1);
end;
{desenha estrela}
procedure estrela(l: real; angulo, arestas :integer);
var i : integer;
begin
for i := 1 to arestas do
begin
pfrente(l);
pdireita(angulo);
end;
end;
{desenho da figura triangulo}
procedure triangulo(l: real);
var i: integer;
begin
for t:=1 to 3 do
begin
pfrente(l*50);
pdireita(-120);
end
end;
{desenho da letra 'V'}
procedure V;
begin
esplapis(3);
pdireita(160);
pfrente(l*22);
pdireita(-135);
pfrente(l*22);
esplapis(1);
end;
{desenho da letra 'N'}
procedure N;
begin
esplapis(3);
pfrente(l*22);
pdireita(160);
pfrente(l*22);
pdireita(-160);
pfrente(l*22);
esplapis(1);
end;
{Desenha ovo novo na tela}
procedure ovonovo;
begin
ovo(l/6); {desenho da letra 'O'}
mudepos(l*(-60),l*42);
V; {desenho da letra 'V'}
mudepos(l*(-40),l*30);
mudedirecao(0);
ovo(l/6);{desenho da letra 'O'}
mudepos(l*(-80),l*(-20));
N; {desenho da letra 'N'}
mudepos(l*(-70),l*(-10));
ovo(l/6);{desenho da letra 'O'}
mudepos(l*(-50),l*2);
V; {desenho da letra 'V'}
mudepos(l*(-30),l*(-10));
mudedirecao(0);
ovo(l/6);{desenho da letra 'O'}
end;
{posicionando robo para desenha a figura}
procedure posicao;
begin
un;
pdireita(-120);
pfrente(l+(l*35));
pdireita(30);
ul;
end;
{programa principal}
begin
clrscr;
ul;
writeln('digite um tamanho para ovo 1 a 3');
readln(l);
{desenho do 1º ovo maior}
mudepos(l*(-105),l);
ovo(l);
{desenha ovo novo dentro do ovo maior}
mudepos(l*(-80),l*30);
ovonovo;
{desenho 2º ovo com tamanho menor}
mudepos(l,l*80);
l:= l/2;
ovo(l);
{Desenha estrela 5 pontas}
posicao;
estrela(l*50,144,5);
{desenho 3º ovo com tamanho menor}
mudepos(l*3*(30),l*3);
ovo(l);
posicao;
{Desenha estrala de nove pontas}
estrela(l*50,160,9);
{posicionando robo para escrever o 4º ovo}
mudepos(l*3*(-90),l*3*60);
mudedirecao(0);
ovo(l);
posicao;
triangulo(l);
{posicionando robo para escrever o 5º ovo}
mudepos(l*3*(50),l*3*50);
mudedirecao(0);
ovo(l);
{escreve o nome}
un;
pdireita(-110);
pfrente(l+(l*20));
pdireita(20);
ul;
writeln('digite o nome desejado para escrever no ovo');
readln(nome);
rotule(nome);
dr;
end.
A maior dificuldade encontrada foi o tempo gasto para fazer o programa ovonovo, aproximadamente 10 horas.
segunda-feira, 3 de maio de 2010
1-
Em GAE1 aprendemos os conhecimentos básicos sobre o raciocínio algorítmico e as linguagens de programação, aprenndemos comandos básicos como criar, compilar e executar pequenos programas em Pascal.
Em GAE2 aprendemos o processo de desenvolvimento de um programa de computador;
apresentar soluções para desafios através de algoritmos;
Em GAE3 aprendemos os conceitos de variáveis a utilizar a estrutura de repetição FOR para solução de problemas.
Em GAE4 aprendemos os conceitos de estruturas de controle de uma linguagem de programação, suas representações e dinâmica. Utilizar as estruturas de controle no desenvolvimento de programas PascaL e formalizar a estrutura dos comandos de entrada e saída em Pascal.
2-
GAE1:
o mais facil: desafio8.
o mais difícil: desafiotemperatura.
o que mais gostei: desafiotemperatura. Pois é um programa que eu posso usar no dia dia.
o que menos gostei: nenhum.
GAE2:
o mais facil: algoritmo da questão 1 de passo a passo.
o mais difícil: algoritmo da questão 2 de faça você mesmo.
o que mais gostei: desafio de olhos fechados.
o que menos gostei: nenhum.
GAE3:
o mais facil: questão 1 de passo a passo.
o mais difícil: programa circunferencia.
o que mais gostei: desafio maquina do tempo.
o que menos gostei: questão 1 de passo a passo. .
GAE4:
o mais facil: questão 2 de passo a passo.
o mais difícil: questão 5 de faça você mesmo.
o que mais gostei: questão 5 de faça você mesmo.
o que menos gostei: nenhum.
Em GAE1 aprendemos os conhecimentos básicos sobre o raciocínio algorítmico e as linguagens de programação, aprenndemos comandos básicos como criar, compilar e executar pequenos programas em Pascal.
Em GAE2 aprendemos o processo de desenvolvimento de um programa de computador;
apresentar soluções para desafios através de algoritmos;
Em GAE3 aprendemos os conceitos de variáveis a utilizar a estrutura de repetição FOR para solução de problemas.
Em GAE4 aprendemos os conceitos de estruturas de controle de uma linguagem de programação, suas representações e dinâmica. Utilizar as estruturas de controle no desenvolvimento de programas PascaL e formalizar a estrutura dos comandos de entrada e saída em Pascal.
2-
GAE1:
o mais facil: desafio8.
o mais difícil: desafiotemperatura.
o que mais gostei: desafiotemperatura. Pois é um programa que eu posso usar no dia dia.
o que menos gostei: nenhum.
GAE2:
o mais facil: algoritmo da questão 1 de passo a passo.
o mais difícil: algoritmo da questão 2 de faça você mesmo.
o que mais gostei: desafio de olhos fechados.
o que menos gostei: nenhum.
GAE3:
o mais facil: questão 1 de passo a passo.
o mais difícil: programa circunferencia.
o que mais gostei: desafio maquina do tempo.
o que menos gostei: questão 1 de passo a passo. .
GAE4:
o mais facil: questão 2 de passo a passo.
o mais difícil: questão 5 de faça você mesmo.
o que mais gostei: questão 5 de faça você mesmo.
o que menos gostei: nenhum.
segunda-feira, 5 de abril de 2010
Assinar:
Postagens (Atom)