ممكن توضيح الخطئ في خدمتي

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

  1. walidinho

    walidinho عضو نشيط

    إنضم إلينا في:
    ‏8 جانفي 2008
    المشاركات:
    205
    الإعجابات المتلقاة:
    461
      16-11-2008 12:09
    :besmellah1:

    program palindrome;
    uses wincrt;
    var
    ch:string;
    i:integer;
    CH:[0..10];
    begin
    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');
    end.
     
    1 person likes this.
  2. خليل

    خليل عضو فعال

    إنضم إلينا في:
    ‏12 جويلية 2007
    المشاركات:
    489
    الإعجابات المتلقاة:
    261
      16-11-2008 12:51
    يمكن تبعثلنا الخدمة في Document texte ou word
     
  3. yahia-sat

    yahia-sat عضو نشيط

    إنضم إلينا في:
    ‏22 أوت 2008
    المشاركات:
    148
    الإعجابات المتلقاة:
    17
      16-11-2008 16:23
    chouf el façon hathi
    program palondrome;
    uses wincrt ;
    var
    j,i:integer;
    ch,ch2,ch3:string ;
    begin
    repeat
    writeln ('donner une chaine ');readln (ch);
    until (length(ch)<>0);
    ch3:='';ch2:='';
    for i := 1 to length (ch) do
    ch2:= ch2+ upcase (ch);
    for j :=length (ch) downto 1 do
    ch3:= ch3+ upcase (ch[j]);
    if ch2=ch3 then
    writeln ('le chaine est palndrome')
    else
    writeln ('le chaine est n''est pas palndrome');
    end.
     
  4. ines douania

    ines douania عضو فعال

    إنضم إلينا في:
    ‏17 أفريل 2008
    المشاركات:
    452
    الإعجابات المتلقاة:
    745
      16-11-2008 16:46
    je pense que le problème est dans le ch
    tu dois declarer ch, c'est a dire
    writeln('donner ch') et readln(ch) si non merci de m'envoyer le programme
     
  5. gafsi87

    gafsi87 عضو مميز

    إنضم إلينا في:
    ‏18 ماي 2008
    المشاركات:
    891
    الإعجابات المتلقاة:
    2.192
      16-11-2008 16:49
    Essaies ce programme
    [​IMG]
    Il y a des erreurs syntaxiques puisque ça fait longtemps que j'ai pas programmé en pascal

    شكرا للأخ وليد (woodi)
     

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

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