gnr_ssa

Obrigado meulho. Porem eu fiz esse teste mas ele retorna todos os cadastros, não apenas os registrados depois de 10/11/2009. sabe o que pode ser ?:

Bom dia, Pessoal. Tipo não entendeo muito de banco de dados. preciso da ajuda de vocês. Tipo tenho uma tabela "usuarios" onde tem o campos user_login user_nicename user_email user_registered etc.. Gostaria de fazer uma consulta onde retorno apenas os e-mail registrados depois de determinada data. Tipo. Queria fazer a consulta mostrar apenas e-mails de usuarios registrados depois de 10/11/2009 alguém pode me ajudar ?

Pilha tem essas opções certo ?? 1 – EMPILHAR 2 – DESEMPILHAR 3 – EXIBIR ELEMENTO DO TOPO 4 – EXIBIR A PILHA 5 – ESVAZIAR A PILHA ------------------------------ Como faz pra esvaziar todos elementos da pilha ? Outra coisa se eu tiver 6 elemntos na pilha, como faz pra mostrar todos os elementos da pilha ? so falto issso pra acabar aqui o programa em pascal alguém me ajuda plz.

galera dando uma lida em material na net, conseguir fazer uma UNIT usando o metodo LIFo, agora não tenho a minima ideia de como fazer um programa puxar isso alguém me ajuda plz, esse e meu trabalho da AV 1 se não fizer tou perdido praticamente a unit ta assim unit pilhas; interface const MAX = 50; type elem = integer; pilha = record topo: integer; memo: array[1..MAX] of elem; end; procedure init(var p:pilha); function isempty(var p:pilha): boolean; function isfull(var p:pilha) : boolean; procedure push(var p:pilha; x: elem); function pop(var p:pilha) :elem; function top(var p:pilha) :elem; implementation procedure init(var p:pilha); begin p.topo :=0; end; function isempty(var p:pilha): boolean; begin if p.topo=0 then isempty := true else isempty := false; end; function isfull(var p:pilha) : boolean; begin if p.topo = max then isfull := true else isfull := false; end; procedure push(var p:pilha; x: elem); begin if not isfull(p) then begin p.topo:=p.topo+1; p.memo[p.topo]:=x end else writeln ('PILHA CHEIA'); end; function pop(var p:pilha) :elem; begin if not isEmpty(p) then begin pop:= p.memo[p.topo]; p.topo := p.topo-1; end else writeln ('Stack underflow'); end; function top(var p:pilha) :elem; begin if not isEmpty(p) then top:= p.memo[p.topo] else writeln('FILA VAZIA'); readln; end; end.

1) Construir uma UNIT e um PROGRAMA em Pascal para controlar o estoque de carros de uma loja de veículos, utilizando a técnica LIFO. O estoque deve ser controlado pelo modelo, ex: Palio, Celta, Gol etc. As rotinas deverão ficar na UNIT e no programa deve constar apenas o menú de opções e as chamadas das rotinas. O programa deve fornecer recursos para: a) Cadastro de veículos no estoque B,) Venda de veículos (remoção do estoque) c) Exibir a quantidade de veículos no estoque d) Exibir a quantidade de veículos vendidos e) Exibir o último veículo cadastrado f) Exibir todos os veículos do estoque

tipo eu fiz aqui, mas está faltando algumas coisas que foi solicitado acima 1º - Tipo ele pede pra mostrar a quantidade de poltronas vazias em cada onibus se houver, não conseguir fazer isso. 2º - As vendas de passagen deverão ser encerradas no momento em que lotar o primeiro onibus, eu ate fiz a logica ali mas não está funcionado. 3º - Repetir o programa para venda de passagens novamente ate quando o usuario desejar, não conseguir. program trabalhoAV2; uses crt; var nome,senha,sair,leito,convencional: string; onibus,quantleito,quantconv,passagens,quantpassa,valor,valorpassa,x :real; begin clrscr; leito:='30'; convencional:='40'; senha:='123'; sair :='s'; writeln ('Digite seu nome'); readln(nome); repeat writeln ('Digite a senha'); readln (senha); if senha <> '123' then writeln ('Senha invalida'); until senha = '123'; repeat writeln ('Informe o tipo do onibus, 1 para leito ou 2 para convencional'); readln (onibus); if onibus = 1 then quantleito := quantleito +1 else quantconv := quantconv +1; writeln ('Digite a quantidade de passagens'); readln (passagens); writeln ('digite o valor da passagen R$120 para leito e R$80 para convencional'); readln (valor); x:=passagens*valor; if quantleito >= 30 then writeln ('Passagens encerradas'); valorpassa := valorpassa*quantpassa; writeln ('O total de passagen vendidas Foi: ',passagens:3:2, ' valor total R$',x:3:2); writeln ('Deseja sair do programa S ou N ?'); until sair = 's'; readln; end.

questão Fazer um programa que simule a venda de passagens para dois onibus ( um leito e outro convencional ). Ao final das vendas o programa deverá apresentar o número de passagens vendidas e a quantidade de poltronas vazias em cada ônibus se houver. OBS: 1 - O programa deverá solicitar o nom e a senha ao usuario. 2 - Enquanto a senha não for verdadeira. exibir senha invalida. 3 - Solicitar do usuario a quantidade de poltronas dos onibus. 4 - Considerar um onibus menor do que o otro 5- O usuario deve optar pelo onibus leito ou convencional 6 Considrar preço da passagem R$ 120,00 o onibus leito, R$ 80,00 o onibus convencional. 7- As vendas de passagens deverão ser encerradas no momento em que lotar o primeiro onibus 8 - O programa deverá repetir-se para a venda de passagem novamente até quando o usuario desejar. Programa tem que rodar em PASCAL e aí qeum pode ajudinha de como fazer isso ?

questão Fazer um programa que simule a venda de passagens para dois onibus ( um leito e outro convencional ). Ao final das vendas o programa deverá apresentar o número de passagens vendidas e a quantidade de poltronas vazias em cada ônibus se houver. OBS: 1 - O programa deverá solicitar o nom e a senha ao usuario. 2 - Enquanto a senha não for verdadeira. exibir senha invalida. 3 - Solicitar do usuario a quantidade de poltronas dos onibus. 4 - Considerar um onibus menor do que o otro 5- O usuario deve optar pelo onibus leito ou convencional 6 Considrar preço da passagem R$ 120,00 o onibus leito, R$ 80,00 o onibus convencional. 7- As vendas de passagens deverão ser encerradas no momento em que lotar o primeiro onibus 8 - O programa deverá repetir-se para a venda de passagem novamente até quando o usuario desejar. Programa tem que rodar em PASCAL e aí qeum pode ajudinha de como fazer isso ?

foi a primeira coisa que fiz, procurei a tarde inteira, mas não achei nem sofware

Galera tenho que apresentar um trabalho da facul sobre Sistema de Suporte Executivo - SSE so que o professor quer um sofware como exemplo tenho que mostar ele em sala de aula telas, relatorios etc.... alguém conhece alguma empresa que use um Sistema de Suporte Executivo ???? alguém pode me ajudar, com dica de algum sofware ou me enviar uns print screen de telas do sistema ??

Galera tenho que apresentar um trabalho da facul sobre Sistema de Suporte Executivo - SSE so que o professor quer um sofware como exemplo tenho que mostar ele em sala de aula telas, relatorios etc.... alguém conhece alguma empresa que use um Sistema de Suporte Executivo ???? alguém pode me ajudar, com dica de algum sofware ou me enviar uns print screen de telas do sistema ??

Mesmo assim quando digita SIM, o programa conta como um nome recebido pede a idade e sexo, e depois que finaliza como que faz pra quando digitar sim já mostrar direto o resultado ?

valeu man mas não entendi ainda, como deve ser feita essa verificação logo apost readln(nome) para o program mostrar o resultado.

fazer um programa para ler o nome o sexo e a idade de pessoas OBS: 1- o programa so devera ser finalizado quando o usurio digitar sim no teclado 2- antes de ser finalizado o programa devera mostrar: - quantas pessoas foram digitadas - a quantidade e percentual de pessoas do sexo masculino - a quantidade o percentual de pessoa do sexo feminino - a quantidade e o percentual de pessoas menores de 18 anos ---------------------------------------------------------------------------------------------------- alguém ajuda aí no que está errado, acho que calculo do percentual está errado ou e assim mesmo ??? outra coisa quando digio SIM ele não sai de primeira, pede pra digitar as dados novamentes de idade e sexo para depois mstrar resultado. seila alguém pode dizer onde tou errando aí ?? obrigado. program IBGE; uses crt; var idade,totalpessoas,totalmasculino,totalfeminino,menoridade: integer; percsexom,percsexof,percmidade: real; nome,sexo: string; begin clrscr; nome := 'gato'; totalpessoas:=1; totalmasculino:=1; totalfeminino:=1; menoridade:=1; percsexoM:=0; percsexof:=0; percmidade:=0; while nome <> 'sim' do begin clrscr; writeln ('Digite SIM para sair do programa e mostrar resultado'); writeln ('Digite o nome das pessoas'); readln (nome); totalpessoas := totalpessoas+1; writeln ('Digite o sexo M para masculino e F para Feminino'); readln (sexo); if (sexo = 'M') then totalmasculino := totalmasculino+1 else totalfeminino := totalfeminino+1; writeln ('digite sua idade'); readln (idade); if idade < 18 then begin menoridade := menoridade+1; end; percsexoM := (totalmasculino / totalpessoas) * 100; percsexoF := (totalfeminino / totalpessoas) * 100; percmidade := (menoridade / totalpessoas) * 100; end; writeln ('A quantidade de pessoas ‚: ',totalpessoas); writeln ('A quantidade de pessoas do sexo masculino ‚ ',totalmasculino); writeln ('A quantidade de pessoas do sexo femino ‚ ',totalfeminino); writeln ('A quantidade de pessoas menor de 18 anos ‚ ',menoridade); writeln ('Percentual de pessoas do sexo masculino ‚ ',percsexoM); writeln ('Percentual de pessoas do sexo femino ‚ ',percsexoF); writeln ('Percentual de pessoas menores de 18 anos ‚ ',percmidade); readln; end.

ehehe posta aí xo ve se e masi simplificado, porque meu e puro armengue srsrsrsrsrs

do jeito que voce fez, com if e em seguida else só irá executar as letras "f", "a" e "b". ficando de fora as letras "c" e "d". porque não vai entrar? porque se A maior que B ou B menor que A significa que são diferentes, então já entrou na letra b. aí valeu mano, já está rodando eu não tava era usando os comandos nos lugares certos e nem finalizando o FOR etc.... valeu

valeu pela ajuda todos vocês, muito obrigado mesmo conseguir fazer, eu não tava era sabendo como e onde utilizar os comandos no pascal.. mas a logica e essa que você falou mesmo, muito obrigado.

valeu aí rafa, mas mesmo não funciona ele roda aí não motar valor não finaliza se eu digitar os dois valores 0, nada funciona está fodaaaaaa está assim var a,b,result,i: integer; begin clrscr; writeln ('Digite o valor de A'); readln (a); writeln ('digite o valor de B'); readln (B); i := 1; for i :=1 to 3 do readln (i); if (a <= 0) or (b <= 0) then writeln ('Valores Invalidos') else if a = b then result := a*b; writeln ('A area do quadrado e: ',result) else if a <> b then result := a*b; writeln ('a area do triangulo ‚: ',result) else if a > b then result := a mod b; writeln ('O resto de ',a,'dividido por',b,'e:',result) else if b > a then result := b div a; writeln (a,'dividido por',b,'e',result); readln; end.

Fiz assim mas está errado.... não entendi como faz pra mostrar essa area que ele pede a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B var a,b,result, i : integer; I: integer; begin clrscr; i := 1; for i := 1 to 3 do writeln (' Digite o valor de A'); readln (a ); writeln ('Digite o valor de B'); readln (b ); if a = b then result := a*b else if a <> b then result := a * b else if a > b then result := a mod b else if b > a then result := b div a else if (a = 0) or (b=0) then writeln ('Valores Invalidos'); readln; end.

EDIT valeu aí galera pela ajuda MUITO OBRIGADO conseguir resolver já valeu mesmo.

alguém pode me ajudar fazer esse algoritimo aí usando no maximo ate comando FOR, agradeco ajuda de todos... aí galera da essa força aí, isso e um trabalho tenho que entregar hoje, não tou conseguindo entender. valeu 1) Faça um algoritmo, para ler dois valores inteiros A e B a partir do teclado e: a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B c. ) Se A for maior do que B, mostrar o resto da divisão de A por B d. ) Se B for maior do que A, mostrar o resultado da divisão de B por A e. ) Se A ou B for igual ou menor do que zero, exibir mensagem “valores inválidos” f. ) AS operações anteriores devem se repetir por 3 vezes Área do retângulo: base X altura. Área do quadrado: lado X lado.

alguém pode me ajudar fazer esse algoritimo aí usando no maximo ate comando FOR, agradeco ajuda de todos... aí galera da essa força aí, isso e um trabalho tenho que entregar hoje, não tou conseguindo entender. valeu 1) Faça um algoritmo, para ler dois valores inteiros A e B a partir do teclado e: a. ) Se os valores forem iguais, mostrar a área do quadrado formado por A e B b. ) Se A for diferente de B, mostrar área do retângulo formado por A e B c. ) Se A for maior do que B, mostrar o resto da divisão de A por B d. ) Se B for maior do que A, mostrar o resultado da divisão de B por A e. ) Se A ou B for igual ou menor do que zero, exibir mensagem “valores inválidos” f. ) AS operações anteriores devem se repetir por 3 vezes Área do retângulo: base X altura. Área do quadrado: lado X lado.