devair1010

@Luana28Oliveira esse algoritmo não é difícil não, mas não podemos fazer ele para você por que é contra as regras do fórum, então faça do jeito que você souber mesmo que seja um rascunho e post aqui . assim poderemos te ajudar a faze-lo .

@oaugusto faça o algoritmo por partes, veja se consegue fazer a entrada de dados dos alunos. Será mais fácil se usar um vetor para guardar os dados e depois post aqui para que possamos ajudar.

@Morgtuns seu código está quase certo, ali no par de loop i e c um dentro do outro, é quase isso mesmo mas será melhor se você colocar o loop i para ir de 1 ate vagas-1, e o segundo loop para c ir de i+1 ate vagas, e pegue o valor dos vetores pontos e nome e mat na posição i, antes de entrar no loop c aí depois dentro do loop c veja se pontos na posição i é maior que pontos na posição c, se for então trocar eles de lugar, coloca em pontos i o que está em pontos c, e faça o mesmo com os vetores mat e nome. aí escrever na tela o nome do candidato, sua matricula, e a classificação

@LucasBeltrame desculpe, eu não sabia que sua placa é nova, como você não tinha dito nada, pensei que fosse antiga, porque a minha placa apresentou esses sintomas e logo pifou de vez . espero que não seja esse o caso..

@LucasBeltrame pelo jeito sua placa de vídeo está pifando, veja se consegue outra placa coloque ela e testa para ver se ela funciona normal se funcionar é então sua placa pifou mesmo, aí o jeito é comprar uma placa.

@Alexandre Gonçalves Modest para postar o código é bom usar esse botão <> que está na barra de ferramentas dessa janela . Quanto aos erros, estão comentados aqui no seu código : algoritimo "sem nome" //aqui depois do T não tem a letra i var ordem:inteiro nome:vetor [1..5] de caracter inicio para a ordem 1 ate 5 faca // aqui não pode essa letra "A" antes de ordem // e precisa das letras "DE" depois de ordem escreva("Digite o ", ordem, "º Nome:") leia(nome[ordem]) fimpara para ordem 5 ate 1 passo -1 faca // aqui precisa das letras "DE" depois de ordem escreva("O ", ordem, "ºnome digitado foi:",nome[ordem])//coloque escrevaL //no lugar de escreva fimpara fimalgoritmo

@ANDERSON5430 veja nesse tópico desse site como testar sua fonte https://www.tecmundo.com.br/conectores/2591-manutencao-de-pcs-como-testar-se-uma-fonte-esta-queimada-video-.htm mas isso é para quem tem experiencia em consertar aparelhos eletrônicos, se você não tem experiência, o melhor e pedir para um técnico testar.

@ANDERSON5430 Mas se foi o técnico que montou o pc, então ele deveria entregar o pc funcionando e já com o windows instalado, mas pelo que tenho visto essa fonte é de boa qualidade . você pode pedir para esse técnico testar sua fonte? Talvez ela tenha parado se você tiver ligado ela em estabilizador, se for isso experimente ligar direto na tomada.

@joao emilio borges garcia esse algoritmo está funcionando bem, você quer a média de jogos por jogador ? então vai precisar de outra variável coloque essa : mediajogos : real e na hora de fazer os cálculos ali no primeiro loop i a média de gols precisa ser modificado, e calculado a média de jogos por jogador, então coloque: mediagols <- gols/jogos//antemedia/quant mediajogos:=jogos/quant e lá no final na hora de mostrar os resultados coloque : escreval("Média de Jogos Por Jogador -------> ",mediajogos:2," Jogos Por Jogador")

@zro esse algoritmo será mais fácil de fazer usando vetor que em pascal é o array . então acrescentei mais algumas linhas para ver qual o maior e menor imc : Program imc_doProf ; Uses crt; var peso,alt,imc,a : real; contador,i,k,m : integer; cont,b : string; vetor : array[1..10,1..3] of real; nomes : array[1..10] of string; Begin clrscr(); textcolor(white); writeln(''); writeln('======================================='); writeln(' CALCULO DE IMC '); writeln('======================================='); writeln(''); cont:='Y'; contador:=0; peso:=0; alt:=0; m:=3; repeat contador:=contador+1; write('informe o nome: '); readln(nomes[contador]); write('INFORME SUA ALTURA ( casas decimais com ponto ): '); readln(vetor[contador,1]); write('INFORME SEU PESO: '); readln(vetor[contador,2]); imc := vetor[contador,2] / sqr(vetor[contador,1]);//peso-alt vetor[contador,3]:=imc; writeln('SEU IMC E: ', imc:05:02); write('DESEJA CALCULAR NOVAMENTE? (Y/N): '); readln(cont); if contador+1 > m then begin writeln('so podes cadastrar 10 pessoas ... tecle enter'); readln(cont); cont:='n'; end; writeln; until(upcase(cont) = 'N'); for k:=1 to contador-1 do begin for i:=k+1 to contador do begin a:=vetor[i,3]; if vetor[k,3] > vetor[i,3] then begin vetor [i,3]:=vetor[k,3]; vetor[k,3]:=a; a:=vetor[i,2]; vetor[i,2]:=vetor[k,2];vetor[k,2]:=a; a:=vetor[i,1]; vetor[i,1]:=vetor[k,1];vetor[k,1]:=a; b:=nomes[i ]; nomes[i ]:=nomes[k ];nomes[k ]:=b; end; end; end; writeln; writeln('o menor imc é ',vetor[1,3]:05:02,' de ',nomes[1]); writeln('o maior imc é ',vetor[contador,3]:05:02,' de ',nomes[contador]); writeln('tecle enter'); readln; End.

@rugier732 veja esse código com algumas modificações para diminuir o número de linhas : program Alfabeto_conta_letras; Uses crt; var texto : string; alf : array[1..52] of string; alf2 : array[1..52] of integer; tamanho,i,k : integer; //************************** inicio ************************** begin clrscr(); for k:=1 to 26 do //aqui coloca as letras no array begin alf[k ] := char(k+96); //letras minúsculas alf[k+26] := char(k+64); //letras maiúsculas end; write('Digite um texto --> '); readln(texto); tamanho:=length(texto); for k:=0 to tamanho do //testar todas as letras do texto begin for i:=1 to 52 do begin if texto[k]=alf[i] then//ver qual letra é essa begin alf2[i]:=alf2[i]+1; //soma quat de vezes a letra saiu End; End; End; clrscr(); //limpando a tela writeln('Tamanho Do Texto --> ',tamanho,' Letras');//mostra o tam do texto writeln('Nesse Texto-> ',texto); //mostra o texto writeln; //pula uma linha for k:=1 to 26 do begin if alf2[k] + alf2[k+26] <> 0 then //se tal letra estiver no texto begin sound(1000); //liga o som com frequencia 1000 hz delay(300); //durante 3 decimos de segundo nosound; //para o som writeln('A Letra ',alf[k],' Ou ',alf[k+26],' Saiu ',alf2[k]+alf2[k+26],' vezes no texto.'); End; //escreve a letra End; readln; //espera apertar enter end.

@Keeran se ele está dizendo que tem um erro no hd , então é porque tem mesmo um erro, e esse hd está danificado, infelizmente você vai precisar arrumar outro hd.

@rugier732 esse seu código começou bem, você pensou do jeito certo, e usando um vetor para colocar as letras para comparar com as do texto foi uma boa ideia por que assim pode se usar um loop para fazer as comparações. Só ficou faltando fazer essas comparações e imprimir o resultado na tela, então aqui está o restante do código : program Alfabeto_conta_letras; Uses crt; var texto : string; alf : array[1..52] of string; alf2 : array[1..52] of integer; tamanho,i,k : integer; //************************** inicio ************************** begin clrscr(); write('Digite um texto --> '); readln(texto); alf[ 1] := 'a'; alf[27] := 'A'; alf[ 2] := 'b'; alf[28] := 'B'; alf[ 3] := 'c'; alf[29] := 'C'; alf[ 4] := 'd'; alf[30] := 'D'; alf[ 5] := 'e'; alf[31] := 'E'; alf[ 6] := 'f'; alf[32] := 'F'; alf[ 7] := 'g'; alf[33] := 'G'; alf[ 8] := 'h'; alf[34] := 'H'; alf[ 9] := 'i'; alf[35] := 'I'; alf[10] := 'j'; alf[36] := 'J'; alf[11] := 'k'; alf[37] := 'K'; alf[12] := 'l'; alf[38] := 'L'; alf[13] := 'm'; alf[39] := 'M'; alf[14] := 'n'; alf[40] := 'N'; alf[15] := 'o'; alf[41] := 'O'; alf[16] := 'p'; alf[42] := 'P'; alf[17] := 'q'; alf[43] := 'Q'; alf[18] := 'r'; alf[44] := 'R'; alf[19] := 's'; alf[45] := 'S'; alf[20] := 't'; alf[46] := 'T'; alf[21] := 'u'; alf[47] := 'U'; alf[22] := 'v'; alf[48] := 'V'; alf[23] := 'w'; alf[49] := 'W'; alf[24] := 'x'; alf[50] := 'X'; alf[25] := 'y'; alf[51] := 'Y'; alf[26] := 'z'; alf[52] := 'Z'; tamanho:=length(texto); for k:=0 to tamanho do //testar todas as letras do texto begin for i:=1 to 52 do begin if texto[k]=alf[i] then//ver qual letra é essa begin alf2[i]:=alf2[i]+1; //soma quat de vezes a letra saiu End; End; End; clrscr(); //limpando a tela writeln('Tamanho Do Texto --> ',tamanho,' Letras');//mostra o tam do texto writeln('Nesse Texto-> ',texto); //mostra o texto writeln; //pula uma linha for k:=1 to 26 do begin if alf2[k] + alf2[k+26] <> 0 then //se tal letra estiver no texto begin sound(1000); //liga o som com frequencia de 1000 hz delay(300); //durante 3 decimos de segundos nosound; //desliga o som writeln('A Letra ',alf[k],' Ou ',alf[k+26],' Saiu ',alf2[k]+alf2[k+26],' vezes no texto.'); End; //escreve a letra End; readln; //espera apertar enter end.

@Simon Viegas realmente há um erro nesse código, pois ele imprime valores repetidos no vetor vet3 e isso não pode, eu não prestei atenção nesse detalhe e exclui o loop L, que na verdade precisa dele sim, então inclui ele novamente pois é ele que verifica se o número em vet3 está ou não repetido. então o código fica assim : Program Pzim; Uses crt; Const ORDEM=5; Type vetor=array[1.. ORDEM] of integer; Var vet1, vet2, vet3: vetor; k, j, l, cont : integer; repetido : boolean; Procedure leVetor(var vet: vetor); Var k: integer; Begin for k:=1 to ORDEM do Begin write('Digite o valor do vetor de posição ',k,': '); readln(vet[k]); End; End; Procedure imprimirVetor( vet: vetor; cont: integer); Var k: integer; Begin writeln('---> '); for k:=1 to cont do begin write(vet[k],' '); sound(1000); delay(300); nosound; delay(200); end; End; //******************** inicio *************************** Begin clrscr(); textColor(yellow); writeln('Lendo o primeiro vetor: '); textColor(white); leVetor(vet1); textColor(yellow); writeln('Lendo o segundo vetor: '); textColor(white); leVetor(vet2); cont:=0; for k:=1 to ORDEM do begin repetido:=false; for j:=1 to ORDEM do begin if vet1[k]=vet2[j] then begin repetido:=true; end; end; if repetido=false then begin for l:=1 to ORDEM do begin if vet3[l]=vet1[k] then begin repetido:=true; end; end; if repetido=false then begin cont:=cont+1 vet3[cont]:=vet1[k]; end; end; end; clrscr(); textcolor(3); writeln('O vetor resultante é: '); imprimirVetor(vet3, cont); writln;writeln; write('Valores Em vet1= '); imprimirVetor(vet1, ORDEM); writeln; write('Valores Em vet2= '); imprimirVetor(vet2, ORDEM); writeln; textcolor(white); writeln('Espere Um Pouco Para Terminar'); delay(5000); End.readln;

@joao emilio borges garcia esse seu código está funcionando bem no visualg 3.0 acredito que pelo visuag 2 ser mais antigo alguns comandos sejam diferentes, assim os códigos feitos para o visualg 2 funcionam no 3 mas o contrário não acontece.

@CeifadorDburgues o que você quer dizer com um número perfeito e não perfeito, não entendi . Mas se você quer que seu programa seja executado coloque a condição no segundo while assim c=0, ele vai funcionar mas não sei se é o resultado certo . aqui seu código já modificado: #include <cstdlib> #include <iostream> using namespace std; int main(int argc, char *argv[]) { int a=0,b=0,c=0,d=1,e=0,f=0,cont=1; cout<< "Exercicio 11.\n"; cout<< "\nDigite o primeiro termo do intervalo de numeros desejado.\n"; cin>> a; cout<< "\nDigite o ultimo termo do intervalo desejado.\n"; cin>> b; while(cont <= b) { while(c=0) { c = a % d; if(e == 0) { f = d; d = d + 1; e = e + f; } else if( c != 0 ) { d = d + 1; } } if(e == a) { cout<< "\nO numero " << a << " perfeito."; } else { cout<< "\nO numero " << a << " nao perfeito."; } cont = cont + 1; a = a + 1; } cout<< "\n\n"; system("PAUSE"); return EXIT_SUCCESS; }

@rd.28 isso é típico de quando tem dois programas rodando ao mesmo tempo aí se ele está com o foco em um programa, o outro fica parado. então tente mexer no msconfig como te disse e veja se melhora.

@rd.28 mas como é esse travamento ? ele congela a imagem e fica parado? ou é o a setinha do mouse que fica agarrando e só se move aos pulos? ou ele fica mostrando aquele ícone de ampulheta pedindo tempo? pode ser algum programa rodando em segundo plano como o antivírus ou quando ele está baixando as atualizações e instalando essas mesmas atualizações ou algum vírus. você pode também abrir o msconfig lá no menu iniciar e olhar quais os programas que estão inicializando ao mesmo tempo que o windows então desmarque todos eles menos o seu antivirus e clique em aplicar sem reiniciar. isso pode ajudar um pouco.

@joao emilio borges garcia ali no bloco Total de Homens e Mulheres e Porcentagem ele está somando os pesos das pessoas homens e mulheres com as variáveis mediapesohomens e mediapesomulheres e dividindo pelo total de peso e sendo guardada em mediapesohomens2 .

@joao emilio borges garcia esse código está funcionando bem, o cálculo da media de peso está certo, e para calcular a média de altura é igual a média de peso mas é preciso colocar mais 4 varáveis para isso,alturahomens alturamulheres mediaalturahomens mediaalturamulheres veja seu código com algumas mofdificações : Algoritmo "Pessoas" // Função : Criar Algoritmo para Pessoas // Autor : João Emilio // Data : 12/04/2017 // Seção de Declarações Var // Seção de Declarações das variáveis nomesexo :vetor[1..100,1..2] de caractere alturapeso :vetor[1..100,1..2] de real idade :inteiro continuar :caractere //flag para verificar se deseja continuar cadastrando MAXIMO :inteiro //maximo de vendas possíveis i :inteiro //utilizado para controlar os for quant :inteiro //quantidade de pessoas cont :inteiro //quantidade de impressões na tela (não imprimir tudo de vez) porchomens :real //POrcentagem de Homens no Algoritmo porcmulheres :real //Porcentagem de Mulheres no Algoritmo mais_alto :caractere //Exibe a Pessoa Mais Alta no Algoritmo maior :real totalhomens :inteiro //EXibe Total de Homens no Algoritmo totalmulheres :inteiro //EXibe Total de Mulheres no Algoritmo mediapesohomens :real mediapesomulheres :real alturahomens : real alturamulheres: real mediaalturahomens: real mediaalturamulheres: real mediapesohomens2 : real mediapesomulheres2: real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... MAXIMO<-5 //APRESENTAÇÃO DO PROGRAMA escreval() escreval("________________________________") escreval(" Pessoas ") escreval() //CADASTRO DE VENDA continuar:="s" enquanto continuar <> "n" faca quant:=quant+1 escreva("Nome da Pessoa....: ") leia(nomesexo[quant,1]) escreva("Altura da Pessoa..: ") leia(alturapeso[quant,1]) escreva("Peso da Pessoa....: ") leia(alturapeso[quant,2]) escreva("Idade da Pessoa...: ") leia(idade) escreva("Sexo da Pessoa..< M/F >..: ") leia(nomesexo[quant,2]) escreval() escreval() escreva("Quer Cadastrar Mais Uma Pessoa ? < S/N > ") leia(continuar) se quant+1 > maximo então escreval("Só Pode Cadastrar Até",maximo," Pessoas... Tecle Enter") leia(continuar) continuar:="n" fimse fimenquanto //EXIBIÇÃO DE RESULTADOS limpatela porchomens <- 0 //Porcentgens de Homens No algoritmo porcmulheres <- 0 //Porcentgens de Mulheres No algoritmo totalmulheres <-0 //Total de Mulheres no Algoritmo totalhomens <-0 //Total de Homens no Algoritmo maior <- 0 mediapesohomens <- 0 //Variaavel que da Media de peso EM homens mediapesomulheres <-0 //Variaavel que da Media de peso EM Mulheres cont<-0 para i de 1 ate quant faca escreval() cont:=cont+1 escreval("Nome da Pessoa ----> ",nomesexo[i,1]) escreval("Altura ------------> ",alturapeso[i,1]) escreval("Peso --------------> ",alturapeso[i,2]) escreval("Idade -------------> ",idade) escreval("Sexo da Pessoa ----> ",nomesexo[i,2]) //Total de Homens e Mulheres e Porcentagem se ((nomesexo[i,2]) = "M") então alturahomens := alturahomens+alturapeso[i,1] totalhomens <- totalhomens + 1 porchomens <- porchomens + 1 mediapesohomens <- mediapesohomens + alturapeso[i,2] mediapesohomens2 <- ( mediapesohomens / totalhomens) mediaalturahomens:= alturahomens/totalhomens senao alturamulheres := alturamulheres+alturapeso[i,1] totalmulheres <- totalmulheres + 1 porcmulheres <- porcmulheres + 1 mediapesomulheres <- mediapesomulheres + alturapeso[i,2] mediapesomulheres2 <-(mediapesomulheres /totalmulheres) mediaalturamulheres:= alturamulheres/totalmulheres fimse //Maior ALtura se (maior < (alturapeso[i,1])) então mais_alto <-(nomesexo[i,1]) maior <-(alturapeso[i,1]) fimse //TOTAL fimpara escreval() escreval() escreval("Total DE Pessoas Digitadas -------> ",quant) escreval("Total DE Pessoas do SEXO MASCULINO ----------> ",totalhomens) escreval("Total DE Pessoas do SEXO FEMININO -----------> ",totalmulheres) escreval("Porcentagem Total De Pessoas do SEXO MASCULINO ----> ",(porchomens * 100) / quant:3, "%") escreval("Porcentagem Total De Pessoas do SEXO FEMININO -----> ",(porcmulheres * 100) /quant:3, "%") escreval("Média de Peso de Pessoas do SEXO MASCULINO --> ",mediapesohomens2:3) escreval("Média de Peso de Pessoas do SEXO FEMININO ---> ",mediapesomulheres2:3) escreval("Média de Altura de Pessoas do Sexo Masculino-> ",mediaalturahomens:3) escreval("Média de Altura de Pessoas do Sexo Feminino-> ",mediaalturamulheres:3) escreval("Média de IDADE de Pessoas do SEXO MASCULINO -------> ",) escreval("Média de IDADE de Pessoas do SEXO FEMININO --------> ",) escreval() escreval("NOME DA PESSOA MAIS ALTA --------> R$ ",mais_alto," com ",maior," de altura") fimalgoritmo

@roogeraraujo Seu código está certo,mas não está funcionando porque você colocou o resultado da comparação fora do lugar ali no loop L, que nem precisa dele, então removi esse loop e coloquei o resultado da comparação de um vetor com o outro no lugar certo que é depois do loop J verificar todos os números . aqui seu código com as modificações : Program Pzim; Uses crt; Const ORDEM=5; Type vetor=array[1.. ORDEM] of integer; Var vet1, vet2, vet3: vetor; k, j, l, cont : integer; repeated : boolean; Procedure leVetor(var vet: vetor); Var k: integer; Begin for k:=1 to ORDEM do Begin write('Digite o valor do vetor de posição ',k,': '); readln(vet[k]); End; End; Procedure imprimirVetor(var vet: vetor; cont: integer); Var k: integer; Begin writeln(' '); for k:=1 to cont do begin write(vet[k],' '); delay(1000); end; End; //******************** inicio *************************** Begin clrscr(); textColor(yellow); writeln('Lendo o primeiro vetor: '); textColor(white); leVetor(vet1); textColor(yellow); writeln('Lendo o segundo vetor: '); textColor(white); leVetor(vet2); cont:=0; for k:=1 to ORDEM do begin repeated:=false; for j:=1 to ORDEM do begin if vet1[k]=vet2[j] then begin repeated:=true; end; end; if repeated=false then begin cont:= cont+1; vet3[cont]:=vet1[k]; end; end; clrscr(); textcolor(3); writeln('O vetor resultante é: '); imprimirVetor(vet3, cont); writln;writeln; write('Valores Em vet1= '); imprimirVetor(vet1, ORDEM); writeln; write('Valores Em vet2= '); imprimirVetor(vet2, ORDEM); writeln; textcolor(white); writeln('Espere Um Pouco Para Terminar'); delay(5000); End.readln;

@MicaelGT posta aí o que você já conseguiu fazer. para inverter você deve inverter as variáveis dos loops.

@Relry PeSan valeu pela dica, usei essa função e ela funcionou bem. Obrigado. olha o código que usei para testar : #include <iostream> #include <time.h> #include <windows.h> #include <stdlib.h> #include <conio.h> #include <stdio.h> #include <dos.h> using namespace std; int a,b,cc,x1,y1,l,d; char tcl; void gotoxy(int x, int y) { COORD c; c.X = x;// - 1; c.Y = y;// - 1; SetConsoleCursorPosition (GetStdHandle(STD_OUTPUT_HANDLE), c); } //int main (int argc, char *argv[]) int main () { cc=33;l=10; srand(time(NULL)); while(d !=27)// enquanto d diferente de 27 (esc) { system("cls"); //limpa a tela gotoxy(cc,l); //função que posiciona o cursor em x y //system("color fc"); cout << "O"; //escreve na tela //system("color 15"); if(x1==0){cc=cc+1;} //verifica se vai para direita if(x1==1){cc=cc-1;} //verifica se vai para esquerda if(y1==0){l=l+1;} //verifica se vai para baixo if(y1==1){l=l-1;} //verifica se vai para cima if(cc>79){cc=79;x1=1;printf("\a");}//Beep(2000,70);} if(cc<0){cc=0;x1=0;printf("\a");}//Beep(2000,70);} if(l>24){l=24;y1=1;printf("\a");}//Beep(2000,70);} if(l<0){l=0;y1=0;printf("\a");}//Beep(2000,70);} if( kbhit() ){d = getch();}// int para pegar codigo ascii e char para chr$ gotoxy(20,20); printf("Pressione ESC Para Sair %c.",d); gotoxy(20,10); printf("numeros aleatórios %d.",rand()%60+1); } return 0; }

@Gustavo Andretto esse código posiciona a setinha do windows na posição certa . mas como pegar a posição do cursor na tela do console e posicionar em outra posição que a gente quiser ?

@Igor Augusto T Tibiriçá Se você quer que o programa aceite apenas numero use o comando while do jeito que coloquei no seu código, veja como ficou: #include <iostream> #include <stdio.h> #include <ctype.h> #include <conio.h> using namespace std; int main () { int opc = 1; while (opc != 2) { system("cls"); printf("Separador de Unidades:\n\n"); printf("Escolha um numero de 1 a 9999: "); int valor = 0; while(!scanf ("%d", &valor)) { while(getchar() != '\n'); printf("Entrada invalida.\n\n"); printf("Escolha um numero de 1 a 9999: "); } if (valor > 9999 || valor < 0) { system("cls"); printf("Valor invalido\n"); } else { //rest(num); printf("fazer a separacao das dezenas\n\n"); nup = 0; if(valor > 999){ nup = int(valor/1000);valor = valor-nup*1000; printf("%d",nup);printf(" milhar\n"); } nup = 0; if(valor > 99){ nup = int(valor/100);valor = valor-nup*100; printf("%d",nup);printf(" centenas\n"); } nup = 0; if(valor > 9){ nup = int(valor/10);valor = valor-nup*10; printf("%d",nup);printf(" dezenas\n"); } nup = 0; if(valor > 0){ nup = valor; printf("%d",nup);printf(" unidades\n\n"); } } system("pause"); system("cls"); printf(" 1 - Voltar ao inicio\n 2 - Sair\n"); scanf("%d", &opc); } return 0; }