Um blog dedicado a arte dos frascos de perfumes,arte e cheiro juntas, frascos que nos encantam e perfumes que nos surpreendem, e nos fazem lembrar de alguem, um momento, uma data especial, isso, e a arte e cheiro. Chanel: A mulher que nao usa perfume nao tem futuro . Galera, segue:EX9) Faca um programa que utilize a PROCEDURE para calcular raiz quadrada:{Dentro de um programa pode existir um subprograma. Estes subprogramas sao designados, em Pascal, por Procedimentos, e sao declarados antes do bloco principal do programa pela expressao reservada procedure.Por exemplo, podemos criar um procedimento para calcular a raiz quadrada de um numero, sem que tal seja feito no bloco principal}program raiz; uses crt;var a,resultado:real;procedure calc_raiz; {procedimento}beginresultado:=SQRT(a);end;beginwrite('Introduza valor que queira saber a raiz: ');readln(a);calc_raiz; {chamada da procedure}writeln; writeln('A raiz quadrada de ', A:2:0, ' e: ',resultado:2:2);end. Ae galerinha do Integrado de info, segue as fotos...Galera 'bacaninha'......feliz e dedicada.Parecem artistas......de qual filme mesmo? Trabalho pesquisa em dupla (8pts). Nao sera aceito trio, entrega dia 11/11/11. A correcao sera minuciosa.* O trabalho deve ser manuscrito e com capa em papel almaco;* Devera conter as seguintes definicoes, nesta ordem:Logica;Algoritmo (e suas formas de representacao);Pseudocodigo (exemplo);Linguagem Computador;Variavel (definicao, tipos, atribuicao de valores);Operadores Logico e Aritmeticos (Tipo de uso, exemplo);Comandos (Portugol e Pascal - pequenos exemplos - bem limpo);Write, Read, If, Case, For, While, Repeat, Array;Function e Procedure; Segue o programa (base) IMC em Pascal, que foi apresentado na comemoracao do dia da Informatica:Program IMC;uses Crt;{ Funcao :Calcular IMC}{ Data : 7/7/2011}{ Secao de Declaracoes}varNome:string;Idade:string;Sexo:string;IMC:real;Peso:real;Altura:real;begin{ Secao de Comandos}textbackground(white);textcolor(blue);clrscr;writeln;writeln (' Indice de Massa Corporea ');readkey;clrscr;writeln('Este Progroma e destinado ao calculo do IMC ( Indice de Massa Corporea)');writeln;writeln('Para saber sua situacao,basta preencher os requisitos ( A cada requisito preenchido tecle ENTER');readkey;clrscr;writeln('Qual e o seu nome completo ?');readln(Nome);writeln('Qual e 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 begintextcolor(red);if IMC < 19.1 then beginwriteln('Usuario ',NOME ,' , voce esta abaixo do Peso! Tente conseguir mais massa muscular para ter uma boa saude');end;textcolor(green);if (IMC >= 19.1) and (IMC <= 25.8) then beginwriteln('Usuario ',NOME,' com Peso Normal,Parabens pelo cuidado de seu corpo continue cuidando dele para nunca ter problemas');end;textcolor(red);if (IMC > 25.8) and (IMC <= 27.3) then beginwriteln('Usuario ',NOME,' Marginalmente Acima do Peso,Tente conseguir mais massa muscular para ter uma boa saude ');end;textcolor(red);if (IMC > 27.3) and (IMC <= 31.1) then beginwriteln('Usuario ',NOME,' Acima do Peso Ideal,Tente conseguir mais massa muscular para ter uma boa saude,procure um medico');end;textcolor(red);if IMC > 31.1 then beginwriteln('Usuario ',NOME,' Obesa ,Pelo calculo do IMC observamos que a Senhora tem tendencia a obesidade.Sugerimos procurar um medico com certa urgencia, pois a obesidade pode trazer danos irreparaveis a sua saude.');end;end;if (Sexo = 'M')or (Sexo = 'm') then begintextcolor(red);if IMC < 20.7 then beginwriteln('Usuario ',NOME,' Abaixo do Peso,Tente conseguir mais massa muscular para ter uma boa saude');end;textcolor(green);if (IMC >= 20.7) and (IMC <= 26.4) then beginwriteln('Usuario ',NOME,' com Peso Normal,Parabens pelo cuidado de seu corpo continue cuidando dele para nunca ter