Zukhe

Program Pzim ; var x,y,xt1,xt2,xt3,yt,h,C,del:integer; Begin y:= 30; x := 75; repeat readkey; begin //movimentação FODELASTICA da nave espacial if readkey = #65 then begin x := x -1; end else if readkey = #68 then begin x := x +1; end else if readkey = #83 then begin y := y +1; end else if readkey = #87 then begin y := y -1; end; clrscr; // clear screeen gotoxy(x,y -5); writeln ( ' /\ ' ); // nave espacial em ascii gotoxy(x,y -4); writeln ( ' ( ) ' ); gotoxy(x,y -3); writeln ( ' ( ) ' ); gotoxy(x,y -2); writeln ( ' /|/\|\ ' ); gotoxy(x,y -1); writeln ( ' /_||||_\ ' ); end; until readkey = #27; del := 200; repeat // formação de destroços fodelastica tb yt:= 0; C:= 0; xt1:= random(50); // posição do primeiro obstaculo xt2:= 50 + random(50); //do segundo xt3:= 95 + random(50); // do terceiro repeat c := c +1; begin gotoxy(xt1,yt + c); writeln (#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219,' ',#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219); // primeiro obstaculo end; begin gotoxy(xt2,yt + c); writeln (#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219); // segundo end; begin gotoxy(xt3,yt + c); writeln (#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219,' ',#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219+#219); // terceiro delay (del); // definição da dificuldade end; clrscr; until C = 45; until 7 = 1; // GOOOOOOLLLL DA ALEMANHA End. Consegui fazer os dois sistemas funcionarem.....em paralelo.....agora falta fazer funcionar simultaneamente, alguma coisa com procedure ou function me ajudaria? Obrigado pela ajuda! ps.: Sim, eles estão descaradamente separados, embora, no mesmo programa, mas ainda não tive nenhuma ideia pra deixar simultâneo, por isso deixei assim.

Program Pzim ; var x,y:integer; Begin y:= 30; x := y; repeat begin readkey; if readkey = #65 then begin x := x -1; end else if readkey = #68 then begin x := x +1; end else if readkey = #83 then begin y := y +1; end else if readkey = #87 then begin y := y -1; end; write ('X'); gotoxy (x,y); end; End. O programa aponta que o ultimo "END" não deveria existir, é um código tão curto e não consigo enxergar o problema, alguém ai consegue? "Erro sintático na linha 32..." " 'END' não esperado!" adicionado 1 minuto depois faltou o until adicionado 1 minuto depois filha da ***** adicionado 1 minuto depois sou um *****

Dae pessoal! Tudo certo? Bem, por fatores monetários eu decidi fazer um mod no Cooler Box do meu 3450, vou manter o dissipador original e trocar o cooler, vai ser uma baita gambiarra com presilhas e tudo mais, mas acho que vai refrigerar bem, além do mais o meu i5 é bem frio. Bom, vamos ao que interessa, queria que vocês me recomendassem o cooler ideal pra usar no dissipador da Intel, de preferência 120mm, fica mais fácil de fazer a gambiarra. Envolvido nesse assunto do CPU Cooler me recordei que faz um bom tempo que não troco a pasta térmica do processador, aproveitando o tópico peço que me ajudem a encontrar uma pasta térmica barata e eficiente, pois como já mencionei, os fundos são escassos! hahahaha Algo em torno de R$ 20,00/ 25,00 , desde já agradeço, e se quiserem faço um post com a gambiarra pronta, aposto que vai ter gente curiosa!