Faire une figure qui ressemble à un triangle avec setlength

doum5000 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
MiniApp Messages postés 654 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é
@
@ @
@ @ @
@ @ @ @
A voir également:

1 réponse

MiniApp Messages postés 654 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
doum5000 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
je voudrais le programme en Pascal et non en Delphi.
0
MiniApp Messages postés 654 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
doum5000 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Votre idée est bonne mais avec plus de commandes, cela serait encore mieux. Merci pour ta réaction.
0
MiniApp Messages postés 654 Date d'inscription   Statut Membre Dernière intervention   49
 
Merci. Désolé mais je ne peut pas t'aider plus. :'-(
0