Pascal/Turbo Pascal - duda ejercicio 5

   
Vista:

duda ejercicio 5

Publicado por Erik Napster_EPD88@hotmail.com (73 intervenciones) el 14/03/2014 18:19:40
hola tengo que hacer lo siguiente:

Te falta diseñar el programa principal. Debes llamar al procedimiento diseñado para comprobar su funcionamiento

del siguiente programa:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure linea(c : char; vec : integer);
var
   t : integer;
  begin
      for t := 1 to vec do
      write(c);
  end;
 
 procedure triangulo;
 var
  n : integer;
 begin
       for n := 1 to 4 do
       begin
            linea('*',n);
            writeln;
       end;
  end;
gracias de antemano
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

duda ejercicio 5

Publicado por ramon (2072 intervenciones) el 16/03/2014 21:42:17
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
¨{Te falta}
 
 program lineamas;
 procedure linea(c : char; vec : integer);
var
   t : integer;
  begin
      for t := 1 to vec do
      write(c);
  end;
 
 procedure triangulo;
 var
  n : integer;
 begin
       for n := 1 to 4 do
       begin
            linea('*',n);
            writeln;
       end;
  end;
 
begin
       triangulo;
      readln;
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