devair1010

@Dispensado qual o modelo placa de vídeo você colocou? e qual a sua configuração do pc, marca fonte, processador, memoria e placa-mãe .

@ericksdjskdj para começar crie um vetor do tipo char assim: char vetor[1000]; e mais algumas variáveis aí faça a entrada de dados e posta aí, e para ver se é número ou letra ou símbolos coloque isso: for(i=1;i<10;i++){ if(vetor[cont]==("%c",i+48)){ num++; /*total de numeros*/ } } for(i=1;i<27;i++){ if(vetor[cont]==("%c",i+64 || vetor[cont]=="%c",i+96)){ letra++; /*total de letras*/ } } simb=cont2-num-letra; /*total de simbolos */ os códigos referentes aos dígitos de 0 à 9 vão de 48 até 57, já os códigos referentes às letras minúsculas vão de 97 até 122 e as letras maiúsculas vão de 65 até 90, então os símbolos são os caracteres que não são letras nem números. e é igual o total de caracteres menos as letras e os números

@ericksousa post o algoritmo que você fez, pode ser um rascunho, assim podemos ver em que você está com dificuldade, e poderemos te ajudar .

@Tuufee é porque ele precisa pegar o primeiro número e depois se o próximo número for menor que ele então esse passa a ser o menor número.

@Tuufee seu algoritmo está certo só faltou essas três linhas, como está comentado aqui no seu código : Algoritmo "maior e menor" Var c, maior, menor, num: inteiro med : real Inicio maior <- 0 //menor <- 0 //deletar essa linha para c de 1 ate 10 faca escreva("Digite um numero inteiro :") leia(num) Se num > maior então maior <- num fimse se c=1 ENTÃO // acrecentar essa linha menor:=num //acrecentar essa linha fimse //acrecentar essa linha Se (num < menor) então menor <- num fimse fimpara med <- (maior + menor) /2 Escreval("A média entre o maior e o menor é ",med) Fimalgoritmo

@luisfelip esse algoritmo está funcionando, mas não está imprimindo o valor certo porque no printf, tem um & o que não pode. veja : #include <stdio.h> int main(){ int v[1000], n, i, k, cont, a, p, x; n=0; p=0; x=0; a=0; while(x==0){ printf("digite aquantidade de numeros "); scanf("%i", &n); if(n<=0 || n>1000) x=0; else x++; } for(i=0; i<n; i++){ printf("digite o ",i+1," numero "); scanf("%i", &v[i]);//aqui precisa colocar V em qual posção p=i; } printf("digite outro numero para comparar "); scanf("%i", &k); for(i=0; i<n; i++){ if(k<=v[i]){a++;}//aqui precisa colocar V em qual posição } printf("%i\n",a);//aqui não pode esse & antes do A return 0; }

@Tiago Dantas Creio que isso não seja possível porque se você retirar alguma parte da iso ela não funciona mais, porém se você usar o winRar ela vai ficar um pouco menor e aí caberá no seu dvd.

@Tiago Dantas você pode gravar também em dvd que é bem maior que cd ou você pode usar o winRar para dividir essa iso, você clica na iso com o botão direito e em adicionar para o arquivo, aí escolhe o tamanho de cada parte e clique em ok. sua iso será dividida. veja nesse video ; https://www.youtube.com/watch?v=y2YCxnzSlOg

@luisfelip seu código está bom, mas está precisando de mais algumas linhas então experimente esse aqui : #include <stdio.h> int main(){ int v[10005], i, n, l,cont, maior, anterior, local; int x,y,c; l=1; local=0; anterior=0; while(l!=0){ printf("digite um numero para quantos numeros e zero para sair "); scanf("%i", &n); if(n==0) return 0; cont=0; for(i=0; i<n; i++){ printf("digite um numero "); cont++; scanf("%i", &v[i]); if(anterior>v){ maior=anterior; local=i; }else{ maior=v[0]; anterior=v; } } i=0; while(v[i]!=0) { i++; } printf("A Quantidade De Elementos Do Vetor é "); printf("%d\n",i); for(x=0;x<i-1;x++) { c=v[x]; for(y=x+1;y<i;y++) { if(v[x]<v[y]) { v[x]=v[y]; v[y]=c; } } } maior=v[0]; local=1; printf("Aqui O Local "); printf("%i\n", local); printf("Aqui O Maior "); printf("%d\n",maior); anterior=0; } return 0; }

@rugier732 seu código está bom, mas não precisa dessa variável de controle, vamos usar outro vetor para fazer as comparações e deletar os números repetidos nesse segundo vetor, para isso vamos copiar o vetor vet e colocar em vet2 . então o código ficaria assim : procedure repetidos (var vet: vetor); var vet2 : array[1..5] of integer; i,k,g : integer; begin g=0; for i:=1 to 5 do begin vet2[i] := vet[i]; if vet2[i]=0 then begin g:=1; end; end; for i:=1 to 5 do begin for k:=1 to 5 do begin if i <> k then begin if vet2[i]=vet2[k] then begin vet2[i]:=0; end; end; end; end; if g=1 then begin write(" 0 "); end; for i:=1 to 5 do begin if vet2[i] <> 0 then begin write(vet2[i]," "); end; end; end;

@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.