Luiz Paulo Escobar

@Simon Viegas N consegui entender esse lance de mudar a cor de fundo do pascal, essa procedure, não aprendi parâmetros direito... adicionado 1 minuto depois @Simon Viegas Valeu você tirou o lag do meu programa, parecia q o programa esta com um dalay(200000); Só troquei o i por numTarefas e já era

@Simon Viegas Entendo, eu só queria colocar no VisualG3 pra ver como iria ficar, dizem que fica com visual diferente, de programa mesmo, não tudo preto.

Meu projeto Login: anonymousLPH senha: 9637zx { Objetivo --> Usar tudo o que aprendi } //// //// //// Program Diaria ; Var i, V: integer; Login, Senha, BV, Crono: String; //// Procedure Cronometro; var hi,mi,si,csi,hh,mm,ss,cs:word; Begin ClrScr; hi:=0; mi:=0; si:=0; csi:=0; cs:=0; gettime(hi,mi,si,csi); TextColor(2); Lowvideo; //cronometro gotoxy(80,12); Write ('Hora atual:'); Repeat gettime(hh,mm,ss,cs); gotoxy(80,14); Write (hh,':',mm,':',ss,':',cs); until keypressed; gotoxy(48,16); Lowvideo; Write('Demorou, ',hh-hi,' Horas/ ',mm-mi,' minutos/ ',ss-si,' segundos/ ',cs-csi,' centésimos, para executar a tarefa!'); readkey; readln; End; Procedure Armazem; Var Day : Array[1..100] of string; Valor, i : integer; Continuar : String; Begin GotoXY(50,22); TextBackGround(10); TextColor(14); Write ('LUIZ, QUANTAS TAREFAS DESEJA ARMAZENAR HOJE ? (1,2,3,4...) '); TextBackground(White); Textcolor(LightBlue); Write ('-->'); TextBackGround(Black); Write(' '); Readln(Valor); For i:= 1 to valor do Begin Clrscr; GotoXY(66,22); Write ('Digite a - ',i,' - tarefa: '); Readln(Day[i]); Clrscr; Repeat GotoXY(62,24); Write ('QUAL TAREFA DESEJA CONSULTAR ? (1,2,3,4...) '); Readln(i); GotoXY(68,26); TextBackGround(14); TextColor(LightRed); Writeln ('A TAREFA A FAZER É ->> ', Day[i],' <<- '); TextBackGround(Black); GotoXY(50,30); Write ('Deseja Iniciar a contagem de tempo para fazer essa tarefa ? (SIM/NAO) '); Readln(Crono); If (Upcase(Crono)) = 'SIM' then Begin Cronometro; end; //Armazenagem TextColor(14); GotoXY(68,28); Write ('Deseja continuar ? (SIM/NAO) -> '); Readln(Continuar); Clrscr; Until (Upcase(Continuar)) = 'NAO'; end; End; //// Begin //Login and senha GotoXY(74,3); BV:= 'BEM VINDO LUIZ !!! :D '; TextBackground(Black); For i:= 1 to Length(BV)do Begin TextColor(Blink + 12); Write (BV[i]); Delay(50); end; // termina o Welcome While V <> 1 do Begin Textbackground(black); GotoXY(3,6); TextBackGround(1); TextColor(blink+Red); lowvideo; Write ('|||||||||||||||||||||| Digite seu Login: '); TextColor(White); TextBackGround(Black); Write(' '); TextBackGround(4); Write (' >>> '); TextBackGround(Black); TextColor(2); Write(' '); TextColor(Red); Read (Login); TextBackGround(Black); If (Upcase(Login)) = 'ANONYMOUSLPH' then Begin GotoXY (70,6); TextBackGRound(BLUE); TextColor(LightGreen); Write (' V '); V:= 1; GotoXY(55,11); TextColor(Green); Writeln('Login Correto!!! '); end Else Begin GotoXY (70,6); TextBackGround(BLUE); TextColor(LightRed); Write (' X '); V:= 2; GotoXY(55,11); TextColor(RED); Writeln('Login incorreto!!!'); end; GotoXY(3,8); TextBackGround(1); TextColor(blink+Red); lowvideo; Write ('||||||||||||||||||||| Digite sua Senha: '); TextColor(White); TextBackGround(Black); Write(' '); TextBackGround(4); Write (' >>> '); TextBackGround(Black); TextColor(2); Write(' '); TextColor(Red); Readln(Senha); TextBackGround(Black); If (Upcase(Senha)) = '9637ZX' then Begin GotoXY (70,8); TextBackGRound(BLUE); TextColor(LightGreen); Write (' V '); V:= 1; GotoXY(55,10); TextColor(Green); Writeln('Senha correta!!!'); end Else Begin GotoXY (70,8); TextBackGround(BLUE); TextColor(LightRed); Write (' X '); V:=2; GotoXY(55,10); TextColor(RED); Writeln('Senha incorreta!!!'); end; If V <> 1 then Begin TextBackGround(Black); end; Writeln; TextColor(Red+Blink); GotoXY(20,12); TextBackGround(LightRed); Textcolor(White+Blink); Writeln('---Press Enter---'); TextBackGround(Black); Readkey; Clrscr; end; Case V of 1: Begin Armazem; end else Begin V:= 99; end; End; End.

Queria fazer um cadatro de login e senha, a partir dai poderia fazer tipo um bando de dados em txt.É possivel? Fiz um programa com login e senha, só q somente da pra cadastrar no código fonte e n dentro do programa. Vou depositar aqui a seguir parte do código que estou desenvolvendo, ele tem varias procedures, n estranhem falta de códigos pois só colocarei a parte de menu: Begin //Login and senha GotoXY(74,3); BV:= 'BEM VINDO LUIZ !!! :D '; TextBackground(Black); For i:= 1 to Length(BV)do Begin TextColor(Blink + 12); Write (BV[i]); Delay(100); end; // termina o Welcome While V <> 1 do Begin Textbackground(black); GotoXY(3,6); TextBackGround(1); TextColor(blink+Red); lowvideo; Write ('|||||||||||||||||||||| Digite seu Login: '); TextColor(White); TextBackGround(Black); Write(' '); TextBackGround(4); Write (' >>> '); TextBackGround(Black); TextColor(2); Write(' '); TextColor(Red); Read (Login); TextBackGround(Black); If (Upcase(Login)) = 'ANONYMOUSLPH' then Begin GotoXY (70,6); TextBackGRound(BLUE); TextColor(LightGreen); Write (' V '); V:= 1; end Else Begin GotoXY (70,6); TextBackGround(BLUE); TextColor(LightRed); Write (' X '); V:= 2; end; Readln; GotoXY(3,8); TextBackGround(1); TextColor(blink+Red); lowvideo; Write ('||||||||||||||||||||| Digite sua Senha: '); TextColor(White); TextBackGround(Black); Write(' '); TextBackGround(4); Write (' >>> '); TextBackGround(Black); TextColor(2); Write(' '); TextColor(Red); Readln(Senha); TextBackGround(Black); If (Upcase(Senha)) = '9637ZX' then Begin GotoXY (70,8); TextBackGRound(BLUE); TextColor(LightGreen); Write (' V '); V:= 1; end Else Begin GotoXY (70,8); TextBackGround(BLUE); TextColor(LightRed); Write (' X '); V:=2; end; If V <> 1 then Begin TextBackGround(Black); Clrscr; end; Writeln; TextColor(Red+Blink); GotoXY(20,12); TextBackGround(LightRed); Textcolor(White+Blink); Writeln('---Press Enter---'); Readkey; end; Case V of 1: Begin Armazem; end Else if V = 2 then Begin GotoXY(60,10); Writeln('Senha ou Login incorretos...'); readkey; end else Begin GotoXY(60,10); Writeln('Senha ou Login incorretos...'); end; End; End. E o que eu queria fazer é mais ou menos isso : Program armazenamento ; Var Nome, senha: string; Txt: text; Cont: integer; Begin Assign(txt, 'C:\\ANTIPROCRASTINATOR\OpaTiozao.txt'); Writeln('Digite seu login: '); Readln(Nome); Writeln('Digite sua senha: '); Readln(Senha); Append(txt); Writeln(txt); Writeln(txt); Writeln('Cadastrado com sucesso. '); Cont:=0; While cont <> 1 do Begin if (Nome = txt and senha = txt then Begin Cont :=1; Writeln('correto'); end; end; Close(txt); readln; End. Seria um procedimento também.

Fiz um programinha de Armazenamento de Tarefas para treinar meus conhecimentos de 1 mes de pascal e queria fazer o login e senha piscar. Segue o Código, ( "aceito notas e dicas" haha) : { Objetivo --> Usar tudo o que aprendi } Program Diaria ; Var i, V: integer; Login, Senha, BV: String; Procedure Armazem; Var Day : Array[1..100] of string; Valor, i : integer; Continuar : String; Begin GotoXY(50,22); TextBackGround(10); TextColor(14); Write ('LUIZ, QUANTAS TAREFAS DESEJA ARMAZENAR HOJE ? (1,2,3,4...) '); TextBackground(White); Textcolor(LightBlue); Write ('-->'); TextBackGround(Black); Write(' '); Readln(Valor); For i:= 1 to valor do //For Begin Clrscr; //Procedure GotoXY(64,22); Write ('Digite a - ',i,' - tarefa: '); Readln(Day[i]); //Array Clrscr; //Case End; //If Repeat //Repeat GotoXY(64,24); Write ('QUAL TAREFA DESEJA CONSULTAR ? (1,2,3,4...) '); Readln(i); GotoXY(64,26); TextBackGround(14); TextColor(LightRed); Writeln ('A tarefa a fazer é: ', Day[i]); TextBackGround(Black); TextColor(14); GotoXY(64,28); Write ('Deseja continuar ? (SIM/NAO) -> '); Readln(Continuar); Clrscr; Until (Upcase(Continuar)) = 'NAO'; end; ///// Begin GotoXY(74,3); BV:= 'BEM VINDO LUIZ !!! :D '; TextBackground(Black); For i:= 1 to Length(BV)do Begin TextColor(12); Write (BV[i]); Delay(150); end; GotoXY(3,6); TextBackGround(1); TextColor(blink+Black); Write ('||||||||||||||||||||| Digite seu Login: '); TextColor(White); TextBackGround(Black); Write(' '); TextBackGround(4); Write (' >>> '); TextBackGround(Black); TextColor(2); Write(' '); TextColor(Red); Read (Login); TextBackGround(Black); If (Upcase(Login)) = 'ANONYMOUSLPH' then Begin GotoXY (70,6); TextBackGRound(BLUE); TextColor(LightGreen); Write (' V '); V:= 1; end Else Begin GotoXY (70,6); TextBackGround(BLUE); TextColor(LightRed); Write (' X '); V:= 2; end; Readln; GotoXY(3,8); TextBackGround(1); TextColor(Black+Blink); Write ('||||||||||||||||||||| Digite sua Senha: '); TextColor(White); TextBackGround(Black); Write(' '); TextBackGround(4); Write (' >>> '); TextBackGround(Black); TextColor(2); Write(' '); TextColor(Red); Readln(Senha); TextBackGround(Black); If (Upcase(Senha)) = '9637ZX' then Begin GotoXY (70,8); TextBackGRound(BLUE); TextColor(LightGreen); Write (' V '); V:= 1; end Else Begin GotoXY (70,8); TextBackGround(BLUE); TextColor(LightRed); Write (' X '); V:=2; end; Writeln; TextColor(Red+Blink); GotoXY(20,12); TextBackGround(LightRed); Textcolor(White+Blink); Writeln('---Press Enter---'); Readkey; Case V of 1: Begin Armazem; end Else Begin GotoXY(60,10); Writeln('Senha ou Login incorretos...'); end; End; End.

@KXSY Por que não usar Goto? Vá para.

Program Pzim ; Var Numero: Real; Procedimento: Char; //// Procedure Raiz; Var Resultado: Real; Begin Resultado:= Sqrt(Numero); Writeln('A raiz quadrada de ', Numero:2:1,' é = ', Resultado:2:2); end; Procedure Potencia; Var Resultado: Real; Begin Resultado:= Exp(Numero*ln(Numero)); Writeln('A Potencia de ',Numero:2:1,' por ele mesmo é: ', Resultado:2:2); end; //// Begin Writeln(' P PARA POTENCIA E R PARA RAIZ'); Writeln; Writeln('Digite qual procedimento deseja usar: '); Readln(Procedimento); Writeln('Digite o numero: '); Readln(Numero); Case (Upcase(Procedimento)) of 'P': Potencia; 'R': Raiz; End; Readln; end. Quero saber o que uma procedure faz generalizada, e como ela é mais usada

@Lukas96 Faça um código ai e mande, mesmo dando erro, a gente pode te ajduar a solucionar

Maninho, uma dica, leia código dos outros parceiros de faculdade e n tenho medo de pedir pra alguém fazer um código pra você copiar, pois isso ajudará você no aprendizado, porque todos nos temos um código diferente. mesmo sendo o mesmo desenvolvimento. @Vinícius Proença Olhei e Re olhei seu código, modifiquei algumas coisas e identifiquei os erros(e os desesperos): IF's sem fechar o end;, Alguns IF's que deveriam ficar dentro de outro IF's estavam fora, Variaveis todas em real, coloque as que devem ser inteira em integer, Faça o seguinte, n use abreviações nas variaveis isso faz você se perder no labirinto do código... Pense, leia e releia antes de fazer o código, era simples, n precisava de dois repeat Passei uns 30 minutos ou mais no seu código-labirinto, mudei pouca coisa, coloca um do lado do outro e compara, estudar, tenta modificar, assim q se aprende, e na facul faça perguntas, n fique perdendo tempo. Segue o código: Program Pzim ; //2. Um total de 500 alunos de uma universidade foram entrevistados. De cada um deles foram colhidas as //seguintes informações: o código do curso que freqüenta (1-engenharia; 2-computação; 3-administração) e //a idade. Faça um programa que processe estes dados e que forneça as seguintes informações: //a) número de alunos por curso; //a) número de alunos com idade entre 20 e 25 anos, por curso; e //a) qual o curso com menor média de idade. Var ContEnginner1, ContComput2, ContAdm3, idade1, idade2, idade3, NumeroAlunos, idade, Curso, ContEnginner, ContComput, contAdm : integer; Media2, Media1, Media3, MediaMenor: real; M: string; Begin Writeln('Digite o total de alunos: '); Readln(NumeroAlunos); Repeat Write('Tecle 1 para engenharia, 2 para computação, 3 para administração e 0 para parar: '); Readln(Curso); Write('Digite a idade do aluno: ' ); readln(idade); if Curso = 1 then begin inc(ContEnginner1); if (idade > 20) and (idade < 25)then begin inc(ContEnginner); {A mesma coisa que contenginner:=contenginner+1; } idade1:=contEnginner; Media1:=Media1+idade; end; end; if Curso =2 then begin inc(ContComput2); if (idade > 20) and (idade < 25) then begin inc(ContComput); idade2:=ContComput; Media2:= Media2 +idade; end; End; if Curso = 3 then begin inc(ContAdm3); if (idade >20) and (idade <25 )then begin inc(ContAdm); idade3 :=ContAdm; Media3:=Media3+ idade; end; end ; Until Curso = 0; Media1:= Media1/Idade1; Media2:= Media2/Idade2; Media3:= Media3/Idade3; If (Media1 < Media2) and (Media1 < Media3) then Begin MediaMenor:= Media1; M:= 'Engenharia' ; end; If (Media2 < Media1) and (Media2 < Media3) then Begin MediaMenor:= Media2; M:= 'Computação'; end; If (Media3 < Media2) and (Media3 < Media1) then Begin MediaMenor:= Media3; M:= 'Administração'; end; Writeln('O número de estudantes que cursam engenharia é: ', ContEnginner1 , ' e número de estudantes com idades entre 20 e 25 anos é de: ', ContEnginner ); Writeln('O número de estudantes que cursam computação é: ', ContComput2 , ' e número de estudantes com idades entre 20 e 25 anos é de: ' , ContComput ); Writeln('O número de estudantes que cursam administração é: ', ContAdm3 , ' e número de estudantes com idades entre 20 e 25 anos é de: ', ContAdm ); Writeln('A menor média de -> ', M ,' das idades entre 20 e 25 é: ', MediaMenor:2:2); Readkey; End. Me mande perguntas, sobre o código, No aguardo... lembre-se dediquei 1 horas + ou - para te ajudar, cola aqui de novo hahaha valeu adicionado 0 minutos depois obs: deixei bem separado p/ você identificar bem

@devair1010 Entendi, você trabalha com programação ou é hobby?

Galera, o enunciado esta confuso, Vi os códigos, estão quase lá. O enunciado pede tudo isso porém ele pede para que quando o cara vote a primeira vez e dps digite para n terminar a votação reset e ele vote novamente, como se tivesse votado errado

@devair1010 Valeu mano adicionado 0 minutos depois Esse enunciado da questão é difícil de interpretar sla... adicionado 12 minutos depois Será q com esses conhecimentos já posso ir pro Java?

Alguém tem algum jeito ou formula, manha para resolver problemas sem quebrar a cabeça no teclado e se perder no código?

Sofri demais para resolver, consegui resolver mas estou com uma pulga atrás da orelha e sem vontade de voltar a quebrar a cabeça, vou mandar o exercicio e o código q fiz. Segue o código: Program b ; Var Voto: integer; Continuar: string; cont, c1, c2, c3, c4:integer; Begin Writeln('ESCOLHA SEU CANDIDATO A VOTAÇÃO '); Writeln('1 - CARLAO' ); Writeln('2 - BORRACHA' ); Writeln('3 - BOLSONARO'); Writeln('4 - BOULOS' ); readln(Voto); Writeln('Deseja finalizar a votação?'); Readln(Continuar); while (upcase(Continuar)) = 'NAO' do Begin Writeln('ESCOLHA SEU CANDIDATO A VOTAÇÃO '); Writeln('1 - CARLAO' ); Writeln('2 - BORRACHA' ); Writeln('3 - BOLSONARO'); Writeln('4 - BOULOS' ); Readln(voto); If voto = 1 then begin inc(Cont); inc(c1, cont); end else if voto = 2 then begin inc(Cont); inc(c2, cont); end else if voto = 3 then begin inc(Cont); inc(c3, cont); end else if voto = 4 then begin inc(Cont); inc(c4, cont); end; Repeat Writeln(' CARLAO = ', c1 ); Writeln(' BORRACHA = ', c2 ); Writeln(' BOLSONARO = ', c3 ); Writeln(' BOULOS = ', c4 ); Writeln('Deseja continuar a votação?'); Readln(Continuar); Until (upcase(continuar)) = 'NAO'; Continuar:= 'Sim'; end; End. file:///C:/Users/ACER/Downloads/WhatsApp%20Image%202019-08-29%20at%2010.12.23%20PM.jpeg

Quanto tempo demorarei para aprender java no nível do mercado de trabalho? obs: já conclui logica de programação... Baixei o livro Use a cabeça Java 2 edição

@Simon Viegas Entendi :D, uma pergunta, aliás várias hahah. Você trabalha como programador? fez faculdade? tem como trabalhar sem faculdade? você programa em quais linguagem, estou entrando nesse mundo agora, sem rumo, estou sendo autodidata, nem conclui o ensino médio, estou no 3 ano.

@Simon Viegas Seria , verificar a idade que esta no "" ou "[Posição]"

@Simon Viegas Faça um algoritmo utilizando vetores, onde se receba e armazene a idade de 10 pessoas e ao final mostre a soma de todas as idades digitadas e onde o usuário possa verificar os dados digitados apenas uma vez.

@Simon Viegas Era isso mesmo que o enunciado queria, minha dificuldade é na parte onde se consulta uma idade... Só colocando qualquer variável entre [] que a pesquisa é feita sem erros? No exemplo ali você pôs isso writeln; writeln('A soma das idades é: ', somaIdades); writeln; write ('Digite a POSICAO da idade que deseja verificar: '); readln(posicao); write ('A idade é', idades[posicao]); readln; end. // Eu também queria entender sobre esses dois "writeln;"

Eu estava resolvendo uns exercícios de array e não consegui entender como essa verificação acontece e porque o ( idade:array [1..10] ) da para ser verificado no ( i: integer; ) com colchete. Segue o código: Program vetor ; Var idade:array [1..10] of integer; idades, i: integer; Begin for i:= 1 to 10 do begin Writeln('Digite a idade ', i); Readln(idade[i]); inc(idades, idade[i]); end; Writeln('A soma das idades é: ', idades); writeln; Write ('Digite a idade que deseja verificar: '); Readln(i); Write ('A idade é', idade[i]); readln; End.

@Simon Viegas eu estava quase dormindo, esqueci de uma parte da questão kkkk adicionado 0 minutos depois @devair1010 ai minha cabeça, erro meu hahahah

@Simon Viegas Vou seguir a dica

Desafio: conseguir fazer o mais simples e curto possível. Segue a questão: Faça um algoritmo que receba os valores dos lados de um triângulo e calcule se o Triângulo é Escaleno (Todos os lados diferentes), Isóscele(Dois lados iguais e um diferente), ou se é Equilátero(todos os lados iguais). by me: Program Pzim ; var lado_1, lado_2, lado_3:real; Begin Write ('Digite o primero lado do triangulo: '); Readln(lado_1); Write ('Digite o segundo lado do triangulo: '); Readln(lado_2); Write ('Digite o terceiro lado do triangulo: '); Readln(lado_3); if (lado_1 = lado_2) and (lado_2 = lado_3)and (lado_1 = lado_3) then begin Writeln('É um triângulo Isósceles'); end else Begin Writeln('É um triângulo Escaleno'); end; Readln; End.

@Simon Viegas

@Simon Viegas Entendi, muito obrigado por ser exigente, isso faz meus passos pra frente serem mais largos haha, me disseram que em java isso faz diferença, onde posso encontrar essa versão do Pzm?