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

[you92cef]

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

مشكور أخي كثيرا بارك الله فيك وجعلها في ميزان حسناتك
لاكن ممكن توضخ أكثر

هناك طرق غير هذه الطرق

هذه مصطلحات سوف تكتشفونها في الفصل الثاني والسنة ثانية ان شاء الله
+
ارجوا تحديد السنة العلمية حتى يتم معالجة المشكل حتى يفهم
شكرا

[salemk]

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

السلآم عليكم ورحمة الله وبركآتهُ ..
كيف نحدد عدد الأرقام بعد الفاصلة في pascal

On peut juste afficher un réel selon un format donné, mais on ne change pas la valeur – on ne formate que l’affichage -
Pour ce faite

writeln (variable : champ : chiffres significatifs) ;

 Variable : nom de la variable (le type peut être réel, entier, chaine…)
 Champ : nombre maximal des chiffres à afficher, virgules-y compris. (n’à pas de sens si la valeur est inférieur au nombre des chiffres significatif)
 Chiffres significatifs : nombre des chiffres après la virgule, n'a pas de sens au-delà d’une valeur donnée – cette valeur dépond de la version du compilateur Pascal- et ne doit pas figurer si la variable est sans précision.

Encore, la valeur ne change pas, juste l’affichage qui change

ceci est un exemple

[you92cef]

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

السلآم عليكم ورحمة الله وبركآتهُ ..
كيف نحدد عدد الأرقام بعد الفاصلة في pascal

اذا كان مثلا
x=3.2546897

فاذا كتبنا

writeln(x)

فسوف نحصل على قيمة x الكلية

اذا اردنا مثلا 4 ارقام بعد الفاصلة نكتب هكذا

writeln(x:4);

[you92cef]

exercise supplemainter

ecrire un programme pascal qui fait la somme des chiffres d'un nimbre
exemple

145
il affiche 10
1+4+5=10

exo pour 1er anneé

[AKKAINMOH]

مشكور أخي كثيرا بارك الله فيك وجعلها في ميزان حسناتك

[AKKAINMOH]

السلام عليكم
اريد صنع هذه العملية باستعمال لغة pascal مع تحديد les variables et son types


Lire une chaine de caractères et l'afiice avec sa longueur
lire un caractère est affiche son successeur
وشكرا
وجعلها الله في ميزان حسناتكم

[AKKAINMOH]

شكرا لكم أنتم ما شاء الله مبدعون الله يحفظكم
وجعلها الله في ميزان حسناتكم

[AKKAINMOH]

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

وجعلها الله في ميزان حسناتكم

[you92cef]

[]

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

السلام عليكم
اريد صنع هذه العملية باستعمال لغة pascal مع تحديد les variables et son types


Lire une chaine de caractères et l'afiice avec sa longueur
lire un caractère est affiche son successeur
وشكرا
وجعلها الله في ميزان حسناتكم

program exo;
uses wincrt;
var chaine:string;
c:char;

begin
writeln('s.v.p entrer une chaine de carecterre');
readln(chaine);
writeln('la longueur de chaine est:', length(chaine));
writeln('s.v.p entrer un charecterre');
readln(c);
writeln('le succesive est:', succ(c));
end.

[you92cef]

de cours


le type d'un chaine de charrecterre est declare en pascal : string;

chaine:string;

pour avoir la longeur d'une chaine de charrectere il suffit d'appel le fonction prédifini en pascal length ;

 chaine:string

'if chaine:= 'bonjour
alour length(chaine):=7

'if chaine:=' bonjour bonjour
alors 
length(chaine):=15
car l'espace est un charecterre

toute chainne ou checterre se maitre entre 2 '..' 
pour entrer un charecterre ou un chaine on n'ecrit pas '..' 
en ecrit seulement en algo

length(chaine):= integer*-* toujours un nombre gui appartient dans n

pour avoir le succesive d'un checterre il suffit d'appel la fonction prédifinit en pascal succ

ile type d'un checterre est :char en pascal 

chara:char;

if chara:=a
alors succ(chara):=b

succ((x):=le resutlat est de meme type gue x

a faire:= quel est le suucc de z
pourqoui

string[10]:= veut dire que on doit lire un chaine de charectere qui ne depasse pas 10 cgarecterre

[you92cef]

ارجوا تحديد اين وصلتم في td حتى نعرف كيف نحل التمارين
من درس les boucle يحاول يحل التمرين الذي في الاعلى exo supp
*-* خاص بالسنة الاولى *-*

[boughaba mohamed]

السلام عليكم
أريد مساعدتكم في كتابة خوارزمية لإنجازبرنامج يقوم بقراءة أربعة ارقام صحيحة ويطبع اصغر ثلاث ارقام من بينها
ولو امكن أيضا نموذج لترجمتها للباسكال

[Arzt]

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

Selon Euclide
PGCD (a,b) = PGCD(a,b-a) si b>a
PGCD (a,b) = PGCD (a-b,b) si a>b
PGCD (a,b) = a (ou b) si a=b

program pgcd;
uses wincrt;

var
a,b:integer;

begin

repeat
readln(a);
until a>=0;


repeat
readln(b);
until b>=0;



while a<>b do
begin
  if a>b then
     a:=a-b
  else if a<b then
       b:=b-a;
end;



writeln(a);
end.

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

program premier;
uses wincrt;

var
i,d:integer;


begin


for i:=2 to 100 do
begin

d:=2;

while ((i mod d <>0) and (d <= i div 2)) do
begin
d:=d+1;
end;


if d> i div 2 then
writeln(i);

end; 

end.

مشكور أخي لكن أريد ال Algorithme أيضا

[you92cef]

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

مشكور أخي لكن أريد ال Algorithme أيضا

بخصوص الباسكال والالغوريتم فليس هناك اختلاف يكفي فقط تعويض الكلمات الانكليزية بالفرنسية او العكس

else---sinon
if---si
end;---finsi
readln ou read---lire
writeln ou write---- ecrire
program----algorithe

[you92cef]

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

السلام عليكم
أريد مساعدتكم في كتابة خوارزمية لإنجازبرنامج يقوم بقراءة أربعة ارقام صحيحة ويطبع اصغر ثلاث ارقام من بينها
ولو امكن أيضا نموذج لترجمتها للباسكال

بخصوص هذه الانواع فهي طويلة للبرمجة والاحسن ان تكتبها باانغرام anagramme
ولكن يمكن ان تكتبها بالباسكال او الالغوريتم يكفي فقط ان تضع كل الحالات الممكنة ومن الاحسن استعمال les commaintres explicatif لكي تصحح الاخطاء ان وجدت
les commentaire explicatif هي تعليقات تساعد المبرمج ولا تظهر في برنامج باسكال وهي تكتب بهذا الشكل
{commaintre explicative}
{......................}

ساحاول برمجته بالباسكال ولكن ليس صعبا
اتمنى ان تبرمجه*-*يه*-* بنفسك
شكرا