svp pouver vous me vérifier ce travail ??

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

  1. Valdemort

    Valdemort عضو

    إنضم إلينا في:
    ‏7 سبتمبر 2007
    المشاركات:
    70
    الإعجابات المتلقاة:
    14
      10-03-2009 23:47
    voilà un problem d'info que g déja essayé de résoudre et g ércit mon programme pascal mais il ne veut pas s'executer le voilà
    c le sujet du bac 2007
    http://www.bacweb.tn/bac/principale2007/math/info.pdf

    program jon;
    uses wincrt;
    var ch,ch2:string;
    i:integer;

    function nn(c:char;ch:string):boolean;
    var l:boolean;
    begin
    i:=0;
    repeat
    i:=i+1;
    until((c=ch)or(i=length(ch)));

    if (i<length(ch)) then l:=false
    else l:=true ;

    nn:=l;
    end;

    procedure remp(ch:string;var ch2:string);
    var j:integer;
    begin
    j:=1;
    ch2[1]:=ch[1];
    for i:=2 to length(ch) do
    begin
    if nn(ch,ch2) then
    begin
    j:=j+1;
    ch2[j]:=ch;
    end;
    end;
    end;

    begin
    readln(ch);
    remp(ch,ch2);
    for i:=1 to length(ch2) do
    write(ch2);
    end.

    il est encore en bloc-notes si vous voulez
    merci
     

    الملفات المرفقة:

    • phrase.txt
      phrase.txt
      حجم الملف:
      655 بايت
      المشاهدات:
      1
  2. riadh_ado

    riadh_ado نجم المنتدى

    إنضم إلينا في:
    ‏14 أوت 2006
    المشاركات:
    1.547
    الإعجابات المتلقاة:
    3.301
      11-03-2009 00:41
    voila la soluce que tu veux
     

    الملفات المرفقة:

    • aaaa.txt
      aaaa.txt
      حجم الملف:
      461 بايت
      المشاهدات:
      2

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

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