plz aider moi

yuri1

عضو
إنضم
27 أكتوبر 2007
المشاركات
558
مستوى التفاعل
453
salut
j'ai besoin de votre aide
j'ai un probleme pascal
on doit remplir un tableau t par n chaines nemurique
une chaine est accepte si seulement si comporte 8 caractere dont le premier doit etre 2 et le deuxieme doit etre <5
une chaine ne doit pas se repeter plus q'une fois dans le tableau t
merci
j'attend plz demain devoir:bang::bang::bang::bang:
 

zouabi16

عضو فعال
إنضم
25 نوفمبر 2008
المشاركات
327
مستوى التفاعل
305
:besmellah1:
اخي اليك هذا

program tab;
uses wincrt;
var ch:string;i,n,o,r,u,c,f,e:integer;t:array [1..100]of string;
begin
writeln('donner un entier');
readln(n);
for i:=1 to n do begin
repeat writeln('donner une chaine de caracter');
readln(ch);val(ch,o,r);val(ch[1],u,c);val(ch[2],f,e);
until (u=2) and (f<5) and (length(ch)=8) and (r=0);end;
end​
.
 

yuri1

عضو
إنضم
27 أكتوبر 2007
المشاركات
558
مستوى التفاعل
453
:besmellah1:
اخي اليك هذا

program tab;
uses wincrt;
var ch:string;i,n,o,r,u,c,f,e:integer;t:array [1..100]of string;
begin
writeln('donner un entier');
readln(n);
for i:=1 to n do begin
repeat writeln('donner une chaine de caracter');
readln(ch);val(ch,o,r);val(ch[1],u,c);val(ch[2],f,e);
until (u=2) and (f<5) and (length(ch)=8) and (r=0);end;
end​
.

mon frere la chaine ne doit repeter q'un fois dans le tableau merci en tous cas w yarhem waldik
 
أعلى