plz aider moi

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة yuri1, بتاريخ ‏12 ديسمبر 2008.

  1. yuri1

    yuri1 عضو

    إنضم إلينا في:
    ‏27 أكتوبر 2007
    المشاركات:
    558
    الإعجابات المتلقاة:
    454
      12-12-2008 19:17
    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:
     
  2. zouabi16

    zouabi16 عضو فعال

    إنضم إلينا في:
    ‏25 نوفمبر 2008
    المشاركات:
    332
    الإعجابات المتلقاة:
    305
      12-12-2008 20:01
    :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​
    .
     
    1 person likes this.
  3. yuri1

    yuri1 عضو

    إنضم إلينا في:
    ‏27 أكتوبر 2007
    المشاركات:
    558
    الإعجابات المتلقاة:
    454
      12-12-2008 21:41
    mon frere la chaine ne doit repeter q'un fois dans le tableau merci en tous cas w yarhem waldik
     

مشاركة هذه الصفحة

جاري تحميل الصفحة...