JeanCarloOs

eu resolvi formatar o notebook e consegui arrumar!!

sim é um windows 7, porém não possui placa de vídeo, é um notebook ( acer aspire 3860 ), eu baixei o "Slim Drivers" e fui dar uma olhada nas atualizações, e acabei atualizando o que faltava, e deu nisso... eu não vou conseguir enviar fotos pois estou pelo celular, e não estou em casa mas quando eu conseguir eu mando(porém esta tela só aparece quando vou desliga-lo ai ele aparece a tela e inicia novamente assim forcando minha paciência e fazendo com que eu vá ao cabo geral.(carregador,não fonte)

@Elder Nauvirth putz eu nao sabia disso, valeu mesmo man.

se eu não me engano é EVGA

Sim, mas não da pra desligar então eu estou desligando diretão (Perigosamente no crime).

ah que delcia receber esta resposta, estava achando q iria passar mal pra roda minecraft, mas o cs 1.6 é certeza entao Valeuu!!

o que posso rodar com esses componentes? placa-mãe: H110M; Processador: G4560; Memória RAM: 4GB DDR4; Placa de Vídeo (GPU): HD6570; Hard Disk (HD): 320GB; Fonte: 400w.

eu atualizei uns drivers ai deu nisto quando eu fui desliga (apos reiniciar(que por sinal foi tudo bem)):

ah sim simplificação...Simon muito obrigado!! de coração man você me ajudou em uma coisa que eu achei que não iria conseguir "pegar o trilho" da matéria, mas voce me ajudou e ***** vocês sao *****!

Program Exercicio_6 ; Var md:Array[1..5] Of Real; n1,n2:Real; i,contAP,contRE:Integer; Begin i:=0; For i:=1 To 5 Do Begin TextColor(LightCyan); Writeln('Aluno ',i); Writeln(); TextColor(White); Writeln('Digite Sua Primeira Nota :'); Readln(n1); Writeln(); Writeln('Digite Sua Segunda Nota:'); Readln(n2); Writeln(); md[i]:=(n1+n2)/2; TextColor(Yellow); Writeln('Média: ',md[i]:0:2); Writeln(); End; Writeln('**************************************************************'); For i:=1 To 5 Do Begin If(md[i]>=7)Then contAP:=contAP+1; If(md[i]<=7)Then contRE:=contRE+1; End; Textcolor(LightBlue); Writeln('Alunos Aprovados:',contAP); Textcolor(LightRed); Writeln('Alunos Reprovados:',contRE); ReadKey; End.

aaaaa sim, ok isso é interessante saber muito obrigado!!!

aeee consegui!!! muito obrigado novamente!!! pow voce deve ser um professor de logica nao pode ser, explica de uma forma gostosa de aprender!!!

Entao eu declaro as duas variáveis/(atualizar o contador) md:=0; ?/ eu crio um: If(md>=7)Then Begin contAP:=i+1; End else contRE:=i+1;

Ah sim, foi meu modo de compreender que foi mal, entao na questao do Begin/End se tiver: for i:=1 to 10 do write (X,' '); X:=0; end. ai precisa do Begin/End? e novamente muito Obrigado!!!

Perfeito, e realmente tenho que concordar que o modo que o professor monta as questões são bem confusas pela falta de acentos mas muito obrigado eu estava travado na questão de checar na matriz, agora vou de boa neste assunto, muito obrigado mesmo!!!!