Programmation en pascal

et voici le resultat :

a$="1"
for i=1 to 30
    a$=tri$(a$)
    print using("#####",len(a$));"  ";a$
next i
wait

function tri$(a$)
    lon=len(a$)
    cnt=1
    car$=mid$(a$,1,1)
    carb$=mid$(a$,1,1)
    while cnt<=lon
        scan
        while car$=carb$ 
            car$=mid$(a$,cnt+1,1)
            count=count+1
            cnt=cnt+1
        wend
        tri$=tri$+str$(count)+mid$(a$,cnt-1,1)
        count=0
        carb$=car$
    wend
    end function

moins de 20 lignes en Liberty BASIC pour creer une fonction qui donne le resultat.

@++

Liberty BASIC France : http://lbasic.atomysk.com
Le Forum d'aide : http://lbasic.atomysk.com/forum

1
11
21
1211
111221
312211
13112221
1113213211
31131211131221
13211311123113112211

c'est marant ça ?!

J'essaye de faire un truc en Liberty BASIC et je le poste.

Liberty BASIC France : http://lbasic.atomysk.com
Le Forum d'aide : http://lbasic.atomysk.com/forum

en fait j'ai une difficulté à écrire mes boucle dans mon programme que voici
program triangmeta;
{$APPTYPE CONSOLE}
uses
sysutils;

const
minlintab=1;
maxlintab=100;
mincoltab=1;
maxcoltab=100;

var
tab:array [mincoltab..maxcoltab,minlintab..maxlintab] of integer;
A , I , J , L , L1 , P1 , P2 , NBOCCUR , Q: integer ;

begin

for I:=minlintab to maxlintab do (*initialisation du tableau*)
for J:=mincoltab to maxcoltab do
tab[I,J]:=0 ;

writeln ('donnez nous un entier 1<x<9'); (*renseignement du triangle meta*)
readln (A); (*lecture de l entier*)
tab[1,1]:=A; (*ecriture dans la case 1,1*)
writeln(tab[1,1]); (*affiche contenu de la case 1,1*)

(*ecriture du programme*)
I:=1;
J:=1;
while tab [I,J]<>0 do
begin
P1:=1;
P2:=1;
tab [L+1,P2+1]:=tab[L,P1];
end;

NBOCCUR:=1;
while tab [L,P1]=tab[L,P1+1] do
begin
NBOCCUR:=NBOCCUR+1;
P1:=P1+1;
tab[L+1,P2]
writeln(tab[L+1,P2]);
end;

tab [L+1,P2]:= NBOCCUR;
P2:=P2+2;

end.

Merci de votre participation

Salut,
avec tous le respect que je vous dois, je n'ais pas réussi à comprendre la logique de votre triangle peut être que vous avez mal écrit le triangle,Non?
si vous avez du nouveau je peut vous aider.
Bonne chance.
Merci

Slt,

C'est un classique....
1
11 sur la ligne du dessus il y a un "1" (=11)
21 sur la ligne du dessus il y a deux "1" (=21)
1211 sur la ligne du dessus il y a un "2" (=12) et un "1" (=11)

ton pb se résume à compter les paquets de chiffres dans ta suite...

Good luck