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

[sarasamo]

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

السلام عليكم

أرجـــــــو منكم المساعدة لمن يعرف الحــل

**ecrire un program pascal qui affiche le triangle de pascal pour un nombre n**


**pour n valeur lues..afficher ces valeurs par ordre croissant ou descroissant**



**pour n impair. -- evrire un program pascal qui affiche un matrice carrée pour n*n **



** ecrire un program pascal qui resond tous les tp presedent **


و شكرااااااااااا

أرجوكم ساعدوني في الحل احتاجه للغذ

[sarasamo]

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

[malak54]

J'ai 3 Exo d Algorithme !
ecrire un sous programme permettant d'afficher le mot miroire d'un chaine de caractéres .


ecrire un sous programme permettant de vérifier si un mot est palindrome.

peut on utiliser l'un des sous _programmes précédents pour écrire l'autre ? si oui ,comment ?

[malak54]

ساعدوني اين انتم !!

[oussamalb7]

https://fbcdn-sphotos-h-a.akamaihd.n...c05966e6663045
أرجوكم أريد حل Exercice 01 et 03
في أقرب وقتا
و شكرا

[samir94]

PROGRAMATION AVEC NETLOGO


السلام عليكم . اريد حلا لمشكلة و هي بعد النقر على زر التشغيل كل لون يتكون في مجموعة بدون اختلاط
I want after clicking on operating each color in a private circle button . example yellow in a circle and blue in a circle and pink in a circle
************************************************** *
patches-own [

chemicalblue
chemicaljaune
chemicalrose]
to setup

crt populationblue
[ set color blue
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicalblue 0 ]
reset-ticks



crt populationjaune
[ set color yellow
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicaljaune 0]
reset-ticks

crt populationrose
[ set color pink
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicalrose 0]
reset-ticks


end

to go

ask turtles
[ if chemicalblue > sniff-threshold
[ turn-chemicalblue ]

rt random-float 3 - random-float 3
fd 1
set chemicalblue chemicalblue + 3 ]
diffuse chemicalblue 1
ask patches

[ set chemicalblue chemicalblue * (1 - evaporation / 100 )
set pcolor scale-color green chemicalblue 0.1 3]
reset-ticks
ask turtles
[ if chemicaljaune > sniff-threshold
[ turn-chemicaljaune ]
rt random-float 3 - random-float 3
fd 1
set chemicaljaune chemicaljaune + 3 ]
diffuse chemicaljaune 1
ask patches

[ set chemicaljaune chemicaljaune * (1 - evaporation / 100 )
set pcolor scale-color green chemicaljaune 0.1 3]
reset-ticks
ask turtles
[ if chemicalrose > sniff-threshold
[ turn-chemicalrose ]
rt random-float 3 - random-float 3
fd 1
set chemicalrose chemicalrose + 3 ]
diffuse chemicalrose 1
ask patches

[ set chemicalrose chemicalrose * (1 - evaporation / 100 )
set pcolor scale-color green chemicalrose 0.1 3]


reset-ticks

end
to go-blue
ask turtles
[ if color = blue
[ turn-chemicalblue ]

rt random-float 3 - random-float 3
fd 1
set chemicalblue chemicalblue + 3 ]
diffuse chemicalblue 1
ask patches

[ set chemicalblue chemicalblue * (1 - evaporation / 100)
set pcolor scale-color green chemicalblue 0.1 3 ]
reset-ticks
end
to go-yellow
ask turtles
[ if color = yellow
[ turn-chemicaljaune ]
rt random-float 3 - random-float 3
fd 1
set chemicaljaune chemicaljaune + 3 ]
diffuse chemicaljaune 1
ask patches

[ set chemicaljaune chemicaljaune * (1 - evaporation / 100)
set pcolor scale-color green chemicaljaune 0.1 3 ]
reset-ticks
end
to go-pink
ask turtles
[ if color = pink
[ turn-chemicalrose ]
rt random-float 3 - random-float 3
fd 1
set chemicalrose chemicalrose + 3 ]
diffuse chemicalrose 1
ask patches

[ set chemicalrose chemicalrose * (1 - evaporation / 100)
set pcolor scale-color green chemicalrose 0.1 3 ]

reset-ticks
end



to turn-chemicalblue


let ahead [chemicalblue] of patch-ahead 1
let myright [chemicalblue] of patch-right-and-ahead sniff-angle 1
let myleft [chemicalblue] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]

end
to turn-chemicaljaune

let ahead [chemicaljaune] of patch-ahead 1
let myright [chemicaljaune] of patch-right-and-ahead sniff-angle 1
let myleft [chemicaljaune] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]

end

to turn-chemicalrose
let ahead [chemicalrose] of patch-ahead 1
let myright [chemicalrose] of patch-right-and-ahead sniff-angle 1
let myleft [chemicalrose] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]
end

[ahmed4all]

أنصح الجميع بالمحاولة بمفرده، ثم إرفاق المحاولة هنا من أجل النقاش

[ahmed4all]

لأن الاعتماد على الحل الجاهز لا ينفع

[عثمان الجزائري.]

نصيحة إخوتي البرمجة لا تكون بهذه الطريقة و كما قال الأخ حالوا ثم ناقشوا فالكثير يقوم بما تقومون به الآن ثم بعد التخرج يكون عندنا مهندس دولة لا يفقه أي شيئ في البرمجة... يمكنكم في المقابل السؤال عن فكرة الحل و ليس الحل نفسه. و فقكم الله.

[chachou lamia]

salam 3alaykom
khawti ana nakra mathematique et informatique
w drt informatique gololi cha yakraw fiha w chahom takhasosat li fiha mlah w fihom afak

[ليليا_سوسو]

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

[abdelghani19300]

السلام عليكم
هل هناك لغات برمجة اخرى و تمارين اخرى غير pascal

[مسامح.]

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

السلام عليكم
هل هناك لغات برمجة اخرى و تمارين اخرى غير pascal

الباسكال عادة تدرس في السنة الأولى نعم توجد بطبيعة الحال
مثل matlabcpp c # java

[مقران ديدو]

merci
karabatess

[wiss16]

les algorith;es et le pascal surtout les boucles