SEJAM BEM VINDOS AO POETA SOLITARIO

Esse blog foi concebido com o unico intuito de informar e divertir os leitores de verdades e poesia

sábado, 7 de setembro de 2013

algoritmo



Algoritmo Troca
Variaveis
Inteiro: Valor1, Valor2, ValorTemp;
Inicio
   Escreva(“Informe o primeiro valor: ”);
   Leia(Valor1);
   Escreva(“Informe o segundo valor: ”);
   Leia(Valor2);
   ValorTemp <- span="" valor1="">
   Valor1 <- span="" valor2="">
   Valor2 <- span="" valortemp="">
   Escreva(“Valor1”, Valor1);
   Escreva(“Valor2”, Valor2);


Fim
Algoritmo Temperatura
Variaveis
Real: TemperaturaC, TemperaturaF;
Inicio
   Escreva(“Informe a temperatura em graus celsius: ”);
   Leia(TemperaturaC);
  
   TemperaturaF <- 100="" 180="" 32="" emperaturac="" span="">
   Escreva(“Temperatura transformada para graus Farenheit: ”, TemperaturaF);
 
Fim
Algoritmo DispensadorDeCedulas
Variaveis
Inteiro: ValorSaque, QuantidadeNotas, ValorRestante;
Inicio
   Escreva(“Informe o valor do saque: ”);
   Leia(ValorSaque);
  
   QuantidadeNotas <- 100="" alorsaque="" quociente="" span="">
   Escreva(“Quantidade de notas de 100: ”,   QuantidadeNotas);
   ValorRestante <- 100="" alorsaque="" resto="" span="">
   QuantidadeNotas <- 50="" alorrestante="" quociente="" span="">
   Escreva(“Quantidade de notas de 50: ”, QuantidadeNotas);
   ValorRestante <- 50="" alorsaque="" resto="" span="">
   QuantidadeNotas <- 20="" alorrestante="" quociente="" span="">
   Escreva(“Quantidade de notas de 20: ”, QuantidadeNotas);
 
   ValorRestante <- 20="" alorsaque="" resto="" span="">
   QuantidadeNotas <- 10="" alorrestante="" quociente="" span="">
   Escreva(“Quantidade de notas de 10: ”, QuantidadeNotas);
   ValorRestante <- 10="" alorsaque="" resto="" span="">
   QuantidadeNotas <- 5="" alorrestante="" quociente="" span="">
   Escreva(“Quantidade de notas de 5: ”, QuantidadeNotas);
   ValorRestante <- 5="" alorsaque="" resto="" span="">
   QuantidadeNotas <- 1="" alorrestante="" bastava="" c="" deste="" lculo.="" nem="" precisava="" quociente="" span="" usar="" valorrestante.="">
   Escreva(“Quantidade de notas de 1: ”, QuantidadeNotas);  
Fim

Nenhum comentário:

Postar um comentário

entre é de o seu depoimento