Faire une figure qui ressemble à un triangle avec setlength

doum5000 Messages postés 13 Statut Membre -  
MiniApp Messages postés 529 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

voici un programme réalisé avec la commande setlength mais je n'arrive même pas à le compiler sous Pascal. Aidez moi, s'il vous plait.

Program triangle;
uses crt;
var
t:[0..3] of [0..3] of integer;
i:integer;
begin
setlength(t,3);
for i:0 to 3 do
setlength(t[i], i+1);
end.

voici le resultat souhaité
@
@ @
@ @ @
@ @ @ @

1 réponse

  1. MiniApp Messages postés 529 Date d'inscription   Statut Membre Dernière intervention   49
     
    Bonjour

    Je programme en Delphi, si je voulait faire une application console faisant ce résultat je taperais.

    Program triangle;
    {$APPTYPE CONSOLE}
    uses sysutils;

    begin
    //Tracer de la pyramide
    Writeln('@');
    Writeln('@@');
    Writeln('@@@');
    Writeln('@@@@');
    Readln;//Empêche la fenêtre de se fermer
    end.
    0
    1. doum5000 Messages postés 13 Statut Membre
       
      je voudrais le programme en Pascal et non en Delphi.
      0
    2. MiniApp Messages postés 529 Date d'inscription   Statut Membre Dernière intervention   49
       
      Delphi resemble au Pascal du coup j'ai pensée que sa pourrait être utile
      0
    3. doum5000 Messages postés 13 Statut Membre
       
      Votre idée est bonne mais avec plus de commandes, cela serait encore mieux. Merci pour ta réaction.
      0
    4. MiniApp Messages postés 529 Date d'inscription   Statut Membre Dernière intervention   49
       
      Merci. Désolé mais je ne peut pas t'aider plus. :'-(
      0