Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'pascalzim'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 3 results

  1. Program Cont ; var N, cont : integer; Begin cont := 1; writeln('Informe o valor de N'); readln(N); while(N > 10000) do begin writeln('Valores Invalidos'); readln(N); end;
  2. Olá gostaria de saber sobre estas analises que fiz na IDE Pascalzim e no Programa de Animação 2D Pencil2D a analise foi feita no Site Vírus Total Vejam na Analise do Arquivo Zipado é informado que há um Trojan chamado Win32.Trojan.WisdomEyes.16070401... sei lá o que sei que o "Anti Virus" é tanto quanto duvidoso mais mesmo assim fico na duvida a final quem se preocuparia de criar um trojan que passa-se pela detecção do Baidu Agora sobre o programa de animação 2D Pencil ao analisar o Arquivo zipado também há uma detecção não especificada mais vejam a imagem Esses são os programas que tenho duvida tem consta algo no Programa Paint Tool Sai mais esse é pago então deixei em OFF bom quem poder me ajudar a saber se é seguro ou não fico Grato espero que o post esteja no lugar correto se estiver errado peço desculpas
  3. Ola,sou novo no fórum e também na área de programação e estou com uma dúvida e precisando de ajuda em um código que acredito eu ser simples, estou tentando executar um jogo da forca utilizando arquivo binário e parece que a variável palavraCerta não está recebendo nenhuma das palavras cadastradas, alguém poderia dar uma olhada no código e me apontar o erro(s) do código? segue o código abaixo: Program pzim ; type biblioteca = record palavra : string; dica : string; end; type declareg = file of biblioteca; {------------------------------------------------------------------------------------------------} procedure criarArquivo (var arquivoPalavras : declareg); begin {$I-} reset(arquivoPalavras); if IOResult <> 0 then rewrite(arquivoPalavras); {$I+} end; {-----------------------------------------------------------------------------------------------} procedure inserirPalavras (var arquivoPalavras : declareg); var PeD : biblioteca; cont : integer; begin for cont:= 1 to 2 do begin clrscr; write('Digite uma palavra: '); read(PeD.palavra); seek (arquivoPalavras, filesize(arquivoPalavras)); write(arquivoPalavras,PeD); write('Digite uma dica: '); read(PeD.dica); seek (arquivoPalavras, filesize(arquivoPalavras)); write(arquivoPalavras,PeD); end; end; {-----------------------------------------------------------------------------------------------} procedure adivinhar(var arquivoPalavras : declareg); var vetorpalav: array [1..2] of string; palavraCerta, palavraParcial:string; tentativa :Char; qtdTentativas, X, opc :Integer; acertouPalavra: Boolean; begin qtdTentativas := 8; repeat writeln; writeln (' Jogo da Forca'); writeln; write (' Digite de 1 a 2 para escolher uma palavra: '); readln (opc); until (opc >= 1) and (opc <= 2); palavraCerta := vetorpalav[opc]; for X := 0 to Length(palavraCerta) do begin if (palavraCerta[X] = ' ') then palavraParcial[X] := ' ' else if (palavraCerta[X] = '-') then palavraParcial[X] := '-' else palavraParcial[X] := '*'; end; repeat ClrScr; writeln; writeln (' ',palavraParcial); writeln; acertouPalavra := true; for X := 1 to Length (palavraCerta) do if palavraParcial[X] = '*' then acertouPalavra := false; if acertouPalavra = true then begin writeln (' Parabens, voce acertou a palavra.'); readln; break; end else if qtdTentativas > 0 then begin writeln (' Voce tem ', qtdTentativas, ' tentativas restantes.'); write (' Digite uma letra (letra minuscula): '); tentativa := readkey; if Pos(tentativa, palavraParcial) = 0 then for X := 1 to Length(palavraCerta) do begin if (palavraCerta[X] = tentativa) then begin palavraParcial[X] := tentativa; end else if Pos(tentativa, palavraCerta) = 0 then begin qtdTentativas := qtdTentativas - 1; break; end; end else qtdTentativas := qtdTentativas - 1; end else begin writeln (' Voce perdeu, tente novamente.'); readln; break; end; until tentativa = Chr(27); end; {----------------------------------------------------------------------} procedure Menu; var opcao : integer; arquivoPalavras : declareg; begin assign(arquivoPalavras,'C:\Forca.bin'); criarArquivo(arquivoPalavras); repeat clrscr; writeln(' Forca '); writeln('1 - Inserir Palavras'); writeln('2 - Jogar'); writeln('3 - Sair'); writeln('Opcao: '); readln(opcao); case opcao of 1: inserirPalavras(arquivoPalavras); 2: adivinhar(arquivoPalavras); end; until opcao = 3; close(arquivoPalavras); end; Begin Menu; End. Obrigado!
×
×
  • Create New...