مساعدة يا اهل الخير

الموضوع في 'أرشيف المنتدى التعليمي' بواسطة king-0X, بتاريخ ‏20 ماي 2008.

  1. king-0X

    king-0X نجم المنتدى

    إنضم إلينا في:
    ‏21 فيفري 2008
    المشاركات:
    1.598
    الإعجابات المتلقاة:
    1.695
      20-05-2008 13:45
    program Welcome;
    uses
    WinCrt;
    type
    tab1=array[1..29] of integer;
    tab2=array[1..29] of char;
    var
    n,r,i:integer;
    t:tab1;
    v:tab2;
    {procedure saisir**
    procedure saisir(var n:integer);
    var
    i:integer;
    begin
    repeat
    writeln('donner le tail de tablau');
    read(n);
    until
    n in [3..20];
    end;
    {procedure remliret**
    procedure remplirt(n:integer;var t:tab1);
    var
    i:integer;
    begin
    for i:=1 to n do
    begin
    repeat
    writeln('donner t[',i,']');
    read(t);
    until
    t>0;
    end;
    end;
    {procedure remplirv**
    procedure remplirv(n:integer;var v:tab2);
    var
    i:integer;
    begin
    for i:=1 to n do
    begin
    repeat
    writeln('donner v[',i,']');
    readln(v);
    until ord (v) in [97..122];
    end;
    end;
    {procedure trie**
    procedure trie(n:integer;t:tab1;v:tab2);
    var
    h,i,a:integer;
    begin
    for i:=1 to n-1 do
    begin
    for h:=i+1 to n do
    begin
    if t[h]<t then
    a:=t;
    t:=t[h];
    t[h]:=a;
    end;
    end;
    for i :=1 to n-1do
    begin
    for h:=i+1 to n do
    begin
    if ord( t[h])> ord( t )then
    a:=t;
    t:=t[h];
    t[h]:=a;
    end;
    end;
    end;
    {procedure affichert**
    procedure affichert(n:integer; t:tab1);
    var
    i:integer;

    begin
    for i :=1 to n do
    begin
    writeln('t[',i,']= ',t);
    end;end;
    {procedure afficherv**
    procedure afficherv(n:integer; v:tab2);
    var
    i:integer;
    begin
    for i :=1 to n do
    begin
    writeln('v[',i,']= ',v);
    end;
    end;
    {program principal**
    begin
    saisir(n);
    remplirt(n,t);
    remplirv(n,v);
    trie(n,t,v);
    affichert(n,t);
    afficherv(n,v);
    end.

    ماهو الخطا؟؟؟؟؟؟؟؟؟؟؟؟
     
    1 person likes this.
  2. Sinha 15

    Sinha 15 عضو نشيط

    إنضم إلينا في:
    ‏13 جويلية 2007
    المشاركات:
    154
    الإعجابات المتلقاة:
    16
      20-05-2008 14:15
    انت ما سكرتش les commentaires الي عاملهم
    مثلا هذا
    {program principal**

    يلزمك تسكرو ** في الاخير متاعو

    (هذا خطأ مبدئي ومازلت نصلحلك لحظة)
     
  3. Sinha 15

    Sinha 15 عضو نشيط

    إنضم إلينا في:
    ‏13 جويلية 2007
    المشاركات:
    154
    الإعجابات المتلقاة:
    16
      20-05-2008 14:18
    program Welcome;
    uses
    WinCrt;
    type
    tab1=array[1..29] of integer;
    tab2=array[1..29] of char;
    var
    n,r,i:integer;
    t:tab1;
    v:tab2;
    {procedure saisir** **
    procedure saisir(var n:integer);
    var
    i:integer;
    begin
    repeat
    writeln('donner le tail de tablau');
    read(n);
    until
    n in [3..20];
    end;
    {procedure remliret****
    procedure remplirt(n:integer;var t:tab1);
    var
    i:integer;
    begin
    for i:=1 to n do
    begin
    repeat
    writeln('donner t[',i,']');
    read(t);
    until
    t>0;
    end;
    end;
    {procedure remplirv** **
    procedure remplirv(n:integer;var v:tab2);
    var
    i:integer;
    begin
    for i:=1 to n do
    begin
    repeat
    writeln('donner v[',i,']');
    readln(v);
    until ord (v) in [97..122];
    end;
    end;
    {procedure trie** **
    procedure trie(n:integer;t:tab1;v:tab2);
    var
    h,i,a:integer;
    begin
    for i:=1 to n-1 do
    begin
    for h:=i+1 to n do
    begin
    if t[h]<t then
    a:=t;
    t:=t[h];
    t[h]:=a;
    end;
    end;
    for i :=1 to n-1do
    begin
    for h:=i+1 to n do
    begin
    if ord( t[h])> ord( t )then
    a:=t;
    t:=t[h];
    t[h]:=a;
    end;
    end;
    end;
    {procedure affichert** **
    procedure affichert(n:integer; t:tab1);
    var
    i:integer;

    begin
    for i :=1 to n do
    begin
    writeln('t[',i,']= ',t);
    end;end;
    {procedure afficherv****
    procedure afficherv(n:integer; v:tab2);
    var
    i:integer;
    begin
    for i :=1 to n do
    begin
    writeln('v[',i,']= ',v);
    end;
    end;
    {program principal****



    begin

    saisir(n);
    remplirt(n,t);
    remplirv(n,v);
    trie(n,t,v);
    affichert(n,t);
    afficherv(n,v);
    end.

    هاو الصحيح ويمشي
     

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

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