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!"

faltou o until

filha da *****

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!