حل للسؤال المتعلق ب ال palindrome

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

  1. walidinho

    walidinho عضو نشيط

    إنضم إلينا في:
    ‏8 جانفي 2008
    المشاركات:
    205
    الإعجابات المتلقاة:
    461
      17-11-2008 19:14
    ecrire un programme qui permet de vérifier si une chaine de taille maximale 10 est palindrome
    si elle contient les memes lettres de droite a gauche
    et de gauche a droite
    exp
    azza/radar:polindrome
    azzA/RADARS:non polindrome

    الحل

    بمسصاعدة احد الاصدقاء(رامي)
    - repeter...jusqu'à
    -tant que...faire
    program palindrome;
    uses wincrt;
    var
    ch:string;
    i:integer;
    begin
    repeat
    writeln('donner ch =');
    readln(ch);
    until(length(ch)>0)and(length(ch)<=10);
    i:= 0;
    {repeat
    i:=i + 1;
    until(ch<>ch[length(ch)- i + 1])or(i= length(ch) div 2 );
    if(ch<>ch[length(ch)- i + 1])then
    writeln('non palindrome')
    else
    writeln('palindrome');**
    while(ch=ch[length(ch)- i + 1])and(i<> length(ch) div 2 )do
    i:=i+1;
    if(i<> length(ch) div 2 )then
    writeln('palindrome')
    else
    writeln('non palindrome');
    end.

     
  2. walidinho

    walidinho عضو نشيط

    إنضم إلينا في:
    ‏8 جانفي 2008
    المشاركات:
    205
    الإعجابات المتلقاة:
    461
      21-11-2008 22:42
    بارك الله فيكم
     
  3. azyahya

    azyahya عضو

    إنضم إلينا في:
    ‏17 جويلية 2008
    المشاركات:
    67
    الإعجابات المتلقاة:
    28
      25-11-2008 13:07
    encore plus
    program palindrome ;
    uses wincrt ;
    var
    mes ,M :string ;
    N,i:integer ;
    az : boolean ;
    r:char;
    begin
    repeat
    writeln('donner ch =');
    readln(ch);
    until(length(ch)>0)and(length(ch)<=10);
    write('M= ');readln(M); N:= length (M) ;i:=1; az:= true ;
    repeat
    if M=M[N-i+1] then i:=i+1 else az:= false ;
    until ((az= false) or (N div 2+1= i));
    if az= true then mes:= ' est palindrome' else mes := ' n"est pas palindrome ';
    writeln('le mot',mes );
    end.
     

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

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