Blog

SISTEMA DE ENSINO PRESENCIAL CONECTADO Análise e Desenvolvimento de Sistema de Informação Aliçon Nunes de Brito Elvis Andre Wehren de Moraes Melo TRABALHO VISUAL Barra do Garças – MT 2011 Trabalho apresentad Desenvolvimento de do Paraná, para a dis Prof. a Denise Dias de Eliane Araman Êverson Morais José R. Passim Veronice de Freitas SUMÁRIO 1. INTRODUÇÃO ora A te em Análise e niversidade Norte grupo. 2. DESENVOLVIMENTO (Pseudocódigo fluxograma) imposto. * Trabalho desenvolvido no Visual e interessante que e calcular valor de desconto para determinado cliente.

Outro programação que e muito interessante e calcular a média das notas de 5 alunos e a nota da turma este processo e muito fácil através da programação. * E a ultima marte muito mais importante e apreceder fazer a conversão do sistema decimal para binário Algoritmo “Consumo de Combustível’ var Consumo, Distancia, Volume, Media: real inicio Escreval (“Calcula o consumo médio de combustével”) Escreval (“Qual a distancia (Km) percorrida pelo Veiculo? “) leia (DISTANCIA) Escreval (“Quantos litros de combustível foram gastos no trajeto? leia(VOLUME)

CONSUMO ut;- VOLUME/DISTANCIA Escreval(‘iO consumo medio de combustível foi de n, consumo, litros/km”) Escreval(“O carro fez “, distancia/volume, ‘km com 1 litro”) Fimalgoritmo 2. 1. DESENVOLVIMENTO (Calculo de funcionário salarial) algontmo “Salário com desconto INSS’ x:caracter y:inteiro z:real escreva (“digite a nota”) leia (NOTA) //Acumulando a NOTA lida SOMA ;- SOMA + NOTA fim para //Acumulando a média MEDIA ;- SOMA 15 //êcrevendo a média calculando escreva (“a média MEDIA) fimalgoritmo 2. 2. DESENVOLVIMENTO (Representação da conversão)

Program Sair: boolean; Opção: char; / / Procedimento n 0 Transformar decimal in Binário binario_decimal procedimento; binaria: string; i, expoente, tam: integer; decmal: real; boolean;: VLD Começar clrscr; writeln; write (‘Informe o NÚMERO Binário’); ler (binaria); TAM: comprimento = (binario); for i: = 1 downto tam fazer começar se binario [i] — ‘1 então decimal: = decimal + (exp (expoente * In (2))); expoente: expoente = 1; if (binario [i] ‘1 ‘ e binario ’01) then VLD: = false; PAGF3ÜFd str (o resto, strquociente); binario: = strquociente + binario; uociente: = quociente div 2; efeito; str (quociente, strquociente); binaria: = strquociente + binario; writeln (‘O valor decimal, decimal,’ é Igual a binario,’ Binário em write (‘Pressione QUALQUÉR Tecla parágrafo voltar menu principal AO’); ReadKey; Fim; / Programa Principal / repetir textcolor (lightred); writeln (‘Informe a Opção Desejada’); write (‘um’); textcolor (lightgreen); writeln (‘- Transformar numero decimal Binário in’); write (‘2′); writeln Transformar numero Binário in decimal’); write (‘três’); textcolor (liehtgreen);