Thetheu Diias

Boa tarde. como tirar a média deste programa ? - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - program numero; uses crt; var i,qt: integer; v: array[1..3] of real; media: real; begin write('informe a quantidade de notas: '); read(qt); for i:= 1 to qt do begin write('digite a ', i, 'ª nota: '); read(v[i]); end; for i:= 1 to qt do begin writeln(i, 'ª nota: ',v:2:2); media:= (v[i])/qt; end; writeln('media: ', media); readkey; end. adicionado 2 minutos depois @thetheu diias @simon viegas

Salve rapaziada! boa noite! Minha dúvida é o seguinte: Como utilizar o comando REPEAT depois do ELSE dentro CASE OF. Sou novato e estou estudando em Pascal. No entanto surgiu está dúvida pois o laço de repetição não está funcionando. Estou criando um programa para calcular o consumo e despesas efetuada por um viajante em um determinado carro abastecido por um total de litros de um combustivel X de valor Y. a estrutura seguinte do programa se encontra nesta posição: PROGRAM Consumo; uses crt; VAR valor, km, opcao, consumo, despesa: real; litros: integer; comb: integer; BEGIN WRITELN(' COMBUSTIVEL'); WRITELN; WRITELN('> [1] - GASOLINA'); WRITELN('> [2] - ALCOOL'); WRITELN('> [3] - DIESEL'); WRITELN; WRITE('SELECIONE O TIPO DE COMBUSTIVEL: '); READ(comb); WRITELN; CASE comb OF 1: WRITELN('COMBUSTIVEL SELECIONADO: GASOLINA'); 2:WRITELN('COMBUSTIVEL SELECIONADO: ALCOOL'); 3: WRITELN('COMBUSTIVEL SELECIONADO: DIESEL'); ELSE REPEAT WRITELN('COMBUSTIVEL SELECIONADO: INVÁLIDO'); WRITELN('SELECIONE O TIPO DE COMBUSTIVEL: '); READ(comb); UNTIL (comb < 1) and (comb >= 4); END; WRITELN; WRITE('INFORME O VALOR DO COMBUSTIVEL: '); READ(valor); WRITELN; WRITE('INFORME A QUANTIDADE DE LITROS ABASTECIDA: '); READ(litros); WRITELN; WRITE('INFORME A QUILOMETRAGEM PERCORRIDA: '); READ(km); WRITELN; consumo := (km / litros); despesa := (valor * litros); IF (comb = 1) THEN begin WRITELN('COMBUSTIVEL: GASOLINA'); WRITELN('VALOR DO COMBUSTIVEL: R$', valor:2:2, ' REAIS'); WRITELN('LITROS: ', litros:2:1); WRITELN('DISTANCIA: ',km:3:2, ' KM'); WRITELN('CONSUMO: ', consumo:2:2,' KM POR LITROS DE COMBUSTIVEL'); WRITELN('DESPESA: R$', despesa:2:2, ' REAIS'); end; IF (comb = 2) THEN begin WRITELN('COMBUSTIVEL: ALCOOL'); WRITELN('VALOR DO COMBUSTIVEL: R$', valor:2:2, ' REAIS'); WRITELN('LITROS: ', litros:2:1); WRITELN('DISTANCIA: ',km:3:2, ' KM'); WRITELN('CONSUMO: ', consumo:2:2,' KM POR LITROS DE COMBUSTIVEL'); WRITELN('DESPESA: R$', despesa:2:2, ' REAIS'); end; IF (comb = 3) THEN begin WRITELN('COMBUSTIVEL: DIESEL'); WRITELN('VALOR DO COMBUSTIVEL: R$', valor:2:2, ' REAIS'); WRITELN('LITROS: ', litros:2:1); WRITELN('DISTANCIA: ',km:3:2, ' KM'); WRITELN('CONSUMO: ', consumo:2:2,' KM POR LITROS DE COMBUSTIVEL'); WRITELN('DESPESA: R$', despesa:2:2, ' REAIS'); end; READKEY; END.

Boa tarde galera, sou iniciante na area de programação e estou estudando com o compilador Pascalzim. No entanto estou em dúvida quanto a usar o IF dentro de outro IF. Como seria o procedimento?

Sim a Bios está atualizada. Nao da pra fazer mem teste pois nao dar video.

Boa tarde galerinha um salve a todos. estou com um problema serio e nao sei mais o que fazer. preciso da ajuda de vocês. Seguinte: Eu usava 2x4GB Gskill Sniper 2133Mhz, e troquei por 2x4GB Gskill Trident x 2400Mhz. porém meu pc nao da video com as trident inseridas. Quando coloco um pente de 1333Mhz + uma Trident, dá video de boa só que o S.O não inicia, reiniciando o pc. as memorias trident estão marcando tensão na placa-mãe normal. Minha mobo é uma Msi z87 GD65. Quem poder dar essa força ai agradeço . (Obs: as Tridents são novas)

http://m.aliexpress.com/item/1506410271.html?productSubject=GTX770-2GB-2048MB-GDDR3-DDR3-256bit-GTX-Nvidia-Geforce-Video-Card-Graphics-Cards-for-Games-Desktop&productId=1506410271&tracelog=wwwdetail2mobilesitedetail

Esse investimento não vale a pena, troca placa mãe processador e memoria que você sai ganhado. até porque daqui a pouco tempo sua maquina não vai rodar nada de jogo ja que cada vez mais os jogos estão exigindo muitos mais dos pcs a coisa ta ficando seria. mais se não quer trocar procura um core 2 quad que aumenta bastante o desempenho.

realmente me atrapalhei os Xeon são 1150 , mais tem os Core 2 Quad 775. acho que eles seriam ideal

Se essa placa mãe for socket 775 ela suporta um quad core no caso o intel Xeon , mais eu n vi ele nessa lista '-'

obvio que com tanta pesquisa você chega a um resultado perfeito , até minha avó faria. mais eu apontei os requisistos que estavao no site da venda da placa.

olha os requisitos de alimentação antes de você afirmar com tanta certeza " sabidão "

Vai nessa R7 260X XFX que você não vai se arrepender >>> http://www.kabum.com.br/produto/48870/placa-de-video-vga-xfx-radeon-r7-260x-1gb-ddr5-128-bit-pci-express-3-0x16-r7-260x-znj4

uma boa opção seria a Radeon R7 260X , Mais pra isso você tem que fazer um up de 430w pra 500w na sua fonte. caso não queira gastar tanto com a fonte tem a Radeon R7 250X que necessita de uma fonte de 450w. mais eu ficaria com a 260X. 260x http://www.kabum.com.br/produto/48870/placa-de-video-vga-xfx-radeon-r7-260x-1gb-ddr5-128-bit-pci-express-3-0x16-r7-260x-znj4 250x http://www.kabum.com.br/produto/54184/placa-de-video-vga-gigabyte-radeon-r7-250x-1gb-ddr5-128-bits-pci-express-3-0-gv-r725xoc-1gd-rev-1-0

Sim sua fonte suporta. mais ao invés de comprar eu levaria em um tecnico onde possa testar as memorias pra ver se realmente o problema se encontra nelas. vai que não seja e você compra as memorias ?

Mais no caso ele não quer trocar a estrutura do pc. se for trocar placa mãe é necessario memorias e processador tmb. o que sairia bem melhor que um upgrade.

Exatamente. ou Placa de video ou como o amigo Thalles falou Memoria Ram. faz o teste em ambos

Coloca um Intel Core 2 Duo 8700 , coloca 2 pentes de memorias de 2GB , e Atualiza essa placa de video porque essa ja ta muito ultrapassada.

Como o amigo falou ai em cima uma fonte de 430w aguenta tranquilo , vai de corsair é a melhor fabricante hoje em termo de fontes. Segue o link da 430w Corsair mais barata da internet. http://www.kabum.com.br/produto/34214/fonte-corsair-cx-430w-cp-9020046-ww-80-plus-bronze

o melhor processador que sua placa mãe suporta é o Core 2 Duo E8700 de 3,50 Ghz.

O problema está na sua placa de video está super aquecendo. tira a placa de video e tenta entrar no jogo sem ela se ocorrer tudo normalmente você ja sabe onde está o problema

Boa noite , meu pc está com o seguinte problema: assim que ligo o botão do estabilizador o pc liga sozinho sem apertar no botão de power , então ele fica ums 4 segundos e desliga sozinho novamente e volta a ligar novamente sozinho. procurei sobre esse problema e vi em algums tópicos que isso é questão de atualizar a BIOS , na placa mãe está escrito: PC Ware IPMQ45. mais quando abro o CPU-Z ele me mostra a seguinte placa mãe: Intel Cube Cove DQ45CB / Eklo DQ45EK . ja procurei a Bios atualizada no site da Intel como mostrada no CPU-Z e no PC Ware como na propria placa mãe , mais não encontrei em nenhum dos sites nada sobre as ambas marcas citadas. não se se o problema é BIOS ou se é outro... enfim agradeço a todos que se disponham a me ajudar.

Vai no site da Kabum e compra as peças separadas assim que chegar você monta. ai você foca mais no monitor e hd e diminui um pouco no processador , memoria , fonte e placa mãe da pra girar em torno dos R$ 1.500,00

Eu uso o meu em um monitor AOC 21.5" FULL HD . E2250SWN < Modelo

tem alguma diferenca de velocidade de transferencia entre o hd de not com o case e o hd externo ? qual se sai melhor ?

HD Externo 500 GB Usb 3.0 Toshiba. é uma boa marca ?