المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تمرين فى الاعلام الالى بلييز


hakim----
2012-01-02, 21:08
السلام عليكم مرحبا بيكم
مرحبا بكم أساتذتى اخوتى الطلبه حبيت اشاركم فى حلول تمارينات فى الاعلام الالى لاصحح أخطائي كما أن هناك ما لم استطع حله و تستفيدو معنا فى هذه التمرين ارجو منكم حلول و تفاعل مع هذه التمرين و بما أني أريد تصحيح أخطائي و اعرف الذي لم استطع حله فاني احتاجها ليوم الغد
ارجو منكم حلا نموذجيا حتى يتسنى لي فهمها فيما بعد
[Supposant qu' on un ensemble des points de 1 à 5000 à la suits sur le perinètre d'un cercle.Le pointsuivant le 5000 est donc le 1.on efface premèrement le nombre 1, on conserve le 2, on efface le 3, etc. (on efface un nombre et on conserve le nombre suivant ).On rèpète cette opèration (c-a-d, fait pltsieurs tours sur le cercle ) jusqu' a qu'il ne reste plus qu' un nombre -
Analyser le problème prècèdent pour dèduire le nombre qui reste -
Ecrire l'algorithme qui rèsume votre solution.
Ecrire le programme èquivalent en langage pascal -

amira ter
2012-01-03, 19:44
بليز اخي انا ايضا ابحث عن حل :dj_17: هاذا التمرين في الحين ارجـــــــــــــــــــــتوك اذا وجته افدنا به في اقرب حين ممكن و شكرا :dj_17:

hakim----
2012-01-03, 20:18
ان شاء الله ياريت نوجده بالتوفيق للجميع

King Soft
2012-05-05, 17:54
وعليكم السلام اخي


اليك الحل بلغة الباسكال يمكنك تحويله الى خوارزمية


Program Untitled;
var T:Array[1..5000]of integer;
z,i,n:integer;
begin
for i:= 1 to 5000 do
T[i]:=i;
Z:=2;i:=1;
n:=5000;
While n >=1 do
begin
T[i]:=T[Z];
i:=i+1;Z:=z+2;
if Z>n then
begin
i:=1;z:=2;
n:=n div 2;
end;

end;
Write(T[1]);
readln;
end.


بالتوفيق