Marcelo159

O administrador pode fechar o tópico eu ja resolvi o problema !!

Olá a todos Bom estou com uma dúvida, não sei se esse é o local certo para postar isso, sobre a minha fonte. Ela é uma fonte ATX 250W ( não sei se é genérica ou não) que comprei em 2011, junto com o meu PC Placa Asus m5a78l-m lx/br Processador AMD Athlon II Placa de Vídeo GT 630 Memória 4gb DDR3 Um drive de DVD simples HD 500 GB Então, eu queria trocar o meu processador para o AMD Fx 6300 , mas não sei se essa fonte vai aguentar, então eu gostaria de saber se a fonte tem tanta influência assim , ja que essa placa de vídeo consome pouco. Obrigado !!

Meu programa ele diz se um número é primo ou não, só que meu professor disse que não podia usar nem DIV , nem MOD, só podia achar o resto usando divisão por SUBTRAÇÃO , ou seja as variáveis só podem ser do tipo INTEGER. EXEMPLO : 4/2 meu programa faz : 4-2=2 2-2=0 Quociente é o número de equações que teve e o resto é o ultimo numero que sobra , ou seja : 0 Até aí tudo bem, o problema é que não compila, aparece "PROCEDURE NÃO ESPERADO" , e eu preciso usar esse procedure. Se algum anjo puder me ajudar eu agradeceria muito T.T'' Obrigado O programa é do Pascalzim Program NPrimo ; var N,X,A,B,Q,R,S : integer ; var T : boolean ; Procedure Ler; Begin Read(N); End; Procedure Preparar; Begin T:=True ; X:=2 ; Q:=0 ; R:=0 ; S:=0 ; End; Procedure Divisao; Begin A:=N ; B:=X ; While(A>= B do Begin A:=A-B; Q:=Q+1; End; R:=A; End; Procedure Analisar; Begin if(R=0) then Begin writeln('Nao e primo'); T:=False ; End else T:= True ; End; Procedure Teste; Begin while(X<N) do Begin Divisao; Analisar; if(T=false) then exit; X:=X+1; End; if(T=True) then writeln('E primo.'); End; Begin Ler; Preparar; Teste; End.