Listas lineares

Filas:Representa os clientes que estão esperando pelo serviço;o primeiro que chega e o primeiro que sai.
Pilhas:Enquanto a primeira apenas converte energia quimica a eletrica;a segunda faz a interconversao entre a energia quimica e elétrica,a primeira a entrar e a ultima a sair.
Duques:um titulo que se refere ao chefe e o titulo se passa de pai para filho.

Algoritmo InsereLst

Lista {lista alocada de forma sequencial}

Ptrinserir{aponta o indice onde deve ser feita a inserção}

infomação {variavel onde sera guardada a informação recebida}
inicio

se ptrIni= #
então
 inicio
    ptrIni<indInilst
    ptrfim<indInilst
 fim
Senão
   Inicio{movimentos outros nós}
      PtrTrb<ptrFIM + 1
      Enquanto ptrTrb<ptrInserir FAÇA
      inicio
        Lista(ptrTrb)<lista(ptrTrb -1)
        ptrTrb<ptrTrb -1
    fim
ptrFim<ptrFim +1
lista(ptrInserir)<informação
Fim

Algoritmo

Algoritmos é uma sequencia precisa de instruções lida e executada para outra pessoa.

Como funciona um programa de computador

Conceitos elementares Algoritmo e linguagem de programação.

+ noção de fluxo de execução de um programa .

+ os comandos da linguagem .

+ entrada e saida de dados.

+ Expressões aritmeticas e logicas .

Programa:calcular as raizes do segundo grau

 program bascara; Var b;c;raiz_discriminante:real; Begin Read(a) Read(b) Raiz_discriminante:sprt(b*b-4*c); Write((b-raiz_discriminante)/2); Write((b+raiz_discriminante)/2); End.

Problema:imprimir a soma de dois números.

Progran somar2; Var a;b:integer; Begin Read(a) Read(b) Write(a+b) End. Comandos: Entrada e saida (write/read) Atribuiçao(:=) Repetiçao(write/for/repeat) Desvio condicional(if/then;ou if/then/else) Problema:escrever números na tela entre 1e5. Sequencia:1 Sequencia:2 Sequencia:3 Sequencia:4 Sequencia:5 Progran sequencia 1_5. Begin Write('sequencia:';1) Write('sequencia:';2) Write('sequencia:';3) Write('sequencia:';4) Write('sequencia:';5) End.

Exercício : modifique o primeiro exemplo da soma;utilizando o "for"e crie uma tabuada de somar.

Program tabuada somar Var i;num:integer; Begin Write('informe um número:'); Read(num); For i:=1 to 10 do Begin Write (i;'+';num;'=';i+num); End.

Obs:(o nome do programa é vç quem escolhe). 

Exercício 1,2,3

01. Escreva algoritmos com soluções diferentes.
 1-para escovar os dentes
Pegue a escova
Pegue a pasta de dentes
Coloque um pouco de pasta de dente na escova
escova seus dentes com movimentos circulares
Tire a espuma da pasta com água
Escove a língua
E enxague a boca com aguá
E depois cuspa

2-Para calcular dois números .
Use dois números
Use o sinal de mais
Some os dois números com o sinal de mais no meio deles
Depois do sinal igual coloque o resultado

3-Ligar um computador
Procure o botão de ligar
Aperte o botão
Espere até que o computador ligue
Clique no usuário

02.Escreva um algoritmo de um problema para trocar um único pneu de carro 
Pegue uma chave que tire o pneu que precisa ser trocado
Tire o pneu
Vá no porta malas e retire o estepe
Coloque-o no lugar do pneu retirado usando a mesma chave

03.Escreva um algoritmo de problema para trocar  um único pneu de bicicleta 
Tire o pneu da bicicleta usando um chave
depois que retirar o pneu
coloque outro no lugar dele