Jump to content
Fórum Script Brasil

gnr_ssa

Membros
  • Posts

    22
  • Joined

  • Last visited

About gnr_ssa

gnr_ssa's Achievements

0

Reputation

  1. 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 ?:
  2. 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 ?
  3. 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.
  4. 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.
  5. 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
  6. 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.
  7. 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 ?
  8. 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 ?
  9. foi a primeira coisa que fiz, procurei a tarde inteira, mas não achei nem sofware
  10. 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 ??
  11. 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 ??
  12. 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 ?
  13. valeu man mas não entendi ainda, como deve ser feita essa verificação logo apost readln(nome) para o program mostrar o resultado.
  14. 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.
  15. ehehe posta aí xo ve se e masi simplificado, porque meu e puro armengue srsrsrsrsrs
×
×
  • Create New...