|
|
|
|||||||
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
| آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
 |
|
|
أدوات الموضوع | انواع عرض الموضوع |
2013-05-16, 19:14
|
رقم المشاركة : 466 | |||||
|
اقتباس:
https://www.ethnoinformatique.fr/mod/...ew.php?id=2793 يمكنك تحميله عادي بنسخة clic gauche enregistre sous --------------- صفحة خاصة بطلاب الاعلام الالي فيها روابط بعضها مهم والاخر غير مهم ارجوا ان تختار ما تريده انت بنفسك https://www.ethnoinformatique.fr/course/view.php?id=52
|
|||||
|
|
2013-05-16, 19:22
|
رقم المشاركة : 467 | ||||
|
اقتباس:
+ حاول ان تبرمج هده التمارين بنفسك لكي تتعلم منها وتكتشف اخطاءك |
||||
|
|
|
2013-05-17, 15:08
|
رقم المشاركة : 468 | |||
|
أرجو منك يا الخ المساعدة لأنني لم افهم التمرين |
|||
|
|
|
2013-05-19, 23:26
|
رقم المشاركة : 471 | |||
|
السلام عليكم |
|||
|
|
|
2013-05-21, 18:48
|
رقم المشاركة : 472 | |||
|
بخصوص تمارين الباسكال |
|||
|
|
|
2013-05-21, 19:10
|
رقم المشاركة : 473 | |||
|
بخصوص كود:
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.
|
|||
|
|
|
2013-05-21, 20:20
|
رقم المشاركة : 474 | ||||
|
اقتباس:
شكرا اخي على ردك رجاءا اريد رابط الصفحة اين اجد البرنامج الذي اشرت اليه اخي الكريم |
||||
|
|
|
2013-05-21, 20:45
|
رقم المشاركة : 475 | ||||
|
اقتباس:
les tabnleau موجود في الرابطين السابقين مع ردود هدا الموضوع في الصفحات من 10 الى 20 تقريبا الرابطين السابقين فيهما خوارزميات تنفعك يكفي فقط ترجمتها |
||||
|
|
|
2013-05-21, 21:17
|
رقم المشاركة : 476 | ||||
|
اقتباس:
شكرا مجددا |
||||
|
|
|
2013-05-25, 18:22
|
رقم المشاركة : 478 | |||
|
ecrire un algo que lit la diùonsion n d'un tableaux t de type |
|||
|
|
|
2013-05-25, 19:28
|
رقم المشاركة : 479 | ||||
|
اقتباس:
ابحث في المضوع قد تجد الردود او راجع الرابطين السابقين في هخه الصفحة ففيهما تمارين من هدا النوع شكرا |
||||
|
|
|
2013-05-25, 19:37
|
رقم المشاركة : 480 | ||||
|
اقتباس:
بخصوص انواع التمارين فالبعض تم وضعه هنا بحمد الله والبعض كان مشابه تمرين الموضوع الثاني تم وضعه هنا ولكن الحل لم يوضع للاسف شكرا على الموضوعات |
||||
|
|
|
| الكلمات الدلالية (Tags) |
| ملتقى, الالي, الاعلام, طلاب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
العرض العادي
