مساعدة في إصلاح تمرين( التمرين و العمل الشخصي مرفقان)

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

  1. HBHY-SAT

    HBHY-SAT نجم المنتدى

    إنضم إلينا في:
    ‏19 جويلية 2008
    المشاركات:
    1.692
    الإعجابات المتلقاة:
    2.820
      18-05-2009 17:25
    :wlcm:

    أرجو مساعدتي في هذا التمرين
    لقد قمت بإنجازه لكن يه بعض الأخطاء
    أرجو أن تساعدوني في إصلاحه أو تقديم حلّ آخر
    مع الشكر


    التمرين

    [​IMG]

    العمل الشخصـي

    كود (text):

    [B][FONT=Arial Narrow]uses wincrt;
    var
    n:longint;
    ch: string;
    {::::::saisie:::::::**
    procedure saisie(var n:longint);
    begin
    repeat
    writeln('donner un entier');
    readln(n);
    until ((n>=1000)AND (n<= 99999999));
    end;

    procedure conv(var ch:string);
    var
    i:integer;
    c:string;
    begin
    c:=' ' ;
     for i :=1to length(ch[i]) do
                               begin
                              case (ch[i]) of
                              '0': c:=c+'-----?';
                              '1': c:=c+'.----?';
                              '2': c:=c+'..---?';
                              '3': c:=c+'...--?';
                              '4': c:=c+'....-?';
                              '5': c:=c+'.....?';
                              '6': c:=c+'-....?';
                              '7': c:=c+'--...?';
                              '8': c:=c+'---..?';
                              '9': c:=c+'----.?';
                             END;
                             write(c);

     end;

    end;

    begin
    saisie(n);

    str(n,ch);
    conv(ch);

    end.
    [/FONT][/B]
     
  2. juba-metal

    juba-metal عضو جديد

    إنضم إلينا في:
    ‏19 جانفي 2009
    المشاركات:
    7
    الإعجابات المتلقاة:
    4
      18-05-2009 17:36
    program morse;
    uses wincrt;
    var code,mot:string;



    procedure lecture (var mot :string);
    var e,x:integer;
    begin
    repeat
    writeln ('saisir votre mot de passe');
    readln(mot);
    val (mot,x,e);
    until (length(mot) in [4..8]) and (e=0);
    end;


    function codage(mot:string):string;
    var code:string;
    i:integer;
    begin
    code:='';

    for i:=1to length(mot) do
    case mot of
    '0' : code:=code+ '-----?';
    '1' : code:=code+ '.----?';
    '2' : code:=code+ '..---?';
    '3' : code:=code+ '...--?';
    '4' : code:=code+ '....-?';
    '5' : code:=code+ '.....?';
    '6' : code:=code+ '-....?';
    '7' : code:=code+ '--...?';
    '8' : code:=code+ '---..?';
    '9' : code:=code+ '----.?';
    End;
    codage:=code;
    end;
    begin
    lecture(mot);
    code:=codage(mot);
    writeln('le mot de passe codé en morse est ', code);
    end.
     
    3 شخص معجب بهذا.
  3. nader_nader

    nader_nader عضو فعال

    إنضم إلينا في:
    ‏23 أوت 2008
    المشاركات:
    311
    الإعجابات المتلقاة:
    230
      19-05-2009 07:47
    :besmellah1:
    c'est la meilleur méthode
    :easter::easter::easter::easter::easter::easter:
     

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

    • code morse.txt
      code morse.txt
      حجم الملف:
      506 بايت
      المشاهدات:
      4
  4. nader_nader

    nader_nader عضو فعال

    إنضم إلينا في:
    ‏23 أوت 2008
    المشاركات:
    311
    الإعجابات المتلقاة:
    230
      19-05-2009 08:53
    :ahlan:
    هنا قمت باصلاح عملك :easter::easter::easter::easter:
     

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

    • pascal.txt
      pascal.txt
      حجم الملف:
      1 ك. ب
      المشاهدات:
      3
    1 person likes this.
  5. kawi2006

    kawi2006 عضو مميز

    إنضم إلينا في:
    ‏2 أفريل 2007
    المشاركات:
    661
    الإعجابات المتلقاة:
    247
      20-05-2009 02:57

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

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