Pascal/Turbo Pascal - Alguien que porfavor me ayude con este programa

   
Vista:

Alguien que porfavor me ayude con este programa

Publicado por irma (1 intervención) el 29/04/2013 22:03:43
tengo un programa cuya salida es
*
**
***

necesito modificarlo para que haga lo mismo pero con la combinación repeat-until
y tambien modificarlo pero usando un ciclo for

este es mi programa

uses crt;
var x,y:string
i:intenger;
begin
clrscr;
x:='*';
y:='*';
i:=2;
while i>=0 do
begin
writeln (x);
x:=x+y;
i:=i-1
end;
repeat until keypressed;
end.

y se supone lo debo pasar a una estructura similar a los de aca abajo pero debe dar la salida del programa de arriba, soy nueva en esto y en verdad quisiera que alguien me orientara por favor.

x:=10;
repeat x:=x-3;
until x>=o;
writeln (x);


for i:=-3 to 11 do
write (2*1);
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

Alguien que porfavor me ayude con este programa

Publicado por ramon (2072 intervenciones) el 29/04/2013 22:36:52
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
{Mira es asi}
 
uses crt;
var x,y:string
i:intenger;
begin
clrscr;
x:='*';
y:='*';
i:=2;
repeat
writeln (x);
x:=x+y;
i:=i-1
until i = 0;
 
writeln;
x:='*';
y:='*';
 for i:=2 downto 0 do
 begin
    writeln (x);
    x:=x+y;
end;
 
repeat until keypressed;
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