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

[you92cef]

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

السلام عليكم

Ex01
Ecrire un Algorithme qui permet de lire un nombre et d'afficher le menu suivant
carré du nombre
racine carré du nombre
inverse du nombre
valeur absolu du nombre
-------------
Tapper votre choix
Lire, choisir et faire le traitement ci dessus
Lire nombre et afficher le menu

Ex02
Ecrire un Algorithme qui permet de lire la température de mois de novembre de la ville de Paris et de calculer la température moy et la température max et la température min

Ex03
Ecrire un Algorithme qui fait la table de multipli de nombre 5

Ex04
Ecrire un Algorithme qui permet de lire deux nombres positif A et B et calcule leur produit sans utiliser l'operateur de multiplication

ex02
program sol;
uses wincrt;
var t,max,moy,min:real;
i:integer;
begin
moy:=0;
max:=-900;
min:=900;
for i:=1 to 30 do begin 
writeln('Entrez la temperature de la ',i,' jour: ');
readln(t);
if t<min then min:=t;
if t>max then max:=t;
moy:=moy+t;
end;
writeln('la temperature min=',min:3);
writeln('la temperature max=',max:3);
writeln('la temperature moy=',(moy/30):3);
end.

بخصوص الدالة 
for اذا لم تتطرقوا لها بعد ممكن ان نساعد في الشرح 
بخصوص القيم الاولية ل
max 
و
min 
فهي قيم سوف تتغير بمجرد ادخال القيمة الاولية لدرجة الحراة 
بحيث اعطينا قيمة صغيرة جدا ل
max 
وقمية كبيرة لل
min 

يمكن ان لا نعطي قيم اولية لل
max 
min 
ونجعل قيمتهما الاولية هي القيمة الاولية لدرجة الحراة الخاصة باليوم الاول ونكمل الباقي بنفس الشيء

.