FATEC Sistemas para internet

quinta-feira, 24 de maio de 2012

Formulário em HTML/campo tipo texto

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 2 "http://www.w3.org/TR/xhtml/DTD/xhtml1-transitional.dtd"> 3 <html xmls="http://ww.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br"> 4 <head> 5 <title>Trabalhando com PHP</title> 6 <meta http-equiv="Content-Type" content="text/html; charset=isso-8859-1" /> 7 </head> 8 <body> 9 <!--Ao enviar o dado, o mesmo será tratado pelo 'ex1.php'--> 10 <form action='recebe.php' method='post'> 11 Insira algum dado: <input type='text' name='dado'size='30'><br /> 12 <input type='submit' value='enviar'> 13 </body> 14 </html>
1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 2 "http://www.w3.org/TR/xhtml/DTD/xhtml1-transitional.dtd"> 3 <html xmls="http://ww.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br"> 4 <head> 5 <title>Trabalhando com PHP</title> 6 <meta http-equiv="Content-Type" content="text/html; charset=isso-8859-1" /> 7 </head> 8 <body> 9 <!-- Comando de inicialização para inserção de código PHP --> 10 <?php 11 echo $_POST['dado']; 12 ?> 13 </body> 14 </html>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
 2 "http://www.w3.org/TR/xhtml/DTD/xhtml1-transitional.dtd">
 3 <html xmls="http://ww.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br">
 4 <head>
 5 <title>Trabalhando com PHP</title>
 6 <meta http-equiv="Content-Type" content="text/html; charset=isso-8859-1" />
 7 </head>
 8 <body>
 9 <!--Ao enviar o dado, o mesmo será tratado pelo 'ex1.php'-->
10 <form action='recebe.php' method='post'>
11 Insira algum dado: <input type='text' name='dado'size='30'><br />
12 <input type='submit' value='enviar'>
13 </body>
14 </html>

 1 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
 2 "http://www.w3.org/TR/xhtml/DTD/xhtml1-transitional.dtd">
 3 <html xmls="http://ww.w3.org/1999/xhtml" xml:lang="pt-br" lang="pt-br">
 4 <head>
 5 <title>Trabalhando com PHP</title>
 6 <meta http-equiv="Content-Type" content="text/html; charset=isso-8859-1" />
 7 </head>
 8 <body>
 9 <!-- Comando de inicialização para inserção de código PHP -->
10 <?php
11 echo $_POST['dado'];
12 ?>
13 </body>
14 </html>

Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os

seguintes critérios:

a) 50% para aqueles que ganham menos do que três salários mínimos;

b) 20% para aqueles que ganham entre três até dez salários mínimos;

c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;

d) 10% para os demais funcionários.

algoritmo "exc"
// Função : Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os
            // seguintes critérios:
               // a) 50% para aqueles que ganham menos do que três salários mínimos;
               // b) 20% para aqueles que ganham entre três até dez salários mínimos;
               // c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
               // d) 10% para os demais funcionários.
            // Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever o
               // nome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
salarioMinimo, novoSalario, reajuste, reajusteTotal, folha, novaFolha, calc, salario: real
nome, opc: caractere
x: inteiro
inicio
// Seção de Comandos
opc <- "x"
escreval("<><><><><> Sistema de reajuste salarial <><><><><>")
escreva("Digite o valor atual do salário mínimo: ")
leia(salarioMinimo)
para x de 1 ate 584 faca
    limpatela
    escreva("Digite o nome: ")
    leia(nome)
    escreva("Digite o salário: ")
    leia(salario)
    calc <- salarioMinimo * 3
    se salario < calc entao
        reajuste <- 0.50 // Reajuste de 50%
        reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
        folha <- folha + salario // Folha de pagamento antiga
        novoSalario <- salario + (reajuste * salario) // Salário reajustado
        novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

        limpatela
        escreval(">>> Nome: ",nome)
        escreval(">>> Reajuste = 50%: ",reajuste*salario)
        escreval(">>> Novo salário: ",novoSalario)
        escreval(">>> Tecle enter para continuar...")
        leia(opc)
    senao
        calc <- salarioMinimo * 10
        se salario <= calc entao
            reajuste <- 0.20 // Reajuste de 20%
            reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
            folha <- folha + salario // Folha de pagamento antiga
            novoSalario <- salario + (reajuste * salario) // Salário reajustado
            novaFolha <- novaFolha + novoSalario // Nova folha de pagamento
            limpatela
            escreval(">>> Nome: ",nome)
            escreval(">>> Reajuste = 20%: ",reajuste*salario)
            escreval(">>> Novo salário: ",novoSalario)
            escreval(">>> Tecle enter para continuar...")
            leia(opc)
        senao
            calc <- salarioMinimo * 20
            se salario <= calc entao
                reajuste <- 0.15 // Reajuste de 15%
                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
                folha <- folha + salario // Folha de pagamento antiga
                novoSalario <- salario + (reajuste * salario) // Salário reajustado
                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento
                limpatela
                escreval(">>> Nome: ",nome)
                escreval(">>> Reajuste = 15%: ",reajuste*salario)
                escreval(">>> Novo salário: ",novoSalario)
                escreval(">>> Tecle enter para continuar...")
                leia(opc)
            senao
                reajuste <- 0.10 // Reajuste de 10%
                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
                folha <- folha + salario // Folha de pagamento antiga
                novoSalario <- salario + (reajuste * salario) // Salário reajustado
                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento
                limpatela
                escreval(">>> Nome: ",nome)
                escreval(">>> Reajuste = 10%: ",reajuste*salario)
                escreval(">>> Novo salário: ",novoSalario)
                escreval(">>> Tecle enter para continuar...")
                leia(opc)
            fimse
        fimse
    fimse
fimpara
escreval("")
escreval("A empresa aumentou a folha de pagamento em:",novaFolha - folha," Reais")
fimalgoritmo

Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).

algoritmo "exBT"
// Função : Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x, num, intervalo: inteiro
inicio
// Seção de Comandos
para x de 1 ate 80 faca
     escreva("Digite um número: ")
     leia(num)
     se num >= 10 entao
        se num <= 150 entao
           intervalo <- intervalo + 1
        fimse
     fimse
fimpara
escreval("Ao total, foram digitados",intervalo,"números no intervalo entre 10 e 150")

fimalgoritmo

OBS:NESTE CASO TERÁ QUE SER DIGITADO OS 80 NÚMEROS,UM POR UM!

Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total

percorrida pelo automóvel e o total de combustível gasto.

algoritmo "ex3"
// Função : Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
distancia, combustivel: real
inicio
// Seção de Comandos
escreval("========== Cálculo de consumo médio de combustível =========")
escreva("Digite a distância pecorrida: ")
leia(distancia)
escreva("Digite o combustível gasto: ")
leia(combustivel)
escreval("O consumo médio de combustível do seu veículo é: ",distancia/combustivel)

fimalgoritmo

Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos
números lidos.

algoritmo "ex2"
// Função : Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
x, y: real
inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(x)
escreva("Digite o segundo número: ")
leia(y)
escreval("A soma é: ",x+y)
escreval("A subtração é: ",x-y)
escreval("A multiplicação é: ",x*y)
escreval("A divisão é: ",x/y)
fimalgoritmo

Faça um algoritmo que receba dois números e exiba o resultado da sua soma.

algoritmo "ex1"
// Função : Faça um algoritmo que receba dois números e exiba o resultado da sua soma.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
x, y: inteiro
inicio
// Seção de Comandos
escreval("Digite o primeiro número: ")
leia(x)
escreval("Digite o segundo número: ")
leia(y)
escreva("A soma dos números é: ",x+y)
fimalgoritmo

segunda-feira, 21 de maio de 2012

Alg BTI4

alg"bti4"
varvet:vetor[1..15] de inteiro
I,j,aux:inteiro
inicio
aleatorio onpara I:=1 ate 15 faca
leia(vet[i])
fimpara
aleatorio off//usando o metodo de ordenacao bubblesort
para I:=1 ate 15 faca   //1 2 3 4 5
para j:=1 ate (15-I)faca    //1 2
se vet[j]>vet[j+1] entao //
aux:=vet[j]                //aux= 3
vet[j]:=vet[j+1]
vet[j+1]:=aux
fimse
fimpara fimpara para i:=1 ate 15 faca
escreva(vet[i]) fimpara
fimalgoritmo