ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

ضع الترمين ونحن نساعدك ان شاء الله الترمين غير واضح !

[بهاار]

السلام عليكم

ارجوا مساعدتي في حل التمارين المرفقة
انا بامس الحاجة لها

[boughaba mohamed]

السلام عليكم
إخواني انا مطالب بإنجاز هذا التمرين الطويل ولقد بدأت فيه لكني توقفت في منتصف الطريق وذلك لأني لا أعرف بعض الأفكار التي تلزمني لإكماله
إليكم رابطين بهما صورة للتمرين وايضا بعض المساعدات حول كيفية إنجازه
وإذا لديكم اي فكرة اخبروني لأقوم بوضع محاولتي وإلى اين وصلت لنقوم بالتعاون لإكماله بإذن الله في عجاله
https://www5.0zz0.com/2013/05/14/14/781844431.jpg
https://www2.0zz0.com/2013/05/14/14/675090152.jpg
وشكرا سلفا

[you92cef]

بخصوص تمارين الباسكال
les tableaux
فيوجد الكثير من التمارين في هدا الموضوع مشابهة تماما للمطلوب يكفي فقط نقلها والتعديل فيها
+
بخصوص
les liste chaine
تم وضع برنامج خاص في الاول ولكن تبقى مشاكل
l'inserton ,supression
حاول مراجعة الرابطين
ففيهما بعض التمريان مميزة ومشابهة تماما للمطلوب
https://www.academia.edu/1906492/Algo...s_de_Donnees_I
https://www.academia.edu/1906505/Algo..._de_Donnees_II

بسسب الامتحانات قد يتعدر معالجة بعض الطلبات
سنحاول وضع بعض الحلول اثناء الخميس الجمعة والسبت ان شاء الله

[boughaba mohamed]

المشاركة الأصلية كتبت بواسطة you92cef

بخصوص تمارين الباسكال
les tableaux
فيوجد الكثير من التمارين في هدا الموضوع مشابهة تماما للمطلوب يكفي فقط نقلها والتعديل فيها
+
بخصوص
les liste chaine
تم وضع برنامج خاص في الاول ولكن تبقى مشاكل
l'inserton ,supression
حاول مراجعة الرابطين
ففيهما بعض التمريان مميزة ومشابهة تماما للمطلوب
https://www.academia.edu/1906492/algo...s_de_donnees_i
https://www.academia.edu/1906505/algo..._de_donnees_ii

بسسب الامتحانات قد يتعدر معالجة بعض الطلبات
سنحاول وضع بعض الحلول اثناء الخميس الجمعة والسبت ان شاء الله

شكرا اخي على ردك
رجاءا اريد رابط الصفحة اين اجد البرنامج الذي اشرت اليه اخي الكريم

[you92cef]

المشاركة الأصلية كتبت بواسطة boughaba mohamed

شكرا اخي على ردك
رجاءا اريد رابط الصفحة اين اجد البرنامج الذي اشرت اليه اخي الكريم

روابط الخاصة
les tabnleau
موجود في الرابطين السابقين مع ردود هدا الموضوع في الصفحات من 10 الى 20 تقريبا
الرابطين السابقين فيهما خوارزميات تنفعك يكفي فقط ترجمتها

[boughaba mohamed]

المشاركة الأصلية كتبت بواسطة you92cef

روابط الخاصة
les tabnleau
موجود في الرابطين السابقين مع ردود هدا الموضوع في الصفحات من 10 الى 20 تقريبا
الرابطين السابقين فيهما خوارزميات تنفعك يكفي فقط ترجمتها

بارك الله فيك أخي بفضلك اكتملت الفكرة واعدك اني سأضع البرنامج بإذن الله عند اتمامه في القسم
شكرا مجددا

[salemk]

البسملة1


Devoirs Bac TP pour Sciences d’informatique




Premier devoir






Le deuxième





Le troisième

[you92cef]

بخصوص
les pointeures
هدا برنامج فيه جل
les procedure
التي نستعملها
يكفي فقط نسخ وتعديل على بعضها

program liste(input,output);
  TYPE tpoint=^tval;
       tval=record
              valeur:integer;
              suivant:tpoint
            end;
  VAR prem:tpoint; {variable globale}
      n:integer;
      c:char;

procedure lire;
var precedent,point:tpoint;
    i:integer;
{ modifie N et PREM }
  begin
    write('combien d''éléments?');
    readln(n);
    new(prem);
    write('1ère valeur ? ');
    readln(prem^.valeur);
    precedent:=prem;
    for i:=2 to n do begin
      new(point);
      write(i,'ième valeur ? ');
      readln(point^.valeur);
      precedent^.suivant:=point;
      precedent:=point
    end;
    precedent^.suivant:=NIL   
(* le dernier ne pointe sur rien *)
  end;

procedure afficher;
var point:tpoint;
    i:integer;
  begin
    point:=prem;
    for i:=1 to n do begin
      writeln(point^.valeur);
      point:=point^.suivant
    end
  end;

procedure supprimer;
var point,prec:tpoint;
    rep:char;
  begin
    point:=prem;
    repeat
      write(point^.valeur,' à ôter ?');
      readln(rep);
      if rep='O' then begin
        n:=n-1;
        if point<>prem then begin
         prec^.suivant:=point^.suivant;
         dispose(point);
         point:=prec^.suivant 
       (* se préparer pour la suite *)
        end
        else begin
          prem:=prem^.suivant;
          dispose(point);   
          (* ancien premier *)
          point:=prem
        end
      end
      else begin 
     (* pointer sur le suivant *)
        prec:=point;
        point:=point^.suivant
      end
    until point=nil
  end;

procedure rajouter;
var p1,p2,prec:tpoint;
    rep:char;
  begin
    p1:=prem;
    repeat
      write(p1^.valeur,' rajouter un
 élément avant (O/N) ? ');
      readln(rep);
      if rep='O' then begin
        n:=n+1;
        if p1<>prem then begin
          new(p2);
          write('valeur ? ');
          readln(p2^.valeur);
          prec^.suivant:=p2;
          p2^.suivant:=p1;
          prec:=p2;
        end
        else begin
          new(p1);
          write('valeur ? ');
          readln(p1^.valeur);
          p1^.suivant:=prem;
          prem:=p1
        end
      end
      else begin 
(* pointer sur le suivant *)
        prec:=p1;
        p1:=p1^.suivant
      end
    until p1=nil;
    p1:=prec;
    repeat
      write('ajouter un élément en fin
de liste (O/N) ? ');
      readln(rep);
      if rep='O' then begin
        n:=n+1;
        new(p2);
        write('valeur ? ');
        readln(p2^.valeur);
        p1^.suivant:=p2;
        p2^.suivant:=nil;
        p1:=p2
      end
    until rep<>'O'
  end;

BEGIN {prog principal}
  lire;
  repeat
    writeln('A:afficher, S:supprimer R:rajouter, F:fin');
    write('votre choix ? ');
    readln(c);
    case c of
      'A':afficher;
      'S':supprimer;
      'R':rajouter
    end
  until c='F'
end.

[houssem.hammache]

ecrire un algo que lit la diùonsion n d'un tableaux t de type
entier remplir le tableaux par des valeur entree au clavier et affiche le tableaux
**ranger ensuite les elemnt du tableux t dans l'ordre inverse sans utiliser se tableux
affiche le tableux r"sultat

[you92cef]

المشاركة الأصلية كتبت بواسطة houssem.hammache

ecrire un algo que lit la diùonsion n d'un tableaux t de type
entier remplir le tableaux par des valeur entree au clavier et affiche le tableaux
**ranger ensuite les elemnt du tableux t dans l'ordre inverse sans utiliser se tableux
affiche le tableux r"sultat

حسب علمي تم حل مثل هدا النوع من الاسئلة
ابحث في المضوع
قد تجد الردود
او راجع الرابطين السابقين في هخه الصفحة ففيهما تمارين من هدا النوع
شكرا

[boughaba mohamed]

السلام عليكم

لقد قمت بإعداد برنامج به 12 عشر تعليمة وقد تمكنت من اتمام 9 تعليمات وباقي 3 فأرجو منكم مساعدتي في اتمامها وجزاكم الله الف خير



1) بروسيدور لحذف عنصر من الجدول supprission

2) بروسيدور إضافة عنصر للجدول insertion

3) بروسيدور عكس قيم الجدول أي قلبها فقط وليس ترتيبها inverser

طبعا بلغة الباسكال او الدلفي وشكرا

[kharbouche]

المشاركة الأصلية كتبت بواسطة boughaba mohamed

السلام عليكم

لقد قمت بإعداد برنامج به 12 عشر تعليمة وقد تمكنت من اتمام 9 تعليمات وباقي 3 فأرجو منكم مساعدتي في اتمامها وجزاكم الله الف خير



1) بروسيدور لحذف عنصر من الجدول supprission

2) بروسيدور إضافة عنصر للجدول insertion

3) بروسيدور عكس قيم الجدول أي قلبها فقط وليس ترتيبها inverser

طبعا بلغة الباسكال او الدلفي وشكرا

مرحبا اخي انا اتعلم ايضا الباسكال ممكن اساعدك في هدا البرنامج بالنسبة الى invers قمت بهدا
invers

program string_inverse_mot;
uses crt;
const n=13;
var mot1,mot2:string[n];
l,i :integer;
begin
clrscr;
write('taper un mot de ',n,' caracteres : ');
read (mot1);
l:=length(mot1);
mot2 := mot1[n];
for i:= (l-1) downto 1 do
mot2:=mot2+mot1[i];
writeln(' l"inverse du mot est : ',mot2);
readln;
readln;
end.

suuprission
procedure choix_menu2 (var f:fich; var tableau:tab;var tableau2:tab; var rep3:char);
var
pos_emp,i,j : byte;
begin

Clrscr;
writeln('MENU SUPPRESSION EMPLOYE');
writeln;
writeln;
writeln('Choisir la position de l''employé à supprimer : ');
readln(pos_emp);



reset(f);
for i:=1 to filesize(f) do
begin
read(f, tableau[i]);
tableau2[i].nom :=tableau[i].nom;
tableau2[i].salaire :=tableau[i].salaire;
tableau2[i].tache :=tableau[i].tache;
tableau2[i].journee :=tableau[i].journee ;
end;
for i:= 1 to pos_emp-1 do
begin
rewrite(f);
write(f,tableau2[i]);
end;

seek(f,pos_emp+1);

for i:=pos_emp+1 to filesize(f) do
begin
write(f,tableau2[i]);
end;
close(f);
repeat
write('Opération réussite, voulez-vous revenir au menu principale ? (O/N) : ');
readln(rep3);
until rep3 in ['o','O','N','n'];
clrscr;
end;

او برنامج اخر suppression كالتالي avec la recherche de ça position

PROCEDURE suppression(var f: fic);
var pos, i: integer;
r: enr;
temp: fic;
begin
pos:=saisiepos(f);
assign(temp, 'temp.fic');
rewrite(temp);
reset(f);
{Copie du fichier f dans le fichier temp jusqu'a la position pos-1}
for i:=0 to pos-1 do
begin
seek(f,i);
read(f,r);
write(temp,r);
end;
{Copie du fichier f dans le fichier temp de la position pos+1 a la fin}
for i:=pos+1 to filesize(f)-1 do
begin
seek(f,i);
read(f,r);
write(temp,r);
end;
close(f);
close(temp);
{Suppression de l'ancien fichier f et remplacement par temp}
erase(f);
rename(temp, 'rep.fic');
assign(f, 'rep.fic');
writeln;writeln('Ok.');
pause;
end;

[boughaba mohamed]

المشاركة الأصلية كتبت بواسطة kharbouche

end;

السلام عليكم
شكرا أخي علىاستجابتك لطلبي ولكني وجدت الدوال من قبل وقد قمت بتقديم البرنامج اليوم والحمد لله كان كامل وبما انك جديد في تعلم البرمجة فأرجو ان نتعاون كلينا لإنجاز بعض البرامج

[lataoui nouradine]

d,i,z,j:integer;

t,f,n:string;
s:array[1..50]of string[1];
function rec(n:string):integer;
begin
d:=length(n);
for i:=1 to d do begin
t:=copy(n,1,1);
s[i]:=t;
n:=copy(n,2,d-i);
writeln('s[',i,']=',s[i]);
end;
end;
begin
readln(n);
rec(n);
end.
لقد حاولت جاهدا وهذا احسن ما قمت به بقي فقط جمع الاعداد لم اعرف كيف اجمعها بحيث اذا جمعت مثلا 8 و9 المفروض تكون النتيجة 17 الا انه يظهر النتيجة 98

لم افهم هذه النقطة جيدا