Pascal/Turbo Pascal - Ayuda con programa en pascal

   
Vista:

Ayuda con programa en pascal

Publicado por Rebeca (2 intervenciones) el 26/04/2013 00:23:01
Lo que pasa es que no lo he podido checar porque algo anda fallando con mi Pascal y no se porque después de que lo compilo y le doy RUN no pasa nada, solo me sale la pantalla negra y no puedo hacer nada

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
 var x,y:string;
 i: integer;
 begin
 x:='*';
 y:='*';
 i:=2;
 while i>=0 do
 begin
 writeln (x);
 x:= x+y;
 i:=-1
 end;
 repeat until keypresed;
 end.


cual es su salida?
y como puedo modificarlo para que haga lo mismo pero usando repeat until y un ciclo for
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con programa en pascal

Publicado por ramon (2072 intervenciones) el 29/04/2013 12:54:17
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{programa corregido}
 
uses
   crt;
 var
   x, y : string;
      i : integer;
 begin
    clrscr;
    x := '*';
    y := '*';
    i := 2;
 while i >= 0 do
 begin
    writeln('   ',x);
    x := x + y;
    i := i - 1 {error 1 =  i := -1}
  end;
 repeat until keypressed; {error 2 = keypresed;}
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar