8)Fazer um programa para calcular a soma dos N primeiros números, onde N é lido.

algoritmo "soma dos primeiros números"

var

  n,soma:inteiro

inicio

  soma<-0

  escreva("Entre com um numero:")

  leia(n)

  para n de n ate 1 passo - 1 faca

  soma<-soma+n

  fimpara

  escreva("A soma dos numeros eh:",soma)

fimalgoritmo

7)Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações:

algoritmo "Idade,peso e sexo das pessoas"

var

   grupoPe, qtHo,qtMu,mdIdMu,id,muAcima25Anos:inteiro

   mdPsHo,peso:real

   sexo:caracter

inicio

   id<-1

   qtMu <-0

   mdpsHo <- 0

   escreval("Entre com a quantidade de pessoas:")

   leia(grupoPe)

   se (grupoPe > 5) entao

      para grupoPe de grupoPe ate 1 passo -1 faca

         escreva("Informe o sexo M ou F: ")

         leia(sexo)

         se (sexo = "M") entao

            qtHo<-qtHo +1

            escreva("Informe o peso do homem: ")

            leia(peso)

            mdPsHo<- mdPsHo + peso

            escreva("Informe a idade do homem: ")

            leia(id)

         senao

            qtMu<-qtMu+1

            escreva("Informe o peso da mulher: ")

            leia(peso)

            escreva("Informe a idade da mulher: ")

            leia(id)

            mdIdMu<- mdIdMu + id

            se (id > 25) entao

               muAcima25Anos<- muAcima25Anos + 1

            fimse

         fimse

      fimpara

      escreval("A média de peso dos homens eh: ",mdPsHo/qtHo)

      escreval(" A media de idade das mulheres eh: ",mdIdMu/qtMu)

      escreval( " mulheres acima de 25 anos eh: ",muAcima25anos)

   senao

      escreval("O grupo de pessoas é menor que 5")

   fimse

fimalgoritmo

6)Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-).

algoritmo   " calcular divisão"

var

  x,y,soma,vezes : inteiro

inicio

  y<-0

  soma<- 0

  escreva("Entre com um número:")

  leia(x)

  escreva("Entre com um número divisor:")

  leia(y)

    se(x<y) entao

       escreva("Não é possível realizar uma divisão inteira")

    senao

      soma<-x

      vezes <-0

   repita

    soma<-soma-y

    vezes<-vezes+1

   ate(soma=0)

  escreval(x," / ",y," = ",vezes)

    fimse

fimalgoritimo

5) Faça um programa que seja capaz de calcular o resultado de uma operação de multiplicação (x vezes y), utilizando-se para isso apenas do operador de soma (+).

algoritmo " Resultado de uma multiplicação em soma"

var

   x,y, soma :inteiro

inicio

   soma<- 0

   escreva("Entre com um número:")

   leia(x)

   escreva("Entre com um número multiplicador:")

   leia(y)

   escreva(x," x ",y," = ")

      para y de y ate 1 passo -1 faca

       soma <- soma+x

      fimpara

       escreva(soma)

fimalgoritmo

4)Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que:

algoritmo "Números inteiros e positivos entre n1 e n2"

var

  k,n, n1, n2 : INTEIRO

inicio

  escreva ("Entre com o primeiro número inteiro: ")

  leia (n1)

  escreva ("Entre com o segundo número inteiro: ")

  leia (n2)

  escreval ("Os Números são: ")

  n <-n1

  enquanto (n<n2)  faca

     se ((n mod 10) <>0 )entao

          k <- n div 10

            se (k <> 0) entao

              se ((n mod k ) = 0) entao

                  escreval(n)

              fimse

            fimse

     fimse

     n <- n+1

  fimenquanto

fimalgoritmo

3)Faça um programa que, dado um número, imprima a sua tabuada completa

algoritmo "Tabuada"

var

  i,n,resultado : inteiro

inicio

  escreval("Digite o numero da tabuada")

  leia(n)

  para i de i ate 10 faca

  resultado <- n*i

  escreval(n,"x",i,"=",resultado)

  fimpara

 

fimalgoritmo

2)Faça um programa que mostre na tela o(s) número(s) dentro do intervalo entre 600 e 700 que sejam múltiplos de 5 e também de 7.

algoritmo "múltiplos de 5 e 7 no intervalo de 600 a 700"

var

 b :inteiro

inicio

 b <- 600

 escreval("São multiplos de 5 e 7:")

   repita

     se (( b mod 5)= 0) e ((b mod 7)= 0 )entao

       escreva (b, " - ")

    fimse

     b <- b +1

   ate (b=701)

 

fimalgoritmo

Lista dia 25 de outubro, exercicios de Algorítmo e LD1. 1)Faça um programa que calcule a média aritmética de 35 alunos do curso de Algoritmos. Use comandos de repetição.

algoritmo "media"

var

 media,nota,soma: real

 i : inteiro

inicio

  soma <- 0

  para i de 1 ate 35  faca

       escreva("Digite a",i,"a.nota :")

       leia(nota)

       soma <- soma + nota

  fimpara

  media <- soma/35

  escreva(" A media e igual a",media)

 

fimalgoritmo

3.18) Escreva o algoritmo que leia as notas das duas provas de um aluno (p1 e p2) e calcule qual valor mínimo da terceira nota(p3),para que este aluno seja aprovado,considerando que a média aritmética das três provas deve ser 6.0 para que o aluno seja aprovado.

algoritmo "Nota final"
var
 n1,n2,n3:real
inicio
  escreva("Entre com a primeira nota")
  leia (n1)
  escreva("Entre com a segunda nota")
  leia(n2)
  n3 <- 18-(n1+n2)
  escreva( " A nota mínima de n3 eh",n3)
fimalgoritmo

3.15) Escreva um algoritmo que leia duas datas,na forma dia,mês e ano e informe qual é a mais recente.

algoritmo "Data mais recente "
var
  d1,m1,a1,d2,m2,a2,data1,data2 : inteiro
inicio
  escreval ("Digite o dia 1")
  leia(d1)
  escreval ("Digite o mes 1")
  leia(m1)
  escreval ("Digite o ano 1")
  leia(a1)
  escreval ("Digite o dia 2")
  leia(d2)
  escreval ("Digite o mes 2")
  leia(m2)
  escreval ("Digite o ano 2")
  leia(a2)
  se (a2 = a1)e(m2 = m1)e(d2 = d1)entao
  escreva ("AS datas são iguais")
  fimse
  data1 <- d1+(m1*30)+(365*a1)
  data2 <- d2+(m2*30)+(365*a2)
  se (data1 > data2) entao
     escreva ("A data mais recente eh",d1,"/",m1,"/",a1)
  senao
     escreva ("A data  mais recente eh",d2,"/",m2,"/",a2)
  fimse
  fimalgoritmo

3.17) Escreva um algorítmo que leia a quantidade de R$ em dinheiro que uma pessoa tem para enviar cartas,o preço PE de um envelope,o preço PS de um selo,a quantidade QS de selos que a pessoa ja dispõe e a quantidade de envelopes QE que a pessoa também ja dispõe. O algorítmo deve calcular e inofrmar quantas cartas a pessoa pode enviar.

algoritmo "Cartas"
//d-dinheiro
//pe-preço envelope
//ps-preço selo
//qsqtd d selo
//qe-qtd d envelope
//t-total d cartas p/ enviar
var
t:real
z,y,x,d,qs,qe,pe,ps:inteiro
inicio
escreval(" Carta ")
escreva ("Informe o dinheiro disponível")
leia (d)
escreva (" Informe o preço do envelope")
leia (pe)
escreva ("Informe o preço dos selos")
leia (ps)
escreva("Informe quantidade de selo")
leia (qs)
escreva ("Informe quantidade de envelope")
leia (qe)
x <- pe + ps
y <- (d div x)
se (qs > qe) entao
   z <- qe
senao
   z <- qs
fimse
t <- y + z
escreva ("A quantidade de cartas que podem ser enviadas eh ",t," cartas")
fimalgoritmo

3.16)Escreva um algoritmo que leia os nomes dos três canidatos ao Senado ( para uma vaga) com suas respectivas votações. O algritmo de escrever o nome do candidato mais votado. Por exemplo: maior votação: João da Silva ou no caso de haver empate entre dois (os mais votados) ou entre os três candidatos,devem ser escritos os nomes desses candidatos.Por exemplo: maior votação: João da Silva,Maria do Socorro.

algoritmo "O nome do candidato mais votado"
var
  c1,c2,c3 : literal
  v1,v2,v3 : inteiro
inicio
  escreval ("Calcular votação")
  escreva ("Informe o nome do primeiro candidato ")
  leia(c1)
  escreva ("Digite a quantidades de votos do candidato ", c1)
  leia(v1)
 
  escreva ("Informe o nome do segundo candidato ")
  leia(c2)
    escreva ("Digite a quantidades de votos do candidato ", c2)
  leia(v2)
  escreva ("Informe o nome do terceiro candidato ")
  leia(c3)
    escreva ("Digite a quantidades de votos do candidato ",c3)
  leia(v3)

  se (v1=v2)e (v2=v3)entao
   escreva(" Deu empate entre o candidatos:",c1,", ",c2,", ",c3)
    senao
      se (v1=v2) e (v2 >v3) entao
        escreva("Deu empate entre os candidatos:",c1,", ",c2)
      senao
      se (v2=v3)e(v2>v1)entao
       escreva ("Deu empate entre os candidatos:",c2,", ",c3)
       senao
        se (v1=v3)e (v1>v2)entao
         escreva ("Deu empate entre os candidatos:",c1,", ",c3)
         senao
   se (v1 > v2) e (v1>v3)entao
    escreva ("O canditado ",c1," foi mais votado")
     senao
    se(v2 > v1)e (v2 >v3) entao
      escreva("O candidato ",c2," foi mais votado")
    senao
          escreva(" O candidato ",c3," foi mais votado")
          fimse
          fimse
      fimse
    fimse
   fimse
  fimse
  fimalgoritmo

3.14) Escreva um algorítmo que leia três valores correspondente ao dia,mês e ano de nascimento de uma pessoa e outro três valores correspondentes ao dia,mês e ano do dia corrente. O algoritmo deve escrever a idade da pessoa.

algoritmo "Idade da pessoa"
var
 aH,mH,dH,aN,mN,dN,xA,xD,xM,tD,tM : inteiro
inicio
escreval ("Informe dia de nascimento")
leia(dN)
escreval ("Informe o mes de nascimento")
leia(mN)
escreval ("Informe o ano de nascimento")
leia(aN)
escreval ("Informe o dia de hoje")
leia(dH)
escreval ("Informe o mes de hoje")
leia(mH)
escreval ("Informe o ano de hoje")
leia(aH)
xA <- (aH -1)- aN
xM <- (mH +11 -mN)
xD <- (dH +30 - dN)
se (xD >30)entao
tD <- xD -30
xM <- xM + 1
fimse
se (xM >12) entao
tM <- xM -12
xA <- xA +1
fimse
escreval (" A Idade eh",xA,"anos",tm,"meses",td,"dias")
fimalgoritmo

3.13) Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo("MASCULINO" ou "FEMININO") e caclcule seu peso ideal,dado por : peso ideal do homem = (72,7 x altura)- 58 ou peso ideal da mulher =(62,1 x altura)-44,77. O algoritmo deve,tambem,informar se a pessoa está abaixo ou acima de seu peso ideal em quantos quilos.

algoritmo "peso ideial"
var
 h,p,psI,x : real
 s,m,f :literal
inicio
  escreva(" Informe a altura ")
  leia (h)
  escreva(" Informe o peso ")
  leia (p)
  escreva(" Informe o sexo m,f")
  leia (s)
  se (s ="f")entao
  psI<- ((62.1 * h)-44.77)
  senao
  psI <- ((72.7 * h) - 58)
  fimse
  se (p >psI) entao
  x <- p - psI
  escreva("Seu peso está",x,"kilos acima do peso ideal ")
  senao
  x <- psI - p
  escreva ("Se peso está",x, "kilos abaixo do peso ideal")
  fimse

fimalgoritmo

3.12 )Escreva um algoritmo que leia as notas das três provas de um aluno (p1,p2 e p3),calcule sua média aritmédica e escreva-as. As notas devem estar no intervalo (a,10).

3.11) Escreva um algorítmo que leia um dia,mes e ano e escreva para essa data lida,o numero de dias transcorridos na ano.

algoritmo "dia corridos"
var
  dia,mes,ano, dc :inteiro
inicio
  escreval("Calcular dia")
  escreva("Entre com o dia")
  leia (dia)
  escreva("Entre com o mes")
  leia(mes)
  escreva("Entre com o ano ")
  leia(ano)
  se ((ano mod 4)=0) entao
    dc <- 366
  senao
    dc <- 365
    se (mes =12)entao
        dc <- dc -31
        dc <- dc+ dia
    senao
       dc <- dc -31
       se ( mes =11) entao
           dc <- dc -30
           dc <- dc + dia
       senao
          dc <- dc -30
          se ( mes =10) entao
           dc <- dc -31
           dc <- dc + dia
           senao
             dc <- dc -31
             se ( mes =09) entao
                 dc <- dc -30
                 dc <- dc + dia
           senao
              dc <- dc - 30
              se ( mes =08) entao
                  dc <- dc -31
                  dc <- dc + dia
              senao
                dc <- dc - 31
                se (mes = 07) entao
                    dc <- dc - 31
                    dc <- dc + dia
                senao
                   dc <- dc - 31
                   se ( mes = 06) entao
                       dc <- dc - 30
                       dc <- dc + dia
                   senao
                     dc <- dc - 30
                     se ( mes = 05) entao
                         dc <- dc - 31
                         dc <- dc + dia
                     senao
                        dc <- dc - 31
                        se ( mes = 04) entao
                            dc <- dc - 30
                            dc <- dc + dia
                        senao
                          dc <- dc - 30
                          se ( mes = 03)entao
                              dc <- dc - 31
                              dc <- dc + dia
                          senao
                             dc <- dc - 31
                             se (mes = 02) entao
                                 se (( ano mod 4)=0) entao
                                     dc <- dc - 29
                                     dc <- dc + dia
                                 senao
                                    dc <- dc - 28
                                    dc <- dc + dia
                                 fimse
                             senao
                               dc <- dia
                             fimse
                          fimse
                        fimse
                     fimse
                   fimse
                fimse
              fimse
             fimse
          fimse
       fimse
    fimse
    escreva(" O total de dias corridos eh",dc)
                         
    fimse
         
fimalgoritmo

3.10)Escreva um algorítmo que leia o nome do nadador e sua idade.O algorítmo deve escrever: A CATEGORIA DE MARCOS É INFANTIL B.

A Categoria é determinada conforme abaixo:
*nadador com idade entre 5 e 7 anos são categoria Infantil A;
*nadador com idade entre 8 e 10 anos são categoria Infantil B;
*nadador com idade entre 11 e 13 anos são categoria Juvenil A;
*nadador com idade entre 14 e 18 anos são categoria Juvenil B; e
*nadador com idade com idade superior a 18 anos são categoria Sênior;


algoritmo "Classificar Categoria de Nadador por idade com nome"

var
 idade: inteiro
 nome: literal

inicio
 escreval ("Informe o nome do nadador: ")
 leia (nome)
 escreval ("Informe a idade do nadador")
 leia (idade)
 se(idade <5) entao
 escreva ("nao compete")
 senao
       se (idade >= 5) e (idade <=7) entao
     escreva ("A categoria de ", nome , " eh Infantil A")
   senao
     se (idade >= 8) e (idade <=10) entao
       escreva ("A categoria de ", nome , " eh Infantil b")
     senao
       se(idade >= 11) e (idade <=13) entao
         escreva ("A categoria de ", nome , " eh Juvenil A")
       senao
         se (idade >=14) e (idade <=18) entao
           escreva ("A categoria de ", nome , " eh Juvenil B")
         senao
           se (idade >18)entao
           escreva ("A categoria de ", nome , " eh SÊNIOR")
           fimse
         fimse
       fimse
     fimse
   fimse
  fimse
fimalgoritmo

3.9) escreva um algorítmo que implemente uma calculadora de quatro operações. O algorítmo lê o primeiro operando, a operação(alguns dos quatros símbolos: "x"," - ", " * ", ou "/") e o segundo operando. Ele deve escrever: 1º operando operação 2º operando = resultado. Por exemplo, se os valores lidos foram 4,"*" e 5, o algorítmo deve escrever: 4*5=20

algoritmo "calculadora de 4 operações"

var
numero1, numero2, resultado: real
sinal: literal

inicio
escreval ("calculadora de 4 operações")
escreva ("Informe o primeiro número: ")
leia (numero1)
escreva ("Informe o segundo número: ")
leia (numero2)
escreva ("Informe a operação: ")
leia (sinal)
se sinal = "+" entao
   resultado <- (numero1 + numero2)
   escreva (" a operação " , numero1, "+" , numero2, "=" ,resultado)
senao
  se sinal = "-" entao
   resultado <- (numero1 - numero2)
   escreva (" a operação " , numero1, "-" , numero2, "=" ,resultado)
  senao
    se sinal = "*" entao
      resultado <- (numero1 * numero2)
      escreva (" a operação " , numero1, "*" , numero2, "=" ,resultado)
    senao
      se sinal = "/" entao
         resultado <- (numero1 / numero2)
         escreva (" a operação " , numero1, "/" , numero2, "=" ,resultado)
      senao
      fimse
    fimse
  fimse
fimse
fimalgoritmo

3.8) Seja o seguinte algorítmo:

algoritmo "Dec2Bin"
var
  b: literal
  n,q,r: inteiro
inicio
   b <- " "
   escreva("Entre com um numero")
   leia (n)
   q <- n
   r <- q%2
   q <- q\2
   se r=0 entao
     b <- "0"+ b
   senao
     b <- "1"+ b
   fimse
   r <- q%2
   q <- q\2
   se r = 0 entao
   b <- "0"+ b
   senao
     b <- "1"+ b
   fimse
   r <- q%2
   q <- q\2
   se r = 0 entao
     b <- "0"+ b
   senao
   b <- "1"+ b
   fimse
   r <- q%2
   q <- q\2
   se r = 0 entao
     b <- "0"+ b
   senao
     b <- "1"+ b
   fimse
   r <- q%2
   q <- q\2
   se r = 0 entao
     b <- "0"+ b
   senao
     b <- "1"+ b
   fimse
   escreva(n,"em decimal é representado por",b," em binário")

fimalgoritmo

O que será escrito na tela,supondo que o valor de  n é 29? Mostre o teste de mesa utilizado para determinar o valor de b.
 

3.7) Escreva um algorítmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra.O algorítmo deverá escrever: 1.o valor total pago pelos cinco clientes; 2. o valor médio das compras efetuadas; 3.os nomes dos clientes que efetuaram compras superiores a 20 reais.

algoritmo "calcular gastos de cliente de uma loja"
var
 cliente1,cliente2,cliente3,cliente4,cliente5 : literal
 x1,x2,x3,x4,x5,vT,vM : real
inicio
  escreval ("calcular gastos de um loja")
  escreva (" informe o nome do cliente 1")
  leia (cliente1)
  escreva (" informe o nome do cliente 2")
  leia (cliente2)
  escreva (" informe o nome do cliente 3")
  leia (cliente3)
  escreva (" informe o nome do cliente 4")
  leia (cliente4)
  escreva (" informe o nome do cliente 5")
  leia (cliente5)
  escreva (" informe o valor gasto do cliente 1,R$")
  leia (x1)
  escreva (" informe o valor gasto do cliente 2,R$")
  leia (x2)
  escreva (" informe o valor gasto do cliente 3,R$")
  leia (x3)
  escreva (" informe o valor gasto do cliente 4,R$")
  leia (x4)
  escreva (" informe o valor gasto do cliente 5,R$")
  leia (x5)
  vT <-(x1+x2+x3+x4+x5)
  vM <- (vT /5)
  escreva ("o valor gasto pelos clientes na loja eh R$")
  escreval (vT:5:2)
  escreva (" O valor medio das compras efetuadas eh ")
  escreval (vM :5:2)
  escreval (" Realçao dos clientes que gastaram acima de R$20,00:")
  se (x1>20)entao
  escreval (cliente1)
  fimse
  Se (x2>20) entao
  escreval (cliente2)
  fimse
  se (x3>20) entao
  escreval (cliente3)
  fimse
  se (x4>20) entao
  escreval (cliente4)
  fimse
  se (x5 >20) entao
  escreval(cliente5)
  fimse
 

  fimalgoritmo

3.6)Um sistema de equações lineares do tipo: a x X +b x Y = C , d x X + e x Y= f. Pode ser resolvido da seguinte forma: x= c x e -b x f / a x e - b x d. Escreva um algoritmo que leia os coeficientes a,b,c,d,e,f e calcule e escreva os valores de x e y. Lembre-se que os denominadores das equações não podem ser zero.

algoritmo "calcular x e y"
var
  a,b,c,d,f,x,y,n,z :real
inicio
  escreval ("calcular valor de x , y")
  escreva (" informe valor de a ")
  leia (a)
  escreva (" informe valor de b")
  leia (b)
  escreva (" informe valor de c ")
  leia (c)
  escreva (" informe valor de d")
  leia (d)
  escreva (" informe valor de f")
  leia (f)
  escreva (" informe valor de e")
  leia (z)
  n <- (a*z)-(b*d)
 
  se (n = 0)entao
  escreva ( "Nao existe soluçao pertencente aos numeros reais")
  senao
  x <- ((c *z)-(b*f))/n
  escreva ("X=")
  escreval (x)
 
  y <- ((a*f)-(c*d))/n
  escreva ("Y=")
 escreva (y)
  fimse

  fimalgoritmo

3.5) Escreva um algorítmo que lê dois numeros inteiros e informe se o primeiro é múltiplo do segundo.

algoritmo "calcular 2 numeros multiplos"
var
  x1, x2, resto : inteiro
inicio
  escreval (" calcular multiplos")
  escreva ("informe o numero x 1")
  leia (x1)
  escreva (" informe o numero x 2")
  leia (x2)
  se (x1 >x2) entao
  resto <- x1 mod x2
  senao
  resto <- x2 mod x1
  fimse
  se ( resto = 0) entao
  escreva ("o primeiro eh multiplo")
  senao
   escreva ("o segundo eh multiplo")
  fimse
  fimalgoritmo

3.4 ) Escreva um algoritmo para calcular a área de um circulo,fornecido o valor do raio,que deve ser positivo ou negativo.

algoritmo "circulo
var
 area, raio:real
inicio
   pi <- 3.141518
   escreva ("digite raio")
   leia(raio)
   area <- pi * (raio ^2)
   se ( area > 0) ou (area = 0) entao
    escreva ("a area eh",area:5:2)
    senao
   escreva (" o raio precisa ser > = 0")

   fimse
        fimalgoritmo

3.3 ) Quais os valores armazenados em SOMA, NOME E TUDO após executados os passos abaixo,supondo-se que NUM,X,COR, DIA, TESTE e COD valem, respectivamente, 5,2,"Azul","Terça",FALSO e VERDADEIRO" ?

1. NOME <- DIA
    NOME <- Terça

 2. SOMA <-(NUM^2/X) + (X +1)=
     SOMA <- (5^2/2) + (2+1 )= 15.5

3. TUDO <-nao ((TESTE ou COD) e (X <> NUM)= V

3.2 ) Forneça o resultado da expressão lógica, se é Verdadeiro ou Falso:

(((5/2=5/2) e (3.0 <>3.1)) ou (5>=4)) e (nao(5=5.0)) F

3.1 Condicionais. 1) Resolva as expressões lógicas,em Verdadeiro ou Falso:

1) 2 >3  FALSO
                 
2) (6 <8) ou ( 3>7) VERDADEIRO


3)nao (2< >2.0) VERDADEIRO

     
4) 5 >= 6 ou 6 < 7 ou nao ( a +5 - 6 = 8) onde a=5 FALSO


5) (34 <9 e 5 + u = 34) ou ( 5 = 15/3 e 8 >12) onde u = 29  FSALSO

5 ) Elabore um algoritmo qua dada a idade de um nadador,classifique-o uma das seguintes categorias : infantil A = 5 - 7 anos, infantil B = 8 - 10 anos,junvenil A= 11- 13 anos, juvenil B = 14 - 17 anos e adulto = maiores de 18 anos.

algoritmo "Calcular idade do nadador"
var
 idade: inteiro
inicio
  escreval("informe a idade do nadador")
  leia (idade)
  escreval
  se ((idade >=5)e (idade <=7))entao
    escreva ("infantil A")
  senao
   se ((idade >=8)e (idade <=10))entao
     escreva ("infantil B")
  senao
      se ((idade >=11) e (idade <=13)entao
      escreva("juvenil A")
  senao
     se ((idade >=14) e (idade <=17) entao
        escreva ("juvenil B")
  senao
           escreva ("Adulto")
      fimse
    fimse
   fimse
   fimse
     fimalgoritmo

4 ) Elaborar um algoritmo que lê 2 valores a e b, os escrevem com a mensagem " são multiplos ou não "

algoritmo "Calcular multiplos"
var
 a, b,resto : inteiro
inicio
  escreval("calcular multiplos")
  escreva ("informe valor a")
  leia(a)
  escreva ("informe valor b")
  leia (b)
  se (a>b) entao
  resto <- a mod b
  senao
  resto <- b mod a
  fimse
  se (resto =0)entao
  escreva ("sao multiplos")
  senao
  escreva ("nao multiplos")
  fimse
     fimalgoritmo

3 ) Elaborar um algoritmo que lê 3 valores a, b, c e osescreve. A seguir encontre o maior dos 3 valores e escreva com a mensagem " é o maior"

algoritmo "Calcular  tres valores"
var
 a, b, c : real
inicio
  escreva ("informe valor a")
  leia (a)
  escreva ("informe valor b")
  leia (b)
  escreva("informe valor c")
  leia (c)
  se (a >b) e (a>c) entao
  escreva (" a eh o maior ")
  fimse
  se (b>c) entao
  escreva (" b eh o maior ")
  senao
    escreva (" c eh o maior")
  fimse
 
     fimalgoritmo

2 ) Faça um algoritmo que receba duas notas,calcule a media e mostre uma das seguintes mensagens :media >=5 "aprovado" e media < 5 "reprovado"

algoritmo "calcular notas"

var

nota1, nota2, media : numerico

inicio

escreval (" calcular a media ")

escreva (" digite a primeira nota:")

leia (nota1)

escreva ("digite a segunda nota:")

leia (nota2)

media <- (nota1 + nota2)/2

se (media >=5)entao

escreva ("aprovado")

senao

se (media<5) entao

escreva (" reprovado")

fimse

fimse

fimalgoritmo

LD1 -Condicionais. 1) Faça um algorítmo que receba uma idade se ela for igual ou superior a 18 anos,mostre a mensagem " é maior".

algoritmo "informar idade"

var

  idade : Inteiro

inicio
  escreva (" digite a idade")
leia (idade)


se ((idade >=18) e (idade <30)) entao

escreva ("ele eh jovem")

senao

 se (idade >=18)entao

escreva ("ele eh maior")

senao

escreva (" ele eh menor")

 fimse

fimse


fimalgoritmo

TEKILA - Uma cachorrinha brincalhona...

21 ) A comissão de formatura de um curso está organizando a festa de formatura de sua turma e levantou as seguintes informações: 1. custo do salão (capacidade de 800 pessoas com mesas de 4 pessoas) R$ 2000.00; 2. custo da sonorização: R$ 500,00 3. custo da decoração: R$ 800,00 Além desses custos, que serão rateados igualmente entre os formandos, há custos cuja divisão é proporcional ao número de convidados do formando. São eles: 1. segurança: necessário um segurança para cada 80 pessoas da festa; 2. garçom: um garçom consegue atender 48 pessoas (ou 12 mesas de 4 pessoas); e 3. bebida. Escreva um algoritmo que leia o nome de cada um dos cinco formandos com seus respectivos números de convidados. Ele também deve ler os custos de um segurança, de um garçom e da bebida. O algoritmo deve calcular e escrever, para cada formando o número de mesas desitnadas para seus convidados e o custo da festa para eles. As mesas poderão ser compartilhadas entre convidados de diferentes formandos.

algoritmo "calcular festa formatura"

var
 nomeF1, nomeF2, nomeF3, nomeF4, nomeF5:literal

nconF1, nconF2, nconF3, nconF4, nconF5, custoSeg, custo1Seg, seguranca, custoGar, custo1Gar, garcon, bebida, mesasFor, custoFestaFor, totalConv: real


inicio
    escreval ("Calcular Festa Formatura")

escreva ("nome de formando 1: ")

leia (nomeF1)

escreva ("Informe numero convidados Formando 1:")

leia (nconF1)
escreva ("nome de formando 2: ")

leia (nomeF2)

escreva ("Informe numero convidados Formando 2:")

leia (nconF2)

escreva ("nome de formando 3: ")

leia (nomeF3)

escreva ("Informe numero convidados Formando 3:")

leia (nconF3)

escreva ("nome de formando 4: ")

leia (nomeF4)

escreva ("Informe numero convidados Formando 4:")

leia (nconF4)

escreva ("nome de formando 5: ")

leia (nomeF5)

escreva ("Informe numero convidados Formando 5:")

leia (nconF5)

escreva ("qual o valor de 1 segurança: ")

leia(custo1Seg)

escreva ("qual o valor de 1 garçom: ")

leia (custo1Gar)

escreva ("Qual valor da bebida: ")

leia (bebida)

escreval

totalConv <- (nconF1+nconF2+nconF3+nconF4+nconF5)

mesasFor <- (totalConv/4)

seguranca <- (totalConv/80)

custo1Seg <- (seguranca*custo1Seg)

garcon <- (totalConv/48)

custoGar <- (garcon*custo1Gar)

custoFestaFor <- (2000.00+500.00+800.00+custoSeg+custoGar+bebida)/5

escreva ("Cada Formando gastara na formatura R$ ",, custoFestaFor:5:2, " e cada formando terá direito a ", mesasFor, " mesas para seus convidados")


fimalgoritmo

20 ) Escreva um algoritmo que leia o nome, o valor da hora e o número de horas trabalhadas por um empregado. O algoritmo deve escrever o nome e o salário liquido do empregado calculado conforme as seguintes regras: 1. o salário bruto mensal é o produto das horas trabalhadas pelo valor das horas. 2. sobre o salário bruto mensal é aplicado um desconto de 9% referente ao INSS e 8% de FGTS; e 3. o salário liquido é o salário bruto mensal menos os encargos.

algoritmo " cacular horas trabalhadas"

var
   nomeEmpregado:literal
   valorHora, totalHoras, salarioBruto, encargos, salarioLiquido:real

inicio
    escreva("Informe o nome do empregado")
      leia(nomeEmpregado)

      escreva("Informe o valor da hora trabalhada")
      leia(valorHora)

      escreva("Informe o total de horas trabalhadas")
      leia(totalHoras)

      salarioBruto <- totalHoras * valorHora

      encargos <- (salarioBruto * (9/100)) + (salarioBruto * (8/100))

      salarioLiquido <- salarioBruto - encargos

      escreva("O empregado ", nomeEmpregado, " receberá o salário de: R$", salarioLiquido:5:2)



 fimalgoritmo

19 )O custo final de um carro é a soma do custo de fábrica com o percentual de revenda mais impostos, ambos aplicados ao custo de fábrica. Escreva um algoritmo que leia o nome do modelo de um carro, seu custo de fábrica e os percentuais de revenda e de impostos e escreva o custo ao consumidor do carro.

algoritmo " Calcular Custo Final Carro"

var
  nomeCarro:literal
  custoFinalCarro, custoFabrica, percentualVenda, imposto, totalTaxas: real

inicio
   escreval ("*** Calcular Custo Final ao Consumidor de um Carro ***")

  escreva ("nome do veiculo:")

  leia (nomeCarro)

  escreva ("Qual o custo de fábrica do veículo:")

  leia (custoFabrica)
  escreva ("Qual é o do percentual de revenda:")

  leia (percentualVenda)

  escreva ("Qual o valor do imposto:")

  leia (imposto)

  totalTaxas <- (custoFabrica*(percentualVenda+imposto))/100

  custoFinalCarro <- custoFabrica+totalTaxas

  escreva (" O custo final do carro ", nomeCarro, " eh ",custoFinalCarro: 5:2)

fimalgoritmo

18 ) Uma revenda de carros paga a seus vendedores um salário de X reais por mês, acrescido de uma comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.

algoritmo "Calcular salário vendedor"

var
  nomeVendedor, salarioMensal,carrosVendidos, comissao, comissaoTotal, valortotalVendas, salarioFinal: real

inicio
   escreval ("Calcular salário vendedor")

   escreva ("Informe salário mensal- ")

   leia (salarioMensal)

   escreva ("informe quantos carros foram vendidos no mês -")

   leia (carrosVendidos)

    escreva ("Informe valor total das vendas - ")

   leia (valorTotalVendas)
     comissao <- (carrosVendidos*50.00)

     comissaoTotal <- (valorTotalVendas*1.04)-valorTotalVendas

     salarioFinal <- (salarioMensal+comissao+comissaoTotal)

     escreva (" O Vendedor ", nomeVendedor, " recebeu este mês um total de ", salariofinal:6:2)

fimalgoritmo.

16 ) Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem peso 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo 110101 é 53 . (1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "conversão da base binário para decimal"

var
  n1 ,n2,  n3 , n4, n5, n6, decimal : numerico
inicio
 escreval ("conversao binario para decimal")
escreva ("digite o primeiro numero")
leia (n1)
escreva ("digite o segundo numero")
leia (n2)
escreva ("digite o terceiro numero ")
leia (n3)
escreva ("digite o quarto numero")
leria (n4)
escreva (" digite o quinto numero")
leia (n5)
escreva ("digite o sexto numero")
leia (n6)

  decimal <- (n1 * 32 + n2 * 16 + n3 * 8 + n4 * 4 + n5 * 2 + n6 * 1)

  escreval (" binario fornecido",n1,n2,n3,n4,n5,n6)
  escreva ("a base decimal eh")
 
fimalgoritmo

15 ) Escreva um algorítmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "calcular área do círculo"


var

  r, area : real

inicio

  escreval ("digite o raio do circulo")

  leia (r)

  area <- 3.14 * r^2

  escreva ("area do circulo eh")

fimalgoritmo

14 ) Escreva um algorítmo que calcule a quantidade de latas de tintas necessárias e o custo pata pintar tanques clíndricos de combustível, onde são fornecido ( o algorítmo lê) a altura (h) e o raio ) e o raio ( r ) desse desse cilindro, Sabe -se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5 litros e cada litro pinta 3 quadrados na media. Para que fique bm coberto de tinta,há necessidade de 2 demãos.

algoritmo "calcular pinturas de cilindros")


var

totalL, qtdLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total : real

inicio

escreval("pintura de cilindros")

escreva ("digite a altura do cilindro ")

leia (h)

escreva ("digite o raio do cilindro ")

leia (r)

//calculando quantos metros quadrados tem o cilindro

areaBase <- 3.14 * r^2

areaLateral <- 2 * 3.14 * r * h

areaTotal <- areaLateral + (2 * areaBase)

// Area total /3 * 2 demãos de tinta

qtdLatas <- totalL /5

custoTotal <- qtdLatas * 40

escreval ("quantidade de latas de tinta po cilindros")

escreva ("valor total R$")

fimalgoritmo

13) Escreva um algorítmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica,dada por : an = a1 * q^(n-1)

algoritmo "calculo de uma progressão geométrica"


var

  a1, an, q, n :real

inicio

  escreval ("calculo de uma progressão geometrica")

  escreva (" digite o valor a1")

  leia (a1)

  escreva ("digite o valor n")

  leia (n)

  escreva ("digite o valor q")

  leia (q)

  an <- a1 * (q ^(n-1))

  escreva ("valor do tempo an eh")


fimalgoritmo

12) Escreva um algorítmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula: sn = ((a1 + an) / 2 * n) . Onde a1,é o primeiro termo da progressão,an ,é o ultimo e n é o numero de termos ,talque: n = ((an - a1) / r + 1 ) . Os valores de a1,an e r ( a razão da progressão ) serão fornecidas pelo usuário.

algoritmo " calcular a soma da progressão Aritmética"

var

  a1, an, sn, r, n : real

inicio

  escreval (" calcular a soma da progressão Aritmética")

  escreva ("digite o valor de a1")

  leia (a1)

  escreva ("digite o valor de an")

  leia (an)

  escreva ("digite o valor de r")

  leia (r)

  n <- ((an - a1)/r + 1)

  sn <- ((a1 +an)/2)* n

  escreva (" o valor da soma eh")



fimalgoritmo

11) Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais R$ 1.50 por tipo de cobertura pedida ( queijo,presunto, banana, etc.). Uma turma vai á pizzaria e pede uma determinada quantidade de chopes e peizzas grandes com uma determinada quantidade de coberturas. Escreva um algorítmo que calcule a conta e, sabendo quantas pessoas estão á mesa, quanto cada deve pagar (não esqueça os 10% do garçon).

algoritmo " calcular a conta em uma pizzaria"


var

  xchops, xpizza, xcobertura, xpessoas : inteiro
  totalconta, sbtotalconta, gorggarcon, totalporpessoa : real

inicio

  escreval ("calcular a canta em uma pizzaria")

  escreva ("digite quantas pessoas?")

  leia (xpessoas)

  escreva (" digite total de chops?")

  leia (xchops)

  escreva ("digite total de pizzas?")

  leia (xpizza)

  escreva ("digite quantas coberturas?")

  leia (xcobertura)

  sbtotalconta <- (xchops * 2.80) + (xpizza * 20) + (xcobertura * 1.50)*xpizza

  gorggarcon <- (sbtotalconta / 100 )* 10

  totalconta <- sbtotalconta + gorggarcon

  totalporpessoa <- totalconta / xpessoas

  escreval ("sbtotalconta: R$")

  escreval ("gorggarcon : R$ ")

  escreval ("totalconta : R$")

  escreval ("totalporpessoa :R$")



fimalgoritmo

10 ) Escreva um algorítmo que leia o nome de um piloto,uma distância percorrida em quilômetros e o tempo que o piloto levou para percorrê-la (em minutos).O algorítmo deve calcular a velocidade em KM/h, e exibir a seguinte frase : A velocidade média do foi km/h

algoritmo " Calcular velocidade média do pilto"



var

  dk, tmi, vme : real

  nomepiloto: literal

inicio

  escreval (" calcular velocidade media do piloto")

  escreva ("digite o nome do piloto")
  leia (nomepiloto)


  escreva ("digite a distancia percorrida")

  leia ( dk)

  escreva ("digite o tempo em minutos")

  leia (tmi)

  vme <- dk *(tmi/60)

  escreva (" a velocidade media do ",nomepiloto,vme)



fimalgoritmo

9) Um representante comercial realizará uma viagem de vários dias com um automóvel,e . após, deseja saber a quilomtragem média por litro de gasolina. Para isso, ele anotará a quilometragem no velocímetro ao sair de viagem e ,depois , a quilometragem na chegada, ele também vai somar toda gasolina ( em litros) usada para abastecer o carro durante a viagem.Escreva um algorítmo que, a partir desses dados,informe a quilometragem media por litro de gasolina.

algoritmo " Calcular quilometragem media por litro de gasolina"


var

  kmi, kmf, tg, md :real

inicio

  escreval ("calcular quilometragem media por litro de gasolina")

  escreva ("digita a quilometragem inicial")

  leia ( kmi)

  escreva ("digita a quilometragem final")

  leia ( kmf)

  escreva ("digita o total de gasolina usado na viagem")

  leia (tg)

  md<- (kmf - kmi)/tg

  escreva ("media diaria por litro de gasolina usado na viagem:",md:5:2)


fimalgoritmo

8) No seguinte algorítmo existem erros de sintaxe? Em caso de afirmativo, onde ?

algoritmo "TESTE"

var

marca : literal

idade : numérico //numerico não tem assento no E

letra : literal

marca : numérico // ja existe uma variavel com o nome "marca"

início // não tem assento agudo no I

leia (idade) // o correto é escrever e depois ler

escreva (idade)

idade = 678

leia ("letra") // não esta atribuindo o valor a nenhuma variável

leia (ABC) // não existe a variavel ABC

escreva ( Letra) // letra nao recebeu nada

letra <- 4 // letra eh tipo literal,nao pode receber numero inteiro



fimalgoritmo

7) Escreva um algorítmo que calcule o valor de Base.O algorítmo deve ler o valor da base e do expoente. Após,ele deve escrever o valor da base elevaod ao expoente.

algoritmo " calcule o valor da base"


var

  b,ex,total : real

inicio

   escreval ("calcule o valor da base")

  escreva ("digita o valor da base")

  leia (b)

  escreva ("digita o valor do expoente")

  leia (ex)

  total <- b^ex

  escreva (" a base levado a expente eh",total)

fimalgoritmo

6) Assinale com um X os comandos de atribuição considerados inválidos:

var
  NOME, COR, TESTE, DIA, X : literal
  SOMA, NUM : numerico

1.(x) NOME <-5                                                         2.(X) SOMA <- NUM + 2*X

3.(  )TESTE <- SOMA                                               4.(  ) NUM <- SOMA

5.(  ) COR <- "PRETO"                                              6.(X) X <- X+"1"

7.(X) NUM  <- "ABC"                                                8.(  ) DIA <- "seGUNDA"

9.(X) SOMA +2 <- NUM                                           10.(  ) X <-(NOME = COR)

 11.(X)"ABC" <- NOME                                             12.(X) NOME <- DIA + COR

5) Assinale com X os nomes de variáveis válidos:

1.(x)abc                              2.(  )3abc                          3.(x)a                       4.(  )123ª

5.(  ) -a                               6.(x)acd1                          7.(  )-_ad                  8.(  )A&a

9.(x) prim-nom                  10.(x) A123                        11.(x)Aa                   12.(x) prim_nom

13.(  ) ABC  DE                14.(  )etc.                            15.(x) E                    16.(  )"nome"   

4) Classifique os valores constantes abaixo,de acordo com seu tipo, assinalando com N dados numéricos e com L os literais:

1.(L) 0                            2.(L)"abc"        3.(L)"joão"                 4.(L) "FALSO"

5.(N)1012                     6.(L) "V"            7.(N)-49                    8.(N)+342

9(N)569                        10(L)"Ze"            11.(N)5.   7              12.(N)0.00001

13.(N)3.1415                14.(N)-545           15.(L)"444"             16.(L) "1+2"

3) Resolva a expressão Aritmética abaixo montando todos passos utilizados para a obtenção da solução:

algoritmo "capitulo  2,exercicio 3"

var


  total : real

inicio

  escreval ("capitulo 2,exercicio 3")

  total <- (20%7) + 7 - 3.0 + 7/2 + (19/5) + (20+4)/(4 * 3)

  escreva ("o valor da expressão eh",total)



fimalgoritmo

2) Escreva as expressões abaixo na forma convencional:

1. (12 + 1)/ (4*a/45)^0.5


2. (a + x^(2 + w) -3*a)/2

3. 12*x/(36 – 9^y)

4. (17^0.5 + 4)/3

Cap.2 ex. 1) Escreva as expressões abaixona forma de sintaxe do Português Estrutural:

1 – raizq( ((2+x) * x + u) / (a+b+c) )


2 – x^2 + ( (3*(x^(x+1))) / 2 ) + raizq(x+1)

3 – h – ( ((45/7) * x – 4*h*(3+a)) ^3 )

4 – ( -b – (raizq(b^2 – 4*x*a*x*c)) ) / (2*a)

5 – (-raizq((-6^x) + (2*y)) ) / (3^9)

6 – raizq(6) + ((x*y) / (2*x)) + (3^2) – ( (x^2) / 3)

Exercicio -9. Faça um algorítmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-os expresso em horas,minutos e segundo.

algoritmo " Calcular o tempo de duração do evento")


var

  h,m ,s ,ts ,sh,sm :inteiro
 

inicio
  escreval ("calcular o tempo de duração do evento")

  escreva ("digite o tempo em seguntos")

  leia (ts)

  escreva ("digite o tempo em minutos")

  leia (m)

  escreva ("digite o tempo em horas ")

  leia (h)

  h <- ts div 3600

  sh <- ts -(h * 3600)

  m <- sh div 60

  s <- sh -(m * 60)

  escreva (" O tempo de duração eh")


fimalgoritmo

Exercício-10. Qua o peso ideal de uma pessoa? Calcule utilizando o IMC =IMC ideal é 25.Faça um fluxograma que receba a altura de uma pessoa e informe seu peso ideal.

algoritmo " Calcular IMC"


var

  p,h :real

inicio

  escreval ("digite a altura")

  leia (h)

  p <- (25*(h^2))

  escreval (" resulta,p,kg")

fimalgoritmo

Exercício-8. Faça um algorítmo que leia trê notas de um aluno e calcule a media final deste aluno. Considerar que a media é ponderada e que o peso das notas é: 2, 3 e 5.

algoritmo "Calcular média ponderada


var

  n1,n2,n3,media:real

  inicio

  escreval ("Calcular a media ponderada")

  escreva  ("digite nota1,peso 2")

  leia (n1)

  escreval ("digite nota2,peso 3")

  leia (n2)



  escreval ("digite nota 3,peso 5")

  leia (n3)



  media <- (n1*2)+(n2*3)+(n3*5)/10

  escreval (" a media eh")

fimalgorítmo

Exercício-7. Faça um algorítmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos,meses e dias.

algoritmo "Ler a Idade de um pessoa em dias"

var


  dias,meses,anos,totaldias:inteiro

inicio


  escreval ("Ler a idade de uma pessoa em dias")

  escreva ("digite um valor para anos")

  leia (anos)

  escreva ("digite um valor para meses")

  leia (meses)

  escreva ("digite um valor para dias")

  leia (dias)

  totaldias <- (anos * 365)+ (meses * 30) + dias

  escreva (" O total de dias eh")

fimalgorítmo

Exercvício-6. Faça um algorítmo que leia a idade de uma pessoa expressa em anos,meses e dias e mostre-a expressa apenas em dias.

algoritmo "Ler a Idade de um pessoa em dias")


var


  dias,meses,anos,totaldias:inteiro


  inicio


  escreval ("Ler a idade de uma pessoa em dias")

  escreva ("digite um valor para anos")

  leia (anos)

  escreva ("digite um valor para meses")

  leia (meses)

  escreva ("digite um valor para dias")

  leia (dias)

  totaldias <- (anos * 365)+ (meses * 30) + dias

  escreva (" O total de dias eh")

 fimalgorítmo

Exercício-5. Escreva um algorítmo que leia três números inteiros e positivo (A,B,C) e calcule a seguinte expressão: D=R+S/2. Onde R=(A=B)^2 S=(B+C)^2

algoritmo "Cálculo das expressões de números inteiros"




var

  a,b,c : inteiro

  d,r,s : real



inicio

  escreval ("Cálculo das expressões de números inteiros")

  escreva ("digite um valor para a")

  leia (a)

  escreva ("digite um valor para b")

  leia (b)

  escreva ("digite um valor para c")

  leia (c)

  r <- (a + b)/2

  s <- (b + c)/2

  d <- (r + S)/2

  escreva ("O valor de d eh")
fimalgorítmo

Exercício-4.Construa um algorítmo que,tendo como dados de entrada dois pontos quaisquer plano,P (x1,y1) e P(x2,y2),escreva a distância entre eles.A formula que efetue o cálculo é: d=raizq( (x2-x1)^2)+((y2-y1)^2)

algoritmo "Calcular a distância entre pontos"




var

  x1,x2,y1,y2,distancia:real



inicio

  escreval(" Calcular a distância entre posntos")

  escreva ("Qula eh o valor de x1?")

  leia (x1)

  escreva ("Qual eh o valor de x2?")

  leia (x2)

  escreva ("Qual eh o valor de y1?")

  leia (y1)

  escreva ("Qual é o valor de y2?")

  leia (y2)

  distancia <- raizq( ((x2-x1)^2)+((y2-y1)^2) )

  escreva ("A Distância entre os pontos eh",distancia:5:2)

fimalgorítmo

Exercício-3.Você possui dois gatos e acabou de comprar um pacote de ração(Kg).Você deve dividir as porções de ração,levando em consideração o peso de cada gato,sabendo que para cada 1 kg de gatodeverá ser servido 50grs de ração diariamente.Faça um algorítmo que solicite o peso de cada gato e o peso (em Kg)de pacote de ração.O algorítmo deverá calcular as porções diárias e mostrar o quanto (em gramas) existe no pacote de ração após 5 dias.

algoritmo "calcular porções de ração diária dos gatos"




var

  gato1,gato2,gramasgato1,gramasgato2,totalpeso,racaodia,racaoapos5dias,pacoteracao:real



inicio

  escreval("calcular porções de ração diaria dos gatos")

  escreva (" Qual eh o peso do gato1?")

  leia (gato1)

  escreva (" Qual eh o peso do gato2?")

  leia (gato2)

  escreva ("Qual eh o peso do pacote de ração?")

  leia (pacoteracao)




  gramasgato1 <- gato1*50

  gramasgato2 <- gato2*50

  racaodia <- gramasgato1 + gramasgato2

  racaoapos5dias <-(pacoteracao * 1000)- (racaodia * 5)

  escreva ("Total de ração após 5 dias eh:")
fimalgorítmo

Exercício 2- Calcular a área de um triângulo equilátero.

algoritmo " Cacular a area de um triangulo Equilátero "


  var

  lado,h,area: real

  inicio

  escreval("Calcular área de triangulo Equilátero")

  escreva ("Qual eh o valor do lado ")

  leia (Lado)

  h<- (lado *raizq(3))/2

  area <-(lado*h)/2

  escreva ("Area do triangulo eh:",area: 5:2)

  Fimalgoritmo

Algorítmo-LD1-Exercício do caderno.1-Calcular a área de um triângulo

algoritmo "Calculo a área de um triângulo"


var

h,b,area: real

inicio

escreval("Calculo da área")

escreva("Qual o valor da base")

leia (b)

escreva("Qual o valor da altura")

leia(h)

área <- (b*h)/2

escreval("A área desse triângulo eh igual a",area)

escreva("fim")

fimalgoritmo

30-Para onde você acha que caminha o futuros dos computadores?Quais os fatores que você levou em consideração para formar sua opinião?

Bom eu acredito que esse caminho vai muito longe, pela tecnologia ja existente,por existir computadores cada vez menores,capaz de armazenar milhões de dados,fácil acesso a internet,facilidade de se comunicar com quem  quizer,onde ele estiver atravez de um computador.a velocidade em si muito importante cada vez melhor e mais rápida,sendo usado nos trabalhos,escolas,residências e o numeros de usuários tende a crescer tambem.Não sabemos onde vai chegar,mas que há muito supresas  por vir nessa era digital.O homem em si não se cansa em  descobrir coisas,melhorar,aperfeiçoar,porque o ser humano  sempre almeja mais.E quanto mais tecnologia,praticidade  ele descobrir,melhor será.

29-Quais são, na sua opinião,as razões pelas quais a revolução dos computadores progrediu tanto em tempo tão curto?

Pela necessidade de obter mais infomações,em armazenamento maior de dados.A globalização,necessidade de estudos e pesquisas mais frequente no mundo todo e a capacidade  humana de desenvolver projetos cada vez melhores.

28-Como podem ser classificados os computadores quanto á característica de construção,quanto ao princípio de construção(natureza),quanto ao âmbito e quanto ao porte?Descreva as características de cada uma dasa categorias.

Quanto a características de construção(natureza),temos: A primeira geração,(ENIAC)
eram computadores á válvulas,enormes,quilômetros de fios,eram lentos,esquentavam muito e alto custo.
A segunda geração (IBM 1401 e sucessor o IBM7094)foi substiuídos por transistores,fios de ligação por circuitos impressos,tornando os computadores mais rápidos,menores e baixo custo.A terceira geração(IBM 360)foi construído por circuitos integrados(chip) proporcionando maior compactação,redução dos custos,velocidade de processamento de microssegundos,com utilização de avançado sistema operacional.
A quarta geração ( o IBM-PC)foi caracterizada por  um aperfeiçoamento da tecnologia ja existente com a confiabilidade e maior velocidade da ordem  de nanossegundos(bilionesima parte por segundo).Uso de circuitos de larga escala ( LSI-1000 transistores por chip) e larguíssima escala ( VLSI-100.000 transistores por chip) e ULSI microprocessadores como Intel Pentium Pro.
E Quinta geração marcado pelos circuitos integrados com um milhão de transistores por chip,memória semicondutora tornando -se padrão.Processamento em  paralelo generalizado,até os tempos de hoje,chip cada vez nemor.Quanto ao princípio de construção(natureza) temos o computador analógico(utilizado na área de pesquisa ciêntica e em empresas) e o computador digital(utilizado no comercio,em área adiministrativa e residências)Quanto ao âmbito tem geral ( utilizados em escolas,escritórios e em casa) e específico(controle de mecanismo e cálculos ciêntíficos).E quanto ao porte os mainframes,minicomputadores,computadores pessoais(PC),microcomputadores,estação de trabalho(Wrkstation)e supercomputadores.

27- Quais os componentes de um sistema de computação?

Hardware e software.

26-O que é um sistema de computação?

 É o sistema que realiza computações,produzidas por um sistema de computação com elementos de entrada,com objetivo de produzir elementos de saída.

25-O que quer dizer WWW? E HTML?

WWW-World Wide Web(rede de alcance mundial)é o serviço que disseminou a internet pelo mundo,onde é possível acessar hipertexto,sendo um grande sistema de documentos em hipermídia que são interligados e executados na internet.

HTML-Expressão Inglesa Hyper Text Markup Language-significa lingagem de marcação de hiper texto,utilizado para produzir páginas na web.

24-Em 1990 a microsoft teve um lançamento de impacto,qual?

O lançamnto da Microsoft foi o Windows 3.0 que executava vários programas ao mesmo tempo,compatível com o MS-DOS para a satisfação do usuário.

23-Em 1981 a IBM introduziu o PC no mercado,qual o software básico deste PC?

O software básico deste Pc da IBM  era o MS-DOS(microsft Disk Operating sistem).

22-Quais as características do AppleII?

 Foi um modelo de computador fabricado pela Apple no final da década de 70.Foi vendido em 5 de junho de 1977,o primeiro computador pessoal a vir num gabinete plástico e incluia a capacidade de gera gráficos coloridos em seus recursos.AppleII era baseado no processador 6502 á 1mhz,com Ran começando de 4kb até 64kb,Ron de 12 kb incluindo o Applesoft basic.

21-Quais as atecessoras da internet?

A Arpanet e Nsfnet que criaram uma infra estrutura que permitia a ligação gratuita em rede das instituições de ensino e de pesquisa.

20-O código ASCII foi criado em 1963,para que ele era utilizado?

Para intercâmbio de informações,para representar símbolos com números binários(bits),sendo um dos mais usados.

19-Qual a diferença entre linguagem de alto nível e linguagem da máquina?

A linguagem de alto nível é a que está atrás do software,uma linguagem mais visual e entendido pelo usuário.
E a linguagem da máquina é uma linguagem de baixo nível,é aquela q se comunica diretamente com o hardware,que geram códigos para que o hardware entenda e execute o comando desejado.

18-Qual foi o primeiro computador comercializado?

Foi o IBM 650.

17- O que marcou o início da "Era do Computador?

Foi quando a IBM apresentou o IBM 701 e o IBM650,sendo o maior sucesso de vendas da época.

16- O que foi Memex?

foi uma máquina para automatizar e memória humana,que foi a ideia inovadora de Vannevan Bush.Seria um aprelho onde se poderia guardar e abrir documentos utilizandoo micro filme.Sendo composto por um teclado,botões e alavancas de selecção.Uma máquina capaz de armazenar muitas informações  com fácil axcesso e rapidez.

15-Porque foram criandas as linguagens de programação?

Porque o computador não entende a nossa linguagem,ele entende apenas se há ausência ou não de energia.

14-O que significa a seguinte expressão:" O computador processaria os dados de acordo com a necessiadades do usuário"?

A máquina era limitada conforme a capacidade do usuário.Quanto mais rápido ele digitava,mais dados ele gerava.

13-Quais eram as características básicas da arquitetura proposta por John von Neumann?

O programa passa a ser armazenado na memória do computador.Sugerindo que fossem usados uns e zeros.
Armazenar instruções na memória,em qualquer informação necessária na execução de tarefa e controle.

12-Quais as características do primeiro computador eletromecânico?

Usavam relês para executar os cálculos e dados lidos em fitas perfuradas,chamadas Z-1.Construido por Zonrad Zuseem.É considerado por muitos o primeiro computador eletro-mecânico.

11-O que caracterizava o Teste de Turing?

Consistia em verificar se podiamos atribuir á máquina a noção  de inteligência .

10-O que representou Alan Turing para a computação?

Allan foi um dos grandes pioneiros no campo da computação.Um grande avanço na área da computação,foi na segunda guerra mundial que Turing foi trabalhar do departamento de comunicação da Gran Bretanha,para quebra de códigos da comunicação alemã,por um computador chamado Enígma.E junto com seus colegas Turing trabalhou em um sistema chamado Colossus,considerado um precursor dos computadores  digitais.

9-Qual o grande feito do Inglês George Boole?

Demou mais de um século,mas foi em 1854 que George Boole publicasse Álgebra Booleana,era um sistema completo que permitia a construção de modelos matemáticos para o precessamento computacional.