valterlin

Obrigado Pela ajuda Ta ai o Codigo funcionando perfeito Program Sal; Var Salario,Inss,ir,SalBruto,SalLiquido :real; Begin writeln ('___________Calculo de Imposto de Renda____________________'); writeln (''); write('Digite seu salario: '); Readln (salario); writeln (''); SalBruto:= (salario + inss + IR); Inss:= (salario * 0.8)/100; salLiquido:= (salario - inss); BEGIN If ( salario <= 1434.59 ) then writeln ('Não Paga IR'); writeln (''); if (salario >= 1434.59) and (salario <= 2150.00) then IR:= (salario * 7.5); if ( salario >= 2150.01) and ( salario <= 2866.70 ) then IR:= ( salario * 15.0)/100; if ( salario >= 2866.71) and ( salario <= 35822.00) then IR:= ( salario * 22.5)/100; if ( salario >= 35822.01 ) then IR:= (salario * 27.5/100); END; writeln (''); writeln('Salario:',salario:0:2); writeln ('Inss:',inss:0:2); writeln ('Ir: ',ir:0:2); writeln ('SalBruto: ',SalBruto:0:2); writeln ('Salliquido: ',SalLiquido:0:2); End.

Brigado pelo toque eu fiz tudo denovo valeu

h) Dado o salário de uma pessoa, cobrar 8% de INSS e verificar se ela paga IR calcular o valor a ser pago de acordo com os critérios abaixo, depois de todos os cálculos efetuados, exibir o salário bruto, INSS, IR e salário liquido: Base de cálculo mensal Alíquota % Até 1.434,59 0 De 1.434,60 até 2.150,00 7,5 De 2.150,01 até 2.866,70 15,0 De 2.866,71 até 3.582,00 22,5 Acima de 3.582,00 27,5 A minha duvida e se o calculo e feito antes o no meio do Codigo alguém Pode me ajudar analisem por favor: Program Salario ; Var Salario,Inss,ir,Ir01,Ir02,Ir03,Ir04,SalBruto,SalLiquido :real; Begin write ('Digite seu salario: '); Readln (salario); salLiquido:= (salario - inss); Inss:= (SALARIO * 0.8); SalBruto:= (salario + inss + ir ); Ir01:= (salario * 7.5); Ir02:= ( salario * 15.0); ir03:= ( salario * 22.5); ir04:= (salario * 27.5); If ( salario <= 1434.59 ) then write ('Não Paga IR') else if (salario >= 1434.59) and (salario <= 2150.00) then write (ir01) else if ( salario >= 2150.01) and ( salario <= 2866.70 ) then write (Ir02) else if ( salario >= 2866.71) and ( salario <= 35822.00) then write (Ir03) else if ( salario >= 35822.01 ) then write (Ir04); write('Salario:',salario,'Inss:',inss,'SalBruto: ',SalBruto,'Salliquido: ',SalLiquido); End.

Estou tentando desenrolar o Codigo mais o meu colega falow que estava errado por causa dessa sequencia de ELSE depois do IF agora fiquei na duvida ele tem razao ? Programa "Ordemcrescente" Var A, B, C: inteiro Begin Write ("Digite um número:") Read (A) Write ("Digite um numero:") Read (B) Write ("Digite um número:") Read © IF (A>B) e (B>C) then Write ("Essa é a ordem crescente: C, B, A”); Else IF (B>A) e (A>C) then Write ("Essa é a ordem crescente: C, A, B”); Else IF (C>A) e (A>B) then Write ("Essa é a ordem crescente: B, A, C”); Else IF (B>C) e (C>A) then Write ("Essa é a ordem crescente: A, C, B”); Else IF (A>C) e (C>B) then Write ("Essa é a ordem crescente: B, C, A”); Else IF (C>B) e (B>A) then Write ("Essa é a ordem crescente: A, B, C”); End. Espero que meajudem fuiiiiiiiiiiii

Um exemplo prático em pascal do que foi dito pelo Beraldo seria isto: program numprimos; uses crt; var x, i, cont: integer; begin clrscr; write('Informe um numero: '); readln(x); cont:=0; for i:= 1 to x do begin if x mod i = 0 then cont:=cont + 1; end; if cont<=2 then begin writeln('O numero ', x, ' e primo.'); end else begin writeln('O numero ', x, ' não e primo.'); end; readkey; end. abraço OBRIGADO RESOLVIDO MUITOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO OBRIGADO MESMO

O professor falow que tem algo errado mais não sou muito bom em pascal to engatinhando alguém pode me ajudar nesse exercicio eu fiz assim .. (A) Dentre três números dados pelo usuário, verificar e exibir o de maior valor. Programa_maior; Var maior, a, b, c: real inicio leia (a) leia (B) leia © Se (a>b) e (a>c) então Maior <- a Senão se (b>a) e (b>c) então Maior <- b Senão se (c>a) e (c>b) então Maior <- c Fim_se fim_se fim_se escreva (“O maior é”, maior) fim. Programa_maior; Var maior,a,b,c:real Begin write(‘Escreva três números inteiros e distintos:’); read (a,b,c); if (a>b)and(a>c) then write(‘O maior número é ’,a) ; Else if (b>c)and(b>a) then write(‘O maior número é ’,B) ; Else if (c>a)and(c>b) then write (‘O maior número é ’,c) ; end.

Bom como devem perceber sou novato em logica de programação e pra complicar cheguei boiando na Faculdade com as aulas já começadas. BOm vamos ao problema que tenho, seria esse exercicio me deem uma luz por favor. Dado um numero pelo usuario verificar se ele é um numero primo ou não ? Sei que todo numero primo e divisil por um e ele mesmo, mais ai que mora a duvida como fazer esse algoritmo ? o professor pediu em pseudocodigo e pascal alguém pode me ajudar por favor

A-) Dados os valores de base e altura de um retângulo, verificar se são valores válidos (positivos. Em caso afirmativo, calcular a área do retângulo, senão exibir uma mensagem de advertência. Galera já fiz varios racunhos disso e rasgando quase todos alguém poderia me dar uma Luz. Tenho que Fazer esse exercicio em PSEUDOCodigo e FLUXograma... Sou Novato mais aos poucos vou pegando a logica das coisas desde já agradeço

Estou fazendo um site e gostaria de tirar uma duvida a respeito de um formail que tem aqui nesse site e gostaria de usa-lo. Quero acrescentar nesse formMail o endereço de IP da pessoa que esta preenchendo alguém poderia me ajudar como faço isso ? Meu site esta Hospedado no TERRA e fiz assim vejam se esta correto ? <FORM ACTION="http://www.seusite.com.br/cgi-bin/formmail/formmail.cgi" method="POST"> <INPUT TYPE="text" NAME="endereco"> <INPUT TYPE="submit" NAME="submit" VALUE="Enviar"> <input type=hidden name="env_report" value="REMOTE_ADDR, HTTP_USER_AGENT"> </FORM> Esta certo a variavel por favor me ajudem sem mais valter.......

Estou montando um site e gostaria que quando as pessoas preencherem o cadastro do pedido estive-se tb o numero de IP da pessoa para manter um controle melhor. Tem como existe algum codigo aqui no site poderiam me ajudar por favor.

Estou fazendo um site de musicas polifonicas para celular, e gostaria de colocar um preview antes da pessoa baixar a musica esculta-la primeiro igual o sites de rigtones. alguém poderia me dizer como faço isso no dreamweaver tem alguma extenção que já faz isso ? Estou precisando dessa ajuda sem mais Valter.

Como faço para esconder ou ocultar "Adicionar e Remover programas" do Computador no Painel de controle ou restringir o acesso tem como é windows 95. espero a ajuda de voces é muito importante tem um engraçadinho removendo todos os programas.....

Fiz um formulario para incluir nome email e mensagem, mais quando vou verificar se tudo deu certinho nome e email sim mais a mensagem não esta sendo inserido por que este é o código: formulario: <html> <head> <title>Inserir Registro</title> </head> <body> <form method="POST" action="inserir.asp"> <font face="verdana" size="1" color="000000"> <table widht="150"> <tr> <td> <p><b>Nome:</b> </td> <td> <input type="text" name="nome" size="20"></p> </td> </tr> <tr> <td> <p><b>Email:</b> </td> <td> <input type="text" name="Email" size="20"></p> </td> </tr> <tr> <td> <p><b>Mensagem:</b> </td> <td> <input type="text" name="Mensagem" size="40"></p> </td> </tr> <td> <p align="right"><input type="submit" value="Enviar" name="B1"></p> </td> </table> </font> </form> </body> </html> este o código ASP: <% Dim nome Dim email Dim mensagem Dim strSQL Dim rsInsere nome = Request.Form("nome") email = Request.Form("email") curso = Request.Form("mensagem") response.write nome & "<br>" response.write email & "<br>" response.write mensagem & "<br>" response.end 'Criando um objeto de conexão ADO Set conexao = Server.CreateObject("ADODB.Connection") 'Abrindo a conexão ADO conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("visitantes.mdb") strSQL = "INSERT INTO visitas (nome, email, mensagem) VALUES ('"&nome&"','"&email&"','"&mensagem&"')" Set rsInsere = conexao.Execute(strSQL) Response.Redirect "busca.htm" %> O que fiz de errado podem me explicar ? E quando redireciono também para a busca ele não vai só mostra o nome e o email que foi inserido na tela e não redireciona ?

Tenho um banco de dados com CEP e outras informações como rua logradouro, etc. Vamos direto ao assunto. Tem como eu fazer um código que quando a pessoa digitar o numero do CEP que tem no meu banco de dados ele ache as informações referente aquele CEP por exemplo. o CEP 02935050 ? e puxa-se as informações referente a ele ? Eu uso Recordset ? Select ? Qual ? Obs: Eu tenho esse banco de dados só não sei o que fazer referente ao código!

Bruno!!! Seria XMLHttp ou ASPHttp ? Eu já vi isso em algum lugar, mas não estou me recordando agora, era envolvido, no artigo, também, algo sobre RemotingScripting, para q o visitante deixasse o focus do campo e disparasse uma rotina de consulta no banco de dados recuperando e preenchendo os dados do formulário, mas não manjo onde esta. Se você tiver algo aí, seria interessante POSTAR pra gente ver.. Abraços!! [urso] Bom um cara de um outro forum me passou esse código mais sinceramente viajei, tá ai quando coloco da esse erro: Erro de compilação do Microsoft VBScript error '800a03f9' 'Then' esperado /valterlin/cep1.asp, line 34 if.end ------^ 'aqui está parte do código.... cep=request.form("tx_validacep") s="" for x=1 to len(cep) ch=mid(cep,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next cep = s '^^^^^^^^^^^^^^ 'primeiro retiro toda a pontuacao do cep... 'ai o cep deve ter necessariamente o tamanho 8 if len(cep)=8 then session("endereco")="" session("bairro")="" session("cep")=cep session("cidade")="" session("uf")="" session("loc_nu")="" session("bairronum")="" 'depois abro o banco e faço um select normal.... 'você pode usar o inner join para puxar o bairro automaticamente... set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("cep.MDB") & ";" strsql = "select * from [logradouro] where cep='" & cep & "'" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 3, 2 bom acho que falta coisa mais qualquer coisa me ajuda também ? fuiiiiiiiiiiiiiiiiiiiiiii